75ad2a4 · reflex · git.iko.soy

on develop help sign in

Get Reflex.Time working

75ad2a4Ryan Trinkle9 years ago

reflex.cabal+1−1

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

72 stm == 2.4.*,

73 syb >= 0.5 && < 0.8,

74 these >= 0.4 && < 0.8,

75− time >= 1.4 && < 1.8,

75+ time >= 1.4 && < 1.9,

76 transformers >= 0.2,

77 transformers-compat >= 0.3,

78 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

230{-# INLINE tickInfo_lastUTC #-}

231

232tickInfo_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

234{-# INLINE tickInfo_n #-}

235

236tickInfo_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

238{-# INLINE tickInfo_alreadyElapsed #-}

239#endif

240