Permalink
Browse files

remember to kill the threads

  • Loading branch information...
1 parent de08f18 commit cc7258bd73eefd61ac9b22279149cf0215508908 @mikeplus64 committed Feb 2, 2013
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Language/Haskell/Repl.hs
View
3 src/Language/Haskell/Repl.hs
@@ -244,7 +244,8 @@ prompt_ repl x = do
newline
forM_ l push
putMVar final . OK =<< readIORef outputs
-
+
+ mapM_ killThread =<< readIORef threads
takeMVar final
where
trim = take (lineLength repl)

0 comments on commit cc7258b

Please sign in to comment.