X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=EsounD.git;a=blobdiff_plain;f=examples%2FEsdPlayerExample.hs;fp=examples%2FEsdPlayerExample.hs;h=e25b1bee9baf075763fe4a2e87e324de5390a947;hp=cddc9eb809a6a122baa61a3a6600a1d30795ac9e;hb=4570a37d1fc8f21a4ee1221c6ed289d281f1b005;hpb=e8ea338a1b550c6c91726f1d30ad3416d73ec6af diff --git a/examples/EsdPlayerExample.hs b/examples/EsdPlayerExample.hs index cddc9eb..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