{-# LANGUAGE
    UnicodeSyntax
  , MultiParamTypeClasses
  #-}
-- | EsounD stream I/O
module Sound.EsounD.Streams
    ( Writable(..)
    , Mux(..) -- defined by Internals
    )
    where
import Control.Monad.IO.Class
import Control.Monad.Trans.Region
import Sound.EsounD.Internals

class Writable ws dvec where
    write ∷ ( AncestorRegion pr cr
             , MonadIO cr
             )
          ⇒ ws (RegionT s pr) → dvec → cr ()