1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
| | From 849e80635427f1ff393728d27022cdd672ba82ba Mon Sep 17 00:00:00 2001
From: Matthew James Kraai <kraai@ftbfs.org>
Date: Sat, 7 Aug 2021 21:18:29 -0700
Subject: [PATCH] Support time < 1.9.1
---
builder/src/File.hs | 2 +-
elm.cabal | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/builder/src/File.hs b/builder/src/File.hs
index 238da083..aaf94369 100644
--- a/builder/src/File.hs
+++ b/builder/src/File.hs
@@ -46,7 +46,7 @@ newtype Time = Time Fixed.Pico
getTime :: FilePath -> IO Time
getTime path =
fmap
- (Time . Time.nominalDiffTimeToSeconds . Time.utcTimeToPOSIXSeconds)
+ (Time . realToFrac . Time.utcTimeToPOSIXSeconds)
(Dir.getModificationTime path)
diff --git a/elm.cabal b/elm.cabal
index bf1cfcf0..e7afe91e 100644
--- a/elm.cabal
+++ b/elm.cabal
@@ -231,7 +231,7 @@ Executable elm
snap-core,
snap-server,
template-haskell,
- time >= 1.9.1,
+ time,
unordered-containers,
utf8-string,
vector,
--
2.32.0
|