X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FTSN%2FParse.hs;h=8dbdf1fd957debdaa9322fba7da3e142884a2465;hb=HEAD;hp=d707f5fd9575a4d2945f0285204145e0b44b5117;hpb=b0fac40d71bca72312293eb33c33c0f0933d0a28;p=dead%2Fhtsn-import.git

diff --git a/src/TSN/Parse.hs b/src/TSN/Parse.hs
index d707f5f..8dbdf1f 100644
--- 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"