openPlayer should accept Nothing for the hostname

[EsounD.git] / examples / EsdPlayerExample.hs

diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs
index 7de9ba9aa20be036be6c799e8a827d45c1e453a5..1083e8b70e850d260483c997c787e9523a145113 100644 (file)
--- a/examples/EsdPlayerExample.hs
+++ b/examples/EsdPlayerExample.hs
@@ -1,9 +1,17 @@
+{-# LANGUAGE
+    UnicodeSyntax
+  #-}
 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 = 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"