fix type check failure (Int32 vs Int64)

This commit is contained in:
Simon Bergot 2014-12-15 11:16:43 +01:00
parent 3149d3ab50
commit 680bd1c2a2

View File

@ -24,7 +24,7 @@ import Filesystem (isFile)
-- | Get current time
epochTime :: IO Tar.EpochTime
epochTime = (\(CTime t) -> t) <$> PC.epochTime
epochTime = (\(CTime t) -> fromIntegral t) <$> PC.epochTime
-- | All package/versions in a build plan, including core packages.
--