git.iko.soy/elk
on master help sign in
use new package function for converting to serializable time format
commit4d00bcfef30a31cfc71c3f3b74b334c0367c4538 authorEvan Czaplicki <evancz@users.noreply.github.com> dateMon 24 Jun 2019, 18:30 (7 years ago) parentf228315
2 files changed+3−3
compare with master
unifiedsplit
builder/src/File.hs+2−2 elm.cabal+1−1
builder/src/File.hs+2−2
@@ -24,6 +24,7 @@ import qualified Data.ByteString.Builder as B
2424import qualified Data.ByteString.Lazy as LBS
2525import qualified Data.Fixed as Fixed
2626import qualified Data.List as List
27+import qualified Data.Time.Clock as Time
2728import qualified Data.Time.Clock.POSIX as Time
2829import qualified Foreign.ForeignPtr as FPtr
2930import GHC.IO.Exception (IOException, IOErrorType(InvalidArgument))
@@ -45,8 +46,7 @@ newtype Time = Time Fixed.Pico
4546getTime :: FilePath -> IO Time
4647getTime path =
4748 fmap
48− (Time . realToFrac . Time.utcTimeToPOSIXSeconds)
49−-- TODO (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
49+ (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
5050 (Dir.getModificationTime path)
5151
5252
elm.cabal+1−1
@@ -227,7 +227,7 @@ Executable elm
227227 snap-core,
228228 snap-server,
229229 template-haskell,
230− time,
230+ time >= 1.9.1,
231231 unordered-containers,
232232 utf8-string,
233233 vector,