openPlayer should accept Nothing for the hostname

[EsounD.git] / examples / EsdPlayerExample.hs

diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs
index 1d3ec4f311836b4703ceb2d3a458701446f1b943..1083e8b70e850d260483c997c787e9523a145113 100644 (file)
--- a/examples/EsdPlayerExample.hs
+++ b/examples/EsdPlayerExample.hs
@@ -3,12 +3,15 @@
   #-}
 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"