projects
/
opengl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Allow message types to be infered
[opengl.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Replay.hs
diff --git
a/src/Language/Haskell/LSP/Test/Replay.hs
b/src/Language/Haskell/LSP/Test/Replay.hs
index 72fb0d6e2541706dee6ec2c7d3a214961918c8c9..2b55382959dd109e0b2a4beec982699db48f4361 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Replay.hs
+++ b/
src/Language/Haskell/LSP/Test/Replay.hs
@@
-129,7
+129,7
@@
listenServer expectedMsgs reqMap reqSema rspSema passVar serverOut = do
print msg
putStrLn "Expected one of:"
mapM_ print $ takeWhile (not . isNotification) expectedMsgs
- print $ head $ dropWhile
(not . isNotification)
expectedMsgs
+ print $ head $ dropWhile
isNotification
expectedMsgs
putMVar passVar False
where