Sound/EsounD/Streams.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   , MultiParamTypeClasses
   4   #-}
   5 -- | EsounD stream I/O
   6 module Sound.EsounD.Streams
   7     ( Writable(..)
   8     , Mux(..) -- defined by Internals
   9     )
  10     where
  11 import Control.Monad.IO.Class
  12 import Control.Monad.Trans.Region
  13 import Sound.EsounD.Internals
  14
  15 class Writable ws dvec where
  16     write ∷ ( AncestorRegion pr cr
  17              , MonadIO cr
  18              )
  19           ⇒ ws (RegionT s pr) → dvec → cr ()