Merge pull request #230 from nathanfhunter/master
Fix off-by-one error in year builder.
commit70e19cda312cfff50af15295c7c7be80f7429760
authorLeon P Smith <leon.p.smith+github@gmail.com>
dateWed 15 Nov 2017, 15:29 (9 years ago)
parent62bea80bfc5036
src/Database/PostgreSQL/Simple/Time/Internal/Printer.hs+1−1
@@ -71,7 +71,7 @@ frac = condB (== 0) emptyB ((,) '.' >$< (liftB char8 >*< trunc12))
7171
7272
7373year :: BoundedPrim Int32
74−year = condB (> 10000) int32Dec (checkBCE >$< liftB digits4)
74+year = condB (>= 10000) int32Dec (checkBCE >$< liftB digits4)
7575 where
7676 checkBCE :: Int32 -> Int
7777 checkBCE y