on master help sign in
Add comment
6654967Matt Parsons
tests/UnitTests.hs+1−1
@@ -330,7 +330,7 @@ jsonDecodingExamples = [
330 , MaybeExample "Word8 3.14" "3.14" (Nothing :: Maybe Word8)
330 , MaybeExample "Word8 3.14" "3.14" (Nothing :: Maybe Word8)
331 , MaybeExample "Word8 -1" "-1" (Nothing :: Maybe Word8)
331 , MaybeExample "Word8 -1" "-1" (Nothing :: Maybe Word8)
332 , MaybeExample "Word8 300" "300" (Nothing :: Maybe Word8)
332 , MaybeExample "Word8 300" "300" (Nothing :: Maybe Word8)
333−
333+ -- Negative zero year, encoding never produces such:
334 , MaybeExample "Day -0000-02-03" "\"-0000-02-03\"" (Just (fromGregorian 0 2 3))
334 , MaybeExample "Day -0000-02-03" "\"-0000-02-03\"" (Just (fromGregorian 0 2 3))
335 ]
335 ]
336
336