@@ -950,7 +950,7 @@ infixl 4 <@>
951-- A more suggestive example might be:
951-- A more suggestive example might be:
953−-- > handleMouse <$> bPlayerState <*> bMousePosition <*> eMouseClick :: Event t (GameState -> GameState)
953+-- > handleMouse <$> bPlayerState <*> bMousePosition <@> eMouseClick :: Event t (GameState -> GameState)
955(<@>) :: Reflex t => Behavior t (a -> b) -> Event t a -> Event t b
955(<@>) :: Reflex t => Behavior t (a -> b) -> Event t a -> Event t b
956(<@>) b = push $ \x -> do
956(<@>) b = push $ \x -> do