git.iko.soy/typeable/katip
on master help sign in
Satisfy older ghc
9229765Leonid Onokhov
katip/test/Katip/Tests/Format/Time.hs+2−2
compare with master
unifiedsplit
@@ -77,5 +77,5 @@ newtype ArbUTCTime = ArbUTCTime {
77 } deriving (Show)
77 } deriving (Show)
78
78
79instance Arbitrary ArbUTCTime where
79instance Arbitrary ArbUTCTime where
80− arbitrary = ArbUTCTime . posixSecondsToUTCTime . fromInteger
80+ arbitrary = fmap (ArbUTCTime . posixSecondsToUTCTime . fromInteger)
81− <$> arbitrary
81+ arbitrary