Fix the time_stamp_format and the timestamp pickler for time-1.4.2.

diff --git a/src/TSN/Parse.hs b/src/TSN/Parse.hs
index d707f5fd9575a4d2945f0285204145e0b44b5117..8dbdf1fd957debdaa9322fba7da3e142884a2465 100644 (file)
--- a/src/TSN/Parse.hs
+++ b/src/TSN/Parse.hs
@@ -184,15 +184,15 @@ time_format = "%I:%M %p"
 
 
 
--- | The format string for a time_stamp. We keep the leading/trailing
---   space so that parseTime and formatTime are inverses are one
---   another, even though there is some confusion as to how these two
---   functions should behave:
+-- | The format string for a time_stamp. We have removed the
+--   leading/trailing space so that parseTime and formatTime are NOT
+--   inverses of one another. We should be able to rectify this once
+--   everything is updated to support time-1.5. See,
 --
 --   <https://ghc.haskell.org/trac/ghc/ticket/9150>
 --
 time_stamp_format :: String
-time_stamp_format = " %B %-d, %Y, at " ++ time_format ++ " ET "
+time_stamp_format = "%B %-d, %Y, at " ++ time_format ++ " ET"
 
 
 

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index 09c3a3b1000ac983251108afb5e570bdb40eb8c5..70fa07dfac7976af3f16c8748b8863572ed13d44 100644 (file)
--- a/src/TSN/Picklers.hs
+++ b/src/TSN/Picklers.hs
@@ -474,9 +474,12 @@ xp_time_stamp :: PU UTCTime
 xp_time_stamp =
   (parse_time_stamp, from_time_stamp) `xpWrapMaybe` xpText
   where
+    -- | We have to re-pad the time_stamp_format with a leading and
+    --   trailing space; see the documentation of 'time_stamp_format'
+    --   for more information.
     from_time_stamp :: UTCTime -> String
     from_time_stamp =
-      formatTime defaultTimeLocale time_stamp_format
+      formatTime defaultTimeLocale (" " ++ time_stamp_format ++ " ")