git.iko.soy/typeable/extra-time
on master help sign in
B2H-746: Make packages compatible with vanila reflex-platform (#6092)
1976e84Vladislav Lagunov
extra-time.cabal+4−2
compare with master
unifiedsplit
@@ -33,14 +33,16 @@ library
33 time,
33 time,
34 -- | from hackage
34 -- | from hackage
35 aeson ,
35 aeson ,
36− dom-parser ,
37 generic-arbitrary ,
36 generic-arbitrary ,
38 http-api-data ,
37 http-api-data ,
39 lens >= 4.17 ,
38 lens >= 4.17 ,
40 QuickCheck ,
39 QuickCheck ,
41 quickcheck-instances ,
40 quickcheck-instances ,
42 timezone-series ,
41 timezone-series ,
42+ if !impl(ghcjs)
43+ build-depends:
44+ dom-parser ,
43− xml-conduit-writer ,
45+ xml-conduit-writer ,
44 exposed-modules:
46 exposed-modules:
45 Data.Time.Extra
47 Data.Time.Extra
46 Data.Time.Fmt
48 Data.Time.Fmt
src/Data/Time/Fmt.hs+6−1
@@ -24,9 +24,12 @@ import Data.Time
24import GHC.Generics (Generic)
24import GHC.Generics (Generic)
25import GHC.TypeLits
25import GHC.TypeLits
26import Test.QuickCheck
26import Test.QuickCheck
27+import Web.HttpApiData
28+
29+#ifndef ghcjs_HOST_OS
27import Text.XML.DOM.Parser
30import Text.XML.DOM.Parser
28import Text.XML.Writer
31import Text.XML.Writer
29−import Web.HttpApiData
32+#endif
30
33
31#if !MIN_VERSION_base(4,13,0)
34#if !MIN_VERSION_base(4,13,0)
32import Control.Monad.Fail
35import Control.Monad.Fail
@@ -82,6 +85,7 @@ instance (ParseTime a, KnownSymbol fmt) => FromHttpApiData (FmtTime fmt a) where
82 parseUrlPiece t =
85 parseUrlPiece t =
83 maybe (Left $ errParseFmtTime @fmt t) Right $ fmtTimeFromString $ T.unpack t
86 maybe (Left $ errParseFmtTime @fmt t) Right $ fmtTimeFromString $ T.unpack t
84
87
88+#ifndef ghcjs_HOST_OS
85instance (FormatTime a, KnownSymbol fmt) => ToXML (FmtTime fmt a) where
89instance (FormatTime a, KnownSymbol fmt) => ToXML (FmtTime fmt a) where
86 toXML = toXML . T.pack . fmtTimeToString
90 toXML = toXML . T.pack . fmtTimeToString
87
91
@@ -90,6 +94,7 @@ instance (ParseTime a, KnownSymbol fmt) => FromDom (FmtTime fmt a) where
90 s <- fromDom
94 s <- fromDom
91 maybe (throwParserError $ PEContentWrongFormat $ errParseFmtTime @fmt s)
95 maybe (throwParserError $ PEContentWrongFormat $ errParseFmtTime @fmt s)
92 pure $ fmtTimeFromString $ T.unpack s
96 pure $ fmtTimeFromString $ T.unpack s
97+#endif
93
98
94type ZonedISO8601 = ("%FT%T%Q%z" :: Symbol)
99type ZonedISO8601 = ("%FT%T%Q%z" :: Symbol)
95
100