@@ -43,7 +43,7 @@ import Data.Scientific (Scientific)
4343import Data.Sequence (Seq)
4444import Data.Tagged (Tagged(..))
4545import Data.Text (Text)
46−import Data.Time (UTCTime, Day, fromGregorian)
46+import Data.Time (UTCTime, fromGregorian)
4747import Data.Time.Format (parseTime)
4848import Data.Time.Locale.Compat (defaultTimeLocale)
4949import Data.Word (Word8)
@@ -330,6 +330,8 @@ jsonDecodingExamples = [
330330 , MaybeExample "Word8 3.14" "3.14" (Nothing :: Maybe Word8)
331331 , MaybeExample "Word8 -1" "-1" (Nothing :: Maybe Word8)
332332 , MaybeExample "Word8 300" "300" (Nothing :: Maybe Word8)
333+
334+ , MaybeExample "Day -0000-02-03" "\"-0000-02-03\"" (Just (fromGregorian 0 2 3))
333335 ]
334336
335337jsonExamples :: [Example]