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

diff --git a/Sound/EsounD/Streams.hs b/Sound/EsounD/Streams.hs
new file mode 100644
index 0000000..2be218e
--- /dev/null
+++ b/Sound/EsounD/Streams.hs
@@ -0,0 +1,17 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  , MultiParamTypeClasses
+  #-}
+-- | EsounD stream I/O
+module Sound.EsounD.Streams
+    ( Writable(..) 
+    )
+    where
+import Control.Monad.IO.Class 
+import Control.Monad.Trans.Region
+
+class Writable ws v where
+    write ∷ ( AncestorRegion pr cr
+             , MonadIO cr
+             )
+          ⇒ ws (RegionT s pr) → v → cr ()