git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #230 from nathanfhunter/master
70e19cdLeon P Smith
src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs+1−1
compare with master
unifiedsplit
@@ -71,7 +71,7 @@ frac = condB (== 0) emptyB ((,) '.' >$< (liftB char8 >*< trunc12))
71
71
72
72
73year :: BoundedPrim Int32
73year :: BoundedPrim Int32
74−year = condB (> 10000) int32Dec (checkBCE >$< liftB digits4)
74+year = condB (>= 10000) int32Dec (checkBCE >$< liftB digits4)
75 where
75 where
76 checkBCE :: Int32 -> Int
76 checkBCE :: Int32 -> Int
77 checkBCE y
77 checkBCE y