diff options
Diffstat (limited to 'trivmix/Trivmix.hs')
-rw-r--r-- | trivmix/Trivmix.hs | 5 |
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 | ||
98 | defDirectoryMode :: FileMode | 98 | defDirectoryMode :: FileMode |
99 | defDirectoryMode = foldl unionFileModes nullFileMode [ ownerModes | 99 | defDirectoryMode = 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 | ||
143 | mix :: MVar Level -> CFloat -> IO CFloat | 144 | mix :: MVar Level -> CFloat -> IO CFloat |
144 | mix level input = do | 145 | mix level input = do |