git.iko.soy/typeable/extra-time
on master help sign in
Use binary-instances instead of rolling our own orphans
commit1598998b2306d824cf46084ef0ab1ea0827e36e0 authormniip <mniip@mniip.com> dateWed 19 Nov 2025, 09:40 (1 year ago) parent23a874b
3 files changed+2−41
extra-time.cabal+1−1 src/Data/Time/LocalTime/Instances.hs−39 src/Data/Time/LocalTime/Short.hs+1−1
extra-time.cabal+1−1
@@ -30,6 +30,7 @@ library
3030 -- | from ghc
3131 base >= 4.7 && < 5 ,
3232 binary ,
33+ binary-instances ,
3334 bytestring ,
3435 containers ,
3536 cassava ,
@@ -61,5 +62,4 @@ library
6162 Data.Time.LocalTime.Short
6263 Data.Time.Utils
6364 other-modules:
64− Data.Time.LocalTime.Instances
6565 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
2121import Control.Monad.State
2222import Data.Aeson
2323import Data.Binary (Binary)
24+import Data.Binary.Instances.Time ()
2425import Data.Coerce
2526import Data.Ord (comparing)
2627import Data.Time as T
2728import Data.Time.Fmt
28−import Data.Time.LocalTime.Instances ()
2929import Data.Time.Utils
3030import GHC.Generics (Generic)
3131import Test.QuickCheck (Arbitrary)