@@ -1,11 +1,10 @@
11{-# LANGUAGE DerivingVia #-}
2−{-# LANGUAGE NamedFieldPuns #-}
32{-# LANGUAGE RecordWildCards #-}
43{-# LANGUAGE StandaloneDeriving #-}
54{-# OPTIONS_GHC -fno-warn-orphans #-}
65
76
8−module Flat.Instances where
7+module Flat.Orphans where
98
109import Data.Fixed
1110import Data.Time
@@ -20,7 +19,7 @@ instance Flat DiffTime where
2019 size = F.size . diffTimeToPicoseconds
2120
2221utcTimeToTuple :: UTCTime -> (Day, DiffTime)
23−utcTimeToTuple = ((,) <$> utctDay <*> utctDayTime)
22+utcTimeToTuple UTCTime{..} = (utctDay, utctDayTime)
2423
2524instance Flat UTCTime where
2625 encode = F.encode . utcTimeToTuple