Remove leading/trailing space from the time_stamp format string (GHC bug #9150).

diff --git a/src/TSN/Picklers.hs b/src/TSN/Picklers.hs
index c70b2ba84edc5d627575622d1bb2a609f99bb195..e188953eb952ced6840d67ab892b0400482f02c8 100644 (file)
--- a/src/TSN/Picklers.hs
+++ b/src/TSN/Picklers.hs
@@ -132,7 +132,7 @@ xp_time_stamp =
   (to_time_stamp, from_time_stamp) `xpWrapMaybe` xpText
   where
     -- This omits the timezone and trailing space.
-    format = " %B %-d, %Y, at " ++ xp_time_format ++ " ET "
+    format = "%B %-d, %Y, at " ++ xp_time_format ++ " ET"
 
     five_hours :: NominalDiffTime
     five_hours = 5 * 60 * 60