From: Michael Orlitzky <michael@orlitzky.com>
Date: Fri, 13 Jun 2014 15:03:37 +0000 (-0400)
Subject: Unpickle Nothing as "TBA" in xp_tba_time.
X-Git-Tag: 0.0.6~211
X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=e53fc614221083bc059a6eebfab91172db0a0723;p=dead%2Fhtsn-import.git

Unpickle Nothing as "TBA" in xp_tba_time.
---

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index ff7b0d1..bc13bad 100644
--- 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