git.iko.soy/typeable/http-api-data
on master help sign in
Fix older GHC builds with time-locale-compat
9780021Nickolay Kudasov
Web/HttpApiData/Internal.hs+2−1
compare with master
unifiedsplit
@@ -28,6 +28,7 @@ import Data.Text.Read (signed, decimal, rational, Reader)
28import qualified Data.Text as T
28import qualified Data.Text as T
29import qualified Data.Text.Lazy as L
29import qualified Data.Text.Lazy as L
30
30
31+import Data.Time.Locale.Compat
31import Data.Time
32import Data.Time
32import Data.Version
33import Data.Version
33
34
@@ -468,7 +469,7 @@ instance FromHttpApiData Day where parseUrlPiece = readTextData
468timeParseUrlPiece :: ParseTime t => String -> Text -> Either Text t
469timeParseUrlPiece :: ParseTime t => String -> Text -> Either Text t
469timeParseUrlPiece fmt = parseMaybeTextData (timeParseUrlPieceMaybe . T.unpack)
470timeParseUrlPiece fmt = parseMaybeTextData (timeParseUrlPieceMaybe . T.unpack)
470 where
471 where
471− timeParseUrlPieceMaybe = parseTimeM False defaultTimeLocale (iso8601DateFormat (Just fmt))
472+ timeParseUrlPieceMaybe = parseTime defaultTimeLocale (iso8601DateFormat (Just fmt))
472
473
473-- |
474-- |
474-- >>> parseUrlPiece "2015-10-03T14:55:01" :: Either Text LocalTime
475-- >>> parseUrlPiece "2015-10-03T14:55:01" :: Either Text LocalTime
http-api-data.cabal+1
@@ -25,6 +25,7 @@ library
25 , text >= 0.5
25 , text >= 0.5
26 , bytestring
26 , bytestring
27 , time
27 , time
28+ , time-locale-compat
28 if flag(use-text-show)
29 if flag(use-text-show)
29 cpp-options: -DUSE_TEXT_SHOW
30 cpp-options: -DUSE_TEXT_SHOW
30 build-depends: text-show >= 2
31 build-depends: text-show >= 2