git.iko.soy/elk
on master help sign in
use new package function for converting to serializable time format
4d00bcfEvan Czaplicki
builder/src/File.hs+2−2
compare with master
unifiedsplit
@@ -24,6 +24,7 @@ import qualified Data.ByteString.Builder as B
24import qualified Data.ByteString.Lazy as LBS
24import qualified Data.ByteString.Lazy as LBS
25import qualified Data.Fixed as Fixed
25import qualified Data.Fixed as Fixed
26import qualified Data.List as List
26import qualified Data.List as List
27+import qualified Data.Time.Clock as Time
27import qualified Data.Time.Clock.POSIX as Time
28import qualified Data.Time.Clock.POSIX as Time
28import qualified Foreign.ForeignPtr as FPtr
29import qualified Foreign.ForeignPtr as FPtr
29import GHC.IO.Exception (IOException, IOErrorType(InvalidArgument))
30import GHC.IO.Exception (IOException, IOErrorType(InvalidArgument))
@@ -45,8 +46,7 @@ newtype Time = Time Fixed.Pico
45getTime :: FilePath -> IO Time
46getTime :: FilePath -> IO Time
46getTime path =
47getTime path =
47 fmap
48 fmap
48− (Time . realToFrac . Time.utcTimeToPOSIXSeconds)
49−-- TODO (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
49+ (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
50 (Dir.getModificationTime path)
50 (Dir.getModificationTime path)
51
51
52
52
elm.cabal+1−1
@@ -227,7 +227,7 @@ Executable elm
227 snap-core,
227 snap-core,
228 snap-server,
228 snap-server,
229 template-haskell,
229 template-haskell,
230− time,
230+ time >= 1.9.1,
231 unordered-containers,
231 unordered-containers,
232 utf8-string,
232 utf8-string,
233 vector,
233 vector,