jfischoff · August 21, 2019 06:04
diff --git a/delayOne.hs b/delayOne.hs
 delayOne :: (MonadHold t m, Reflex t) => Event t a -> m (Event t (a, a))
 delayOne e = do
  b <- hold Nothing $ Just <$> e
  let eOld = W.catMaybes $ b <@ e
  pure $ liftF2 (,) eOld e
	delayOne :: (MonadHold t m, Reflex t) => Event t a -> m (Event t (a, a))
	delayOne e = do
	b <- hold Nothing $ Just <$> e
	let eOld = W.catMaybes $ b <@ e
	pure $ liftF2 (,) eOld e