@@ -981,7 +981,7 @@ fanThese e =
981fanMap :: (Reflex t, Ord k) => Event t (Map k a) -> EventSelector t (Const2 k a)
981fanMap :: (Reflex t, Ord k) => Event t (Map k a) -> EventSelector t (Const2 k a)
982fanMap = fan . fmap mapToDMap
982fanMap = fan . fmap mapToDMap
984−-- | switcHold never = eventjoin
984+-- | 'switchHold' never = eventjoin
985eventJoin :: (Reflex t, MonadHold t m) => Event t (Event t a) -> m (Event t a)
985eventJoin :: (Reflex t, MonadHold t m) => Event t (Event t a) -> m (Event t a)
986eventJoin = switchHold never
986eventJoin = switchHold never