Being a dirty schlub & replying to myself, it turns out there is a way to substitute an infinite list into an Event as we've talked about this on #haskell this morning.
subs xs e :: [a] -> Event b -> Event a
subs xs e = head <$> accumE xs (tail <$ e)
so then we can very easily do
randomEvent :: (RandomGen g,Random b) => g -> Event a -> Event b
randomEvent std e = let vals = randoms g in subs vals e
Cool!
Now I just need to change my Tetris to do that instead of messing with a Behavior.
_______________________________________________
Reactive mailing list
Reactive@haskell.org
http://www.haskell.org/mailman/listinfo/reactive