From f719c1ed586bcf07807d2dae33bf0bd362cf6ed6 Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Fri, 29 Jun 2018 20:18:46 +0200 Subject: [PATCH] Typo --- src/Reactive/Threepenny.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Reactive/Threepenny.hs b/src/Reactive/Threepenny.hs index 127322d9..4e797c6c 100644 --- a/src/Reactive/Threepenny.hs +++ b/src/Reactive/Threepenny.hs @@ -218,7 +218,7 @@ accumB a e = liftIO $ do -- > stepper x0 ex = return $ \time -> -- > last (x0 : [x | (timex,x) <- ex, timex < time]) -- --- Note that the smaller-than-sign in the comparision @timex < time@ means +-- Note that the smaller-than-sign in the comparison @timex < time@ means -- that the value of the behavior changes \"slightly after\" -- the event occurrences. This allows for recursive definitions. stepper :: MonadIO m => a -> Event a -> m (Behavior a)