X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=examples%2FEsdPlayerExample.hs;h=cddc9eb809a6a122baa61a3a6600a1d30795ac9e;hb=e8ea338a1b550c6c91726f1d30ad3416d73ec6af;hp=383001dafcbcf60f9b82991a18ed711043362f53;hpb=9aeab0af3051d079e774e6ce55928738db8ba8ac;p=EsounD.git

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