diff options
| -rw-r--r-- | libraries/libiserv/src/Remote/Slave.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libraries/libiserv/src/Remote/Slave.hs b/libraries/libiserv/src/Remote/Slave.hs index 577161f35f..4c150becfa 100644 --- a/libraries/libiserv/src/Remote/Slave.hs +++ b/libraries/libiserv/src/Remote/Slave.hs @@ -62,11 +62,12 @@ startSlave' verbose base_path port = do hSetBuffering stdout LineBuffering sock <- openSocket port + actualPort <- socketPort sock + putStrLn $ "Listening on port " ++ show actualPort forever $ do when verbose $ trace "Opening socket" pipe <- acceptSocket sock >>= socketToPipe - putStrLn $ "Listening on port " ++ show port when verbose $ trace "Starting serv" uninterruptibleMask $ serv verbose (hook verbose base_path pipe) pipe when verbose $ trace "serv ended" |