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