Fix dependence on stdin

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
 
 defDirectoryMode :: FileMode
 defDirectoryMode = foldl unionFileModes nullFileMode [ ownerModes
-                                                     , groupModes
+                                                     , groupReadMode
+                                                     , groupExecuteMode
                                                      , otherReadMode
                                                      , otherExecuteMode
                                                      ]
@@ -138,7 +139,7 @@ trivmix Options{..} = do
               (_, _, _, ph) <- createProcess $ (proc run' [client ++ ":" ++ input, client ++ ":" ++ output]) { delegate_ctlc = True }
               return ()
         Audio.withProcessMono client' input' (mix level') output' $
-          Jack.withActivation client' $ Trans.lift Jack.waitForBreak
+          Jack.withActivation client' . forever $ threadDelay 10e6
 
 mix :: MVar Level -> CFloat -> IO CFloat
 mix level input = do