where
import Bindings.EsounD
-import Control.Monad.CatchIO
import Control.Monad.IO.Class
import Control.Monad.Trans.Region as R
import Control.Monad.Trans.Region.OnExit
openPlayer ∷ ∀fr ch s pr.
( Frame fr
, Channels ch
- , MonadCatchIO pr
+ , MonadIO pr
)
⇒ Int -- ^ sample rate for the stream.
→ HostName -- ^ host to connect to.