examples/EsdPlayerExample.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   #-}
   4 module Main where
   5 import Control.Monad.Trans.Region
   6 import Data.Int
   7 import Sound.EsounD.Player
   8 import Sound.EsounD.Types
   9
  10 main ∷ IO ()
  11 main = runRegionT $
  12        do pl ← openPlayer 44100 Nothing Nothing
  13           playMono16Sine pl
  14
  15 playMono16Sine ∷ Monad m ⇒ Player Int16 Mono m → m ()
  16 playMono16Sine pl
  17     = fail "FIXME"