X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=cbits%2FrunProcess.c;h=a0c2453b2e0dfa4520c020539e112b3d99a718e6;hb=d50c1eee6e446d385357f4d7079d700ed3275d74;hp=0a69421e630ee6391c48566790b66f579f580998;hpb=42687af2c43217b778a64cf836a4c63a99a5243f;p=haskell-directory.git

diff --git a/cbits/runProcess.c b/cbits/runProcess.c
index 0a69421..a0c2453 100644
--- a/cbits/runProcess.c
+++ b/cbits/runProcess.c
@@ -518,8 +518,6 @@ terminateProcess (ProcHandle handle)
 	maperrno();
 	return -1;
     }
-
-    CloseHandle((HANDLE) handle);
     return 0;
 }
 
@@ -535,8 +533,6 @@ getProcessExitCode (ProcHandle handle, int *pExitCode)
 	    maperrno();
 	    return -1;
 	}
-	
-	CloseHandle((HANDLE) handle);
 	return 1;
     }
     
@@ -555,8 +551,6 @@ waitForProcess (ProcHandle handle)
 	    maperrno();
 	    return -1;
 	}
-	
-	CloseHandle((HANDLE) handle);
 	return retCode;
     }