updating things to prepare EsounD-0.2

[EsounD.git] / examples / EsdPlayerExample.hs

diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs
index 383001dafcbcf60f9b82991a18ed711043362f53..e25b1bee9baf075763fe4a2e87e324de5390a947 100644 (file)
--- a/examples/EsdPlayerExample.hs
+++ b/examples/EsdPlayerExample.hs
@@ -7,9 +7,7 @@ import Control.Monad.Trans.Region
 import Data.Int
 import qualified Data.StorableVector.Lazy as L
 import Prelude.Unicode
-import Sound.EsounD.Player
-import Sound.EsounD.Streams
-import Sound.EsounD.Types
+import Sound.EsounD
 
 main ∷ IO ()
 main = runRegionT $
@@ -26,7 +24,7 @@ playMono16Sine ∷ ( AncestorRegion pr cr
                → Double
                → cr ()
 playMono16Sine pl sampleFreq sec noteFreq
-    = write pl buffer
+    = writeFrames pl buffer
     where
       buffer ∷ L.Vector Int16
       buffer = L.pack L.defaultChunkSize frames
@@ -48,4 +46,4 @@ playMono16Sine pl sampleFreq sec noteFreq
             2
             ⋅ π
             ⋅ noteFreq
-            ⋅ (realToFrac n / realToFrac sampleFreq)
+            ⋅ (realToFrac n ÷ realToFrac sampleFreq)