-- | EsounD stream I/O
module Sound.EsounD.Streams
( Writable(..)
- , Mux(..) -- defined by Internals
)
where
import Control.Monad.IO.Class
import Control.Monad.Trans.Region
-import Sound.EsounD.Internals
class Writable ws dvec where
write ∷ ( AncestorRegion pr cr
, MonadIO cr
)
- ⇒ ws (RegionT s pr) → dvec → cr ()
+ ⇒ ws pr → dvec → cr ()