examples/EsdPlayerExample.hs

   1 {-# LANGUAGE
   2     UnicodeSyntax
   3   #-}
   4 module Main where
   5 import Control.Monad.Trans.Region
   6 import Sound.EsounD.Player
   7
   8 main ∷ IO ()
   9 main = return ()
  10 {-
  11 main = runRegionT $
  12        do pl ← openPlayer 44100 "localhost" Nothing
  13           fail "FIXME"
  14 -}