75ad2a4 · reflex · git.iko.soy

Get Reflex.Time working

commit75ad2a48d071082785f41300538f9101a2f5aa5d authorRyan Trinkle <ryan.trinkle@gmail.com> dateTue 17 Oct 2017, 17:17 (9 years ago) parent19791c8

2 files changed+3−3

unifiedsplit

reflex.cabal+1−1

@@ -72,7 +72,7 @@ library

7272 stm == 2.4.*,

7373 syb >= 0.5 && < 0.8,

7474 these >= 0.4 && < 0.8,

75− time >= 1.4 && < 1.8,

75+ time >= 1.4 && < 1.9,

7676 transformers >= 0.2,

7777 transformers-compat >= 0.3,

7878 unbounded-delays >= 0.1.0.0 && < 0.2

src/Reflex/Time.hs+2−2

@@ -230,11 +230,11 @@ tickInfo_lastUTC f (TickInfo x1 x2 x3) = (\y -> TickInfo y x2 x3) <$> f x1

230230{-# INLINE tickInfo_lastUTC #-}

231231

232232tickInfo_n :: Lens' TickInfo Integer

233−tickInfo_n f (TickInfo x1 x2 x3) = (\y -> TickInfo x1 y x3) <$> f x1

233+tickInfo_n f (TickInfo x1 x2 x3) = (\y -> TickInfo x1 y x3) <$> f x2

234234{-# INLINE tickInfo_n #-}

235235

236236tickInfo_alreadyElapsed :: Lens' TickInfo NominalDiffTime

237−tickInfo_alreadyElapsed f (TickInfo x1 x2 x3) = (\y -> TickInfo x1 x2 y) <$> f x1

237+tickInfo_alreadyElapsed f (TickInfo x1 x2 x3) = (\y -> TickInfo x1 x2 y) <$> f x3

238238{-# INLINE tickInfo_alreadyElapsed #-}

239239#endif

240240