...even if the initial hand shake succeeded.

Signed-off-by: Klaus Aehlig <[email protected]>
---
 src/Ganeti/Query/Exec.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Ganeti/Query/Exec.hs b/src/Ganeti/Query/Exec.hs
index b64b78d..92a9200 100644
--- 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)
-- 
2.2.0.rc0.207.ga3a616c

Reply via email to