@@ -31,8 +31,7 @@ import Data.Maybe (fromMaybe)
3131import Data.Monoid (mempty)
3232import Data.Set (Set)
3333import qualified Data.Set as S
34−import Data.Time (Day (..), UTCTime (..),
35− secondsToDiffTime)
34+import Data.Time (Day (..), UTCTime (..))
3635import Data.Typeable (Typeable)
3736import System.Directory (getModificationTime)
3837import System.FilePath (addExtension, (</>))
@@ -62,11 +61,11 @@ newtype BinaryTime = BinaryTime {unBinaryTime :: UTCTime}
6261--------------------------------------------------------------------------------
6362instance Binary BinaryTime where
6463 put (BinaryTime (UTCTime (ModifiedJulianDay d) dt)) =
65− put d >> put (floor dt :: Integer)
64+ put d >> put (toRational dt)
6665
6766 get = fmap BinaryTime $ UTCTime
6867 <$> (ModifiedJulianDay <$> get)
69− <*> (secondsToDiffTime <$> get)
68+ <*> (fromRational <$> get)
7069
7170
7271--------------------------------------------------------------------------------