systemd notify

1 files changed, 3 insertions, 0 deletions

diff --git a/trivmix/Trivmix.hs b/trivmix/Trivmix.hs
index 50caa1b..493c964 100644
--- a/trivmix/Trivmix.hs
+++ b/trivmix/Trivmix.hs
@@ -16,6 +16,8 @@ import System.Posix.Types
 import System.Environment
 import System.Process
 
+import System.Systemd.Daemon (notifyReady)
+
 import Control.Concurrent
 import Control.Concurrent.MVar
 import Control.Concurrent.Chan
@@ -142,6 +144,7 @@ trivmix Options{..} = do
         Jack.withActivation client' . Trans.lift $ do
           forM_ run $ \script ->
             (callProcess script [client ++ ":" ++ input, client ++ ":" ++ output]) `catch` (\code -> hPutStrLn stderr $ script ++ " failed: " ++ show (code :: ExitCode))
+          notifyReady
           forever $ threadDelay 1000000
 
 mix :: MVar Level -> CFloat -> IO CFloat