@@ -926,8 +926,8 @@ instance Reflex t => Align (Event t) where
926926gate :: Reflex t => Behavior t Bool -> Event t a -> Event t a
927927gate = attachWithMaybe $ \allow a -> if allow then Just a else Nothing
928928
929−-- | Create a new behavior given a starting behavior and switch to a behavior
930−-- carried by the event when it fires.
929+-- | Create a new behavior given a starting behavior and switch to the behavior
930+-- carried by the event when it fires.
931931switcher :: (Reflex t, MonadHold t m)
932932 => Behavior t a -> Event t (Behavior t a) -> m (Behavior t a)
933933switcher b eb = pull . (sample <=< sample) <$> hold b eb