@@ -459,21 +459,21 @@ timeToUrlPiece fmt = T.pack . formatTime defaultTimeLocale (iso8601DateFormat (J
459-- >>> toUrlPiece $ LocalTime (fromGregorian 2015 10 03) (TimeOfDay 14 55 01)
459-- >>> toUrlPiece $ LocalTime (fromGregorian 2015 10 03) (TimeOfDay 14 55 01)
460-- "2015-10-03T14:55:01"
460-- "2015-10-03T14:55:01"
461instance ToHttpApiData LocalTime where
461instance ToHttpApiData LocalTime where
462− toUrlPiece = timeToUrlPiece "%H:%M:%S"
462+ toUrlPiece = timeToUrlPiece "%H:%M:%S%Q"
463 toEncodedUrlPiece = unsafeToEncodedUrlPiece
463 toEncodedUrlPiece = unsafeToEncodedUrlPiece
466-- >>> toUrlPiece $ ZonedTime (LocalTime (fromGregorian 2015 10 03) (TimeOfDay 14 55 01)) utc
466-- >>> toUrlPiece $ ZonedTime (LocalTime (fromGregorian 2015 10 03) (TimeOfDay 14 55 01)) utc
467-- "2015-10-03T14:55:01+0000"
467-- "2015-10-03T14:55:01+0000"
468instance ToHttpApiData ZonedTime where
468instance ToHttpApiData ZonedTime where
469− toUrlPiece = timeToUrlPiece "%H:%M:%S%z"
469+ toUrlPiece = timeToUrlPiece "%H:%M:%S%Q%z"
470 toEncodedUrlPiece = unsafeToEncodedUrlPiece
470 toEncodedUrlPiece = unsafeToEncodedUrlPiece
473−-- >>> toUrlPiece $ UTCTime (fromGregorian 2015 10 03) 864
473+-- >>> toUrlPiece $ UTCTime (fromGregorian 2015 10 03) 864.5
474−-- "2015-10-03T00:14:24Z"
474+-- "2015-10-03T00:14:24.5Z"
475instance ToHttpApiData UTCTime where
475instance ToHttpApiData UTCTime where
476− toUrlPiece = timeToUrlPiece "%H:%M:%SZ"
476+ toUrlPiece = timeToUrlPiece "%H:%M:%S%QZ"
477 toEncodedUrlPiece = unsafeToEncodedUrlPiece
477 toEncodedUrlPiece = unsafeToEncodedUrlPiece
479instance ToHttpApiData NominalDiffTime where
479instance ToHttpApiData NominalDiffTime where