@@ -28,6 +28,7 @@ import Data.Text.Read (signed, decimal, rational, Reader)
2828import qualified Data.Text as T
2929import qualified Data.Text.Lazy as L
3030
31+import Data.Time.Locale.Compat
3132import Data.Time
3233import Data.Version
3334
@@ -468,7 +469,7 @@ instance FromHttpApiData Day where parseUrlPiece = readTextData
468469timeParseUrlPiece :: ParseTime t => String -> Text -> Either Text t
469470timeParseUrlPiece fmt = parseMaybeTextData (timeParseUrlPieceMaybe . T.unpack)
470471 where
471− timeParseUrlPieceMaybe = parseTimeM False defaultTimeLocale (iso8601DateFormat (Just fmt))
472+ timeParseUrlPieceMaybe = parseTime defaultTimeLocale (iso8601DateFormat (Just fmt))
472473
473474-- |
474475-- >>> parseUrlPiece "2015-10-03T14:55:01" :: Either Text LocalTime