Make failing startup scripts nonfatal

1 files changed, 7 insertions, 5 deletions

diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index cf9587f..fdd94b4 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -26,6 +26,7 @@ import qualified Control.Monad.Exception.Synchronous as Sync
 import Control.Exception
 import System.IO.Error
 import System.IO
+import System.Exit
 
 import System.FileLock
 import System.INotify
@@ -136,11 +137,12 @@ trivmix Options{..} = do
     Jack.handleExceptions $
       Jack.withClientDefault client $ \client' ->
       Jack.withPort client' input $ \input' ->
-      Jack.withPort client' output $ \output' -> do
-        Trans.lift $ do
-          mapM_ (flip callProcess [client ++ ":" ++ input, client ++ ":" ++ output]) run
-        Audio.withProcessMono client' input' (mix level') output' $
-          Jack.withActivation client' . forever . Trans.lift $ threadDelay 1000000
+      Jack.withPort client' output $ \output' ->
+      Audio.withProcessMono client' input' (mix level') output' $
+        Jack.withActivation client' . Trans.lift $ do
+          forM_ run $ \script ->
+            (callProcess script [client ++ ":" ++ input, client ++ ":" ++ output]) `catch` (\code -> hPutStrLn stderr $ script ++ " failed: " ++ show (code :: ExitCode))
+          forever $ threadDelay 1000000
 
 mix :: MVar Level -> CFloat -> IO CFloat
 mix level input = do