Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

remember to kill the threads

  • Loading branch information...
commit cc7258bd73eefd61ac9b22279149cf0215508908 1 parent de08f18
@mikeplus64 authored
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)
Please sign in to comment.
Something went wrong with that request. Please try again.