We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 1db982f + 9f04cee commit 8f7df48Copy full SHA for 8f7df48
src/Reflex/Class.hs
@@ -363,8 +363,8 @@ instance Reflex t => Align (Event t) where
363
gate :: Reflex t => Behavior t Bool -> Event t a -> Event t a
364
gate = attachWithMaybe $ \allow a -> if allow then Just a else Nothing
365
366
--- | Create a new behavior given a starting behavior and switch to a the
367
--- behvior carried by the event when it fires.
+-- | Create a new behavior given a starting behavior and switch to the
+-- behavior carried by the event when it fires.
368
switcher :: (Reflex t, MonadHold t m)
369
=> Behavior t a -> Event t (Behavior t a) -> m (Behavior t a)
370
switcher b eb = pull . (sample <=< sample) <$> hold b eb
0 commit comments