git.iko.soy/typeable/flat-instances
on master help sign in
rename
1478d52Dmitry Olshansky
flat-instances.cabal+1−1
compare with master
unifiedsplit
@@ -6,7 +6,7 @@ license-file: LICENSE
6
6
7library
7library
8 exposed-modules:
8 exposed-modules:
9− Flat.Instances
9+ Flat.Orphans
10 build-depends:
10 build-depends:
11 base,
11 base,
12 flat,
12 flat,
src/Flat/Instances.hs → src/Flat/Orphans.hsrenamed+2−3
@@ -1,11 +1,10 @@
1{-# LANGUAGE DerivingVia #-}
1{-# LANGUAGE DerivingVia #-}
2−{-# LANGUAGE NamedFieldPuns #-}
3{-# LANGUAGE RecordWildCards #-}
2{-# LANGUAGE RecordWildCards #-}
4{-# LANGUAGE StandaloneDeriving #-}
3{-# LANGUAGE StandaloneDeriving #-}
5{-# OPTIONS_GHC -fno-warn-orphans #-}
4{-# OPTIONS_GHC -fno-warn-orphans #-}
6
5
7
6
8−module Flat.Instances where
7+module Flat.Orphans where
9
8
10import Data.Fixed
9import Data.Fixed
11import Data.Time
10import Data.Time
@@ -20,7 +19,7 @@ instance Flat DiffTime where
20 size = F.size . diffTimeToPicoseconds
19 size = F.size . diffTimeToPicoseconds
21
20
22utcTimeToTuple :: UTCTime -> (Day, DiffTime)
21utcTimeToTuple :: UTCTime -> (Day, DiffTime)
23−utcTimeToTuple = ((,) <$> utctDay <*> utctDayTime)
22+utcTimeToTuple UTCTime{..} = (utctDay, utctDayTime)
24
23
25instance Flat UTCTime where
24instance Flat UTCTime where
26 encode = F.encode . utcTimeToTuple
25 encode = F.encode . utcTimeToTuple
stack.yaml+1−1
@@ -1,4 +1,4 @@
1−resolver: lts-19.6
1+resolver: lts-19.33
2
2
3packages:
3packages:
4- .
4- .
stack.yaml.lock+4−4
@@ -6,7 +6,7 @@
6packages: []
6packages: []
7snapshots:
7snapshots:
8- completed:
8- completed:
9− sha256: fb634b19f31da06684bb07ce02a20c75a3162138f279b388905b03ebd57bb50f
9+ sha256: 6d1532d40621957a25bad5195bfca7938e8a06d923c91bc52aa0f3c41181f2d4
10− size: 618876
10+ size: 619204
11− url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/6.yaml
11+ url: https://raw.githubusercontent.com/commercialhaskell/stackage-snapshots/master/lts/19/33.yaml
12− original: lts-19.6
12+ original: lts-19.33