diff options
author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-01-26 17:04:17 +0100 |
---|---|---|
committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-01-26 17:04:17 +0100 |
commit | 304e7615ddee7a8b1d8f7d7690c8da57f8a2704e (patch) | |
tree | d1fa6caef394cfc6b896071c9139e942205c4da0 /trivmix | |
parent | 649796f438107a0229a57cbbb6248c5801270ac8 (diff) | |
download | trivmix-304e7615ddee7a8b1d8f7d7690c8da57f8a2704e.tar trivmix-304e7615ddee7a8b1d8f7d7690c8da57f8a2704e.tar.gz trivmix-304e7615ddee7a8b1d8f7d7690c8da57f8a2704e.tar.bz2 trivmix-304e7615ddee7a8b1d8f7d7690c8da57f8a2704e.tar.xz trivmix-304e7615ddee7a8b1d8f7d7690c8da57f8a2704e.zip |
Fix type error
Diffstat (limited to 'trivmix')
-rw-r--r-- | trivmix/Trivmix.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs index 68fb8bf..b437abc 100644 --- a/trivmix/Trivmix.hs +++ b/trivmix/Trivmix.hs | |||
@@ -139,7 +139,7 @@ trivmix Options{..} = do | |||
139 | (_, _, _, ph) <- createProcess $ (proc run' [client ++ ":" ++ input, client ++ ":" ++ output]) { delegate_ctlc = True } | 139 | (_, _, _, ph) <- createProcess $ (proc run' [client ++ ":" ++ input, client ++ ":" ++ output]) { delegate_ctlc = True } |
140 | return () | 140 | return () |
141 | Audio.withProcessMono client' input' (mix level') output' $ | 141 | Audio.withProcessMono client' input' (mix level') output' $ |
142 | Jack.withActivation client' . forever $ threadDelay 10e6 | 142 | Jack.withActivation client' . forever . Trans.lift $ threadDelay 1000000 |
143 | 143 | ||
144 | mix :: MVar Level -> CFloat -> IO CFloat | 144 | mix :: MVar Level -> CFloat -> IO CFloat |
145 | mix level input = do | 145 | mix level input = do |