Fix ZonedTime printing

lpsmith · Sep 22, 2015 · 6e2ae08 · 6e2ae08
1 parent 70b92d2
commit 6e2ae08
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs b/src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs
@@ -102,7 +102,7 @@ timeZone = ((`quotRem` 60) . timeZoneMinutes) >$< (liftB tzh >*< tzm)
 
     tzh = f >$< (char8 >*< digits2)
 
-    tzm = condB (==0) emptyB ((,) ':' >$< liftB (char8 >*< digits2))
+    tzm = condB (==0) emptyB ((,) ':' . abs >$< liftB (char8 >*< digits2))
 
 utcTime :: BoundedPrim UTCTime
 utcTime = f >$< (day >*< liftB char8 >*< timeOfDay >*< liftB char8)

diff --git a/test/Time.hs b/test/Time.hs
@@ -110,7 +110,6 @@ checkRoundTrips TestEnv{..} limit = do
       assertBool "UTCTime did not round-trip from SQL to Haskell and back" $
                  res == [Only True]
 
-
   yxs :: [(ZonedTime, Int)] <- query conn [sql| 
               SELECT y, x FROM testtime WHERE y > ? 
            |] (Only limit)