X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=Sound%2FEsounD%2FStreams.hs;h=b379afb0e9f6724fc097e342e1b3220eabc4abe4;hp=2be218ef4dcb727d10a3761dcac81f77b87aaeda;hb=8af725c0cc839ad2493fa17d29ca6becaeb9f600;hpb=2c9350d4762d69bbfcdc58212e27506c3d4f7494

diff --git a/Sound/EsounD/Streams.hs b/Sound/EsounD/Streams.hs
index 2be218e..b379afb 100644
--- a/Sound/EsounD/Streams.hs
+++ b/Sound/EsounD/Streams.hs
@@ -4,14 +4,16 @@
   #-}
 -- | 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 ()