git.iko.soy/typeable/extra-time
on master help sign in
Use binary-instances instead of rolling our own orphans
1598998mniip
extra-time.cabal+1−1
@@ -30,6 +30,7 @@ library
30 -- | from ghc
30 -- | from ghc
31 base >= 4.7 && < 5 ,
31 base >= 4.7 && < 5 ,
32 binary ,
32 binary ,
33+ binary-instances ,
33 bytestring ,
34 bytestring ,
34 containers ,
35 containers ,
35 cassava ,
36 cassava ,
@@ -61,5 +62,4 @@ library
61 Data.Time.LocalTime.Short
62 Data.Time.LocalTime.Short
62 Data.Time.Utils
63 Data.Time.Utils
63 other-modules:
64 other-modules:
64− Data.Time.LocalTime.Instances
65 Holidays.EDay
65 Holidays.EDay
src/Data/Time/LocalTime/Instances.hsdeleted−39
@@ -1,39 +0,0 @@
1−{-# OPTIONS_GHC -fno-warn-orphans #-}
2−
3−module Data.Time.LocalTime.Instances where
4−
5−import Data.Binary (Binary(..))
6−import Data.Fixed (Fixed(..))
7−import Data.Time
8−import GHC.Generics (Generic)
9−
10−
11−deriving instance Generic TimeZone
12−
13−instance Binary TimeZone
14−
15−deriving instance Generic Day
16−
17−instance Binary Day
18−
19−deriving instance Generic (Fixed a)
20−
21−deriving instance Generic TimeOfDay
22−
23−instance Binary TimeOfDay
24−
25−deriving instance Generic LocalTime
26−
27−instance Binary LocalTime
28−
29−deriving instance Generic ZonedTime
30−
31−instance Binary ZonedTime
32−
33−instance Binary DiffTime where
34− put = put . toRational
35− get = fromRational <$> get
36−
37−deriving instance Generic UTCTime
38−
39−instance Binary UTCTime
src/Data/Time/LocalTime/Short.hs+1−1
@@ -21,11 +21,11 @@ import Control.Lens
21import Control.Monad.State
21import Control.Monad.State
22import Data.Aeson
22import Data.Aeson
23import Data.Binary (Binary)
23import Data.Binary (Binary)
24+import Data.Binary.Instances.Time ()
24import Data.Coerce
25import Data.Coerce
25import Data.Ord (comparing)
26import Data.Ord (comparing)
26import Data.Time as T
27import Data.Time as T
27import Data.Time.Fmt
28import Data.Time.Fmt
28−import Data.Time.LocalTime.Instances ()
29import Data.Time.Utils
29import Data.Time.Utils
30import GHC.Generics (Generic)
30import GHC.Generics (Generic)
31import Test.QuickCheck (Arbitrary)
31import Test.QuickCheck (Arbitrary)