@@ -63,7 +63,7 @@ delay dt e = performEventAsync $ ffor e $ \a cb -> liftIO $ void $ forkIO $ do
63 threadDelay $ ceiling $ dt * 1000000
63 threadDelay $ ceiling $ dt * 1000000
66−-- | Block occurrences of an Event until th given number of seconds elapses without
66+-- | Block occurrences of an Event until the given number of seconds elapses without
67-- the Event firing, at which point the last occurrence of the Event will fire.
67-- the Event firing, at which point the last occurrence of the Event will fire.
68debounce :: MonadWidget t m => NominalDiffTime -> Event t a -> m (Event t a)
68debounce :: MonadWidget t m => NominalDiffTime -> Event t a -> m (Event t a)
69debounce dt e = do
69debounce dt e = do