module ForSyDe.Shallow.AdaptivityLib (applyfSY, applyf2SY, applyf3SY,
applyfU) where
import ForSyDe.Shallow.Signal
import ForSyDe.Shallow.SynchronousLib
import ForSyDe.Shallow.UntimedLib
applyfSY :: Signal (a -> b) -> Signal a -> Signal b
applyfSY = zipWithSY ($)
applyf2SY :: Signal (a -> c -> d)
-> Signal a -> Signal c -> Signal d
applyf2SY = zipWith3SY ($)
applyf3SY :: Signal (a -> c -> d -> e)
-> Signal a -> Signal c -> Signal d -> Signal e
applyf3SY = zipWith4SY ($)
applyfU :: Int -> Signal ([a] -> [b]) -> Signal a -> Signal b
applyfU tokenNum = comb2UC tokenNum apply
where apply f x = f x