12dc25d · hakyll · git.iko.soy

on master help sign in

Merge pull request #252 from blaenk/mod-time

12dc25dJasper Van der Jeugt12 years ago

src/Hakyll/Core/Provider/Internal.hs+3−4

@@ -31,8 +31,7 @@ import Data.Maybe (fromMaybe)

31import Data.Monoid (mempty)

32import Data.Set (Set)

33import qualified Data.Set as S

34−import Data.Time (Day (..), UTCTime (..),

34+import Data.Time (Day (..), UTCTime (..))

35− secondsToDiffTime)

36import Data.Typeable (Typeable)

35import Data.Typeable (Typeable)

37import System.Directory (getModificationTime)

36import System.Directory (getModificationTime)

38import System.FilePath (addExtension, (</>))

37import System.FilePath (addExtension, (</>))

@@ -62,11 +61,11 @@ newtype BinaryTime = BinaryTime {unBinaryTime :: UTCTime}

62--------------------------------------------------------------------------------

61--------------------------------------------------------------------------------

63instance Binary BinaryTime where

62instance Binary BinaryTime where

64 put (BinaryTime (UTCTime (ModifiedJulianDay d) dt)) =

63 put (BinaryTime (UTCTime (ModifiedJulianDay d) dt)) =

65− put d >> put (floor dt :: Integer)

64+ put d >> put (toRational dt)

67 get = fmap BinaryTime $ UTCTime

66 get = fmap BinaryTime $ UTCTime

68 <$> (ModifiedJulianDay <$> get)

67 <$> (ModifiedJulianDay <$> get)

69− <*> (secondsToDiffTime <$> get)

68+ <*> (fromRational <$> get)

72--------------------------------------------------------------------------------

71--------------------------------------------------------------------------------