Permalink
Browse files

don't kill threads before doing anything

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

0 comments on commit 9b8a049

Please sign in to comment.