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