Sound/EsounD/Streams.hs

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