X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FEsdPlayerExample.hs;h=e25b1bee9baf075763fe4a2e87e324de5390a947;hb=4570a37d1fc8f21a4ee1221c6ed289d281f1b005;hp=126e1fea93c7dd1de1d0d9f7bc2e52c51b969bef;hpb=9be39a0e8dc40b5fbd3280a5d06f7a85626e0b33;p=EsounD.git

diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs
index 126e1fe..e25b1be 100644
--- a/examples/EsdPlayerExample.hs
+++ b/examples/EsdPlayerExample.hs
@@ -24,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
@@ -46,4 +46,4 @@ playMono16Sine pl sampleFreq sec noteFreq
             2
             ⋅ π
             ⋅ noteFreq
-            ⋅ (realToFrac n / realToFrac sampleFreq)
+            ⋅ (realToFrac n ÷ realToFrac sampleFreq)