Skip to content
Browse files

don't kill threads before doing anything

  • Loading branch information...
1 parent cc7258b commit 9b8a049604264bce12994cf95742954d0542ea3d @mikeplus64 committed
Showing with 2 additions and 1 deletion.
  1. +2 −1 src/Language/Haskell/Repl.hs
View
3 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.
Something went wrong with that request. Please try again.