Fixed a crash after the stop command. Still unstable, probably due to…

… terminateProcess.
ndmitchell · Aug 10, 2007 · 10f1528 · 10f1528
1 parent b24a7ac
commit 10f1528
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Main.hs b/Main.hs
@@ -215,10 +215,11 @@ stopCommand dat = do
     case handles of
 	Nothing -> errorMessage dat "No compiler running to stop."
 	Just (Handles inp pid oid eid) -> do
-	    terminateProcess pid
-	    waitForProcess pid
 	    killThread oid
 	    killThread eid
+	    terminateProcess pid
+	    waitForProcess pid
+	    setHandles dat Nothing
 	    startEvaluator dat Nothing
 
 {-