jack-0.5: examples/Amplify.hs

{-# options -O2 #-}
module Main where

import Foreign.C.Types (CFloat)
import qualified Sound.JACK as Jack

main :: IO ()
main = Jack.mainStereo foo

foo :: (CFloat, CFloat) -> IO (CFloat, CFloat)
foo (a, b) = return (a, b)