Unpickle Nothing as "TBA" in xp_tba_time.

[dead/htsn-import.git] / src / TSN / Picklers.hs

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index ff7b0d1e677e9cff2c9cd469c77e226be272a2a6..bc13badbd7134691fe6ee4158019f3b926cbc41b 100644 (file)
--- a/src/TSN/Picklers.hs
+++ b/src/TSN/Picklers.hs
@@ -227,7 +227,7 @@ xp_tba_time =
       | otherwise = parseTime defaultTimeLocale time_format s
 
     from_time :: Maybe UTCTime -> String
-    from_time Nothing = ""
+    from_time Nothing = "TBA"
     from_time (Just t) = formatTime defaultTimeLocale time_format t