A better fix for issue #1
commit09faa3f459c27f91812e78926ed32f11fc3d15af
authorBryan O'Sullivan <bos@mailrank.com>
dateThu 10 Mar 2011, 13:59 (16 years ago)
parentac3c5b3
Data/Aeson/Types.hs+2−1
@@ -603,7 +603,8 @@ instance FromJSON DotNetTime where
603603 {-# INLINE parseJSON #-}
604604
605605instance ToJSON UTCTime where
606− toJSON t = String (pack (formatTime defaultTimeLocale "%FT%X%QZ" t))
606+ toJSON t = String (pack (take 23 str ++ "Z"))
607+ where str = formatTime defaultTimeLocale "%FT%T%Q" t
607608 {-# INLINE toJSON #-}
608609
609610instance FromJSON UTCTime where