Writable class

[EsounD.git] / Sound / EsounD / Streams.hs

diff --git a/Sound/EsounD/Streams.hs b/Sound/EsounD/Streams.hs
new file mode 100644 (file)
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 ()