Eliminated unnecessary `seq` in headE
commit34503d1edb56f353dfb07515cccc717725e7ce28
authorRyan Trinkle <ryan.trinkle@gmail.com>
dateThu 4 Aug 2016, 23:38 (10 years ago)
parent61c1ffd
src/Reflex/Class.hs−1
@@ -470,7 +470,6 @@ headE :: (Reflex t, MonadHold t m, MonadFix m) => Event t a -> m (Event t a)
470470headE e = do
471471 rec be <- hold e $ fmap (const never) e'
472472 let e' = switch be
473− e' `seq` return ()
474473 return e'
475474
476475-- | Create a new 'Event' that occurs on all but the first occurence of the