@@ -603,7 +603,8 @@ instance FromJSON DotNetTime where
603 {-# INLINE parseJSON #-}
603 {-# INLINE parseJSON #-}
605instance ToJSON UTCTime where
605instance ToJSON UTCTime where
606+ toJSON t = String (pack (take 23 str ++ "Z"))
606− toJSON t = String (pack (formatTime defaultTimeLocale "%FT%X%QZ" t))
607+ where str = formatTime defaultTimeLocale "%FT%T%Q" t
607 {-# INLINE toJSON #-}
608 {-# INLINE toJSON #-}
609instance FromJSON UTCTime where
610instance FromJSON UTCTime where