Always close pipe on job forking

...even if the initial hand shake succeeded.

Signed-off-by: Klaus Aehlig <aehlig@google.com>
Reviewed-by: Petr Pudlak <pudlak@google.com>

diff --git a/src/Ganeti/Query/Exec.hs b/src/Ganeti/Query/Exec.hs
index b64b78d..92a9200 100644 (file)
--- a/src/Ganeti/Query/Exec.hs
+++ b/src/Ganeti/Query/Exec.hs
@@ -275,4 +275,6 @@ forkJobProcess jid luxiLivelock update = do
       _ <- recv "Waiting for the job to ask for the lock file name"
       send "Writing the lock file name to the client" lockfile
 
+      liftIO $ closeClient master
+
       return (lockfile, pid)