Merge pull request #230 from nathanfhunter/master

Fix off-by-one error in year builder.
lpsmith · Nov 15, 2017 · 70e19cd · 70e19cd
2 parents 62bea80 + bfc5036
commit 70e19cd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs b/src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs
@@ -71,7 +71,7 @@ frac = condB (== 0) emptyB ((,) '.' >$< (liftB char8 >*< trunc12))
 
 
 year  :: BoundedPrim Int32
-year = condB (> 10000) int32Dec (checkBCE >$< liftB digits4)
+year = condB (>= 10000) int32Dec (checkBCE >$< liftB digits4)
   where
     checkBCE :: Int32 -> Int
     checkBCE y