#-}
module Main where
import Control.Monad.Trans.Region
-import Sound.EsounD.Player
+import Data.Int
+import Sound.EsounD.Player
+import Sound.EsounD.Types
main ∷ IO ()
-main = return ()
-{-
main = runRegionT $
- do pl ← openPlayer 44100 "localhost" Nothing
- fail "FIXME"
--}
+ do pl ← openPlayer 44100 Nothing Nothing
+ playMono16Sine pl
+
+playMono16Sine ∷ Monad m ⇒ Player Int16 Mono m → m ()
+playMono16Sine pl
+ = fail "FIXME"