X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=examples%2FEsdPlayerExample.hs;fp=examples%2FEsdPlayerExample.hs;h=1083e8b70e850d260483c997c787e9523a145113;hp=1d3ec4f311836b4703ceb2d3a458701446f1b943;hb=d6ea0404a5d1fc5356a5b121b45f277d735359ad;hpb=bb3dbc2442352e09bafe4415d3784f7f61230b17

diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs
index 1d3ec4f..1083e8b 100644
--- 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"