gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-08-16 12:00:22 +03:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

use new package function for converting to serializable time format

Browse Source
This commit is contained in:
Evan Czaplicki 2019-06-24 18:30:57 -04:00
parent f228315fa6
commit 4d00bcfef3
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
builder/src/File.hs
View File

@ -24,6 +24,7 @@ import qualified Data.ByteString.Builder as B
import qualified Data.ByteString.Lazy as LBS
import qualified Data.Fixed as Fixed
import qualified Data.List as List
import qualified Data.Time.Clock as Time
import qualified Data.Time.Clock.POSIX as Time
import qualified Foreign.ForeignPtr as FPtr
import GHC.IO.Exception (IOException, IOErrorType(InvalidArgument))
@ -45,8 +46,7 @@ newtype Time = Time Fixed.Pico
getTime :: FilePath -> IO Time
getTime path =
fmap
(Time . realToFrac . Time.utcTimeToPOSIXSeconds)
-- TODO (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
(Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
(Dir.getModificationTime path)

2
elm.cabal
View File

@ -227,7 +227,7 @@ Executable elm
snap-core,
snap-server,
template-haskell,
time,
time >= 1.9.1,
unordered-containers,
utf8-string,
vector,