{-# 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 ()