summaryrefslogtreecommitdiff
path: root/trivmix/Trivmix.hs
diff options
context:
space:
mode:
Diffstat (limited to 'trivmix/Trivmix.hs')
-rw-r--r--trivmix/Trivmix.hs5
1 files changed, 3 insertions, 2 deletions
diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index a0c974c..68fb8bf 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -97,7 +97,8 @@ defFileMode = foldl unionFileModes nullFileMode [ ownerReadMode
97 97
98defDirectoryMode :: FileMode 98defDirectoryMode :: FileMode
99defDirectoryMode = foldl unionFileModes nullFileMode [ ownerModes 99defDirectoryMode = foldl unionFileModes nullFileMode [ ownerModes
100 , groupModes 100 , groupReadMode
101 , groupExecuteMode
101 , otherReadMode 102 , otherReadMode
102 , otherExecuteMode 103 , otherExecuteMode
103 ] 104 ]
@@ -138,7 +139,7 @@ trivmix Options{..} = do
138 (_, _, _, ph) <- createProcess $ (proc run' [client ++ ":" ++ input, client ++ ":" ++ output]) { delegate_ctlc = True } 139 (_, _, _, ph) <- createProcess $ (proc run' [client ++ ":" ++ input, client ++ ":" ++ output]) { delegate_ctlc = True }
139 return () 140 return ()
140 Audio.withProcessMono client' input' (mix level') output' $ 141 Audio.withProcessMono client' input' (mix level') output' $
141 Jack.withActivation client' $ Trans.lift Jack.waitForBreak 142 Jack.withActivation client' . forever $ threadDelay 10e6
142 143
143mix :: MVar Level -> CFloat -> IO CFloat 144mix :: MVar Level -> CFloat -> IO CFloat
144mix level input = do 145mix level input = do