@@ -470,7 +470,6 @@ headE :: (Reflex t, MonadHold t m, MonadFix m) => Event t a -> m (Event t a)
470headE e = do
470headE e = do
471 rec be <- hold e $ fmap (const never) e'
471 rec be <- hold e $ fmap (const never) e'
472 let e' = switch be
472 let e' = switch be
474 return e'
473 return e'
476-- | Create a new 'Event' that occurs on all but the first occurence of the
475-- | Create a new 'Event' that occurs on all but the first occurence of the