Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- holdFor :: Double -> Wire m (Event (These Double a)) a
- holdFor = proc x -> do
- rec curTime <- scan 0 -< these id (+) (const (+)) x
- lastTriggered <- -< these const (id) (const id) x
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement