X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FParsing.hs;h=b28047ce0f93ac75fee9f54fad0581ab39d9ebf7;hp=db5e4433b582dde899d7b0ae908eb1fa52b4a850;hb=0da56e90a0fd4ada9acb01ca9ce769c5924653ec;hpb=563d0885c5cf4456ea04c041771d68dca5c274d4

diff --git a/src/Language/Haskell/LSP/Test/Parsing.hs b/src/Language/Haskell/LSP/Test/Parsing.hs
index db5e443..b28047c 100644
--- a/src/Language/Haskell/LSP/Test/Parsing.hs
+++ b/src/Language/Haskell/LSP/Test/Parsing.hs
@@ -29,13 +29,13 @@ satisfy pred = do
   x <- await
   liftIO $ killThread timeoutThread
 
+  if pred x
+    then do
       liftIO $ do
         setSGR [SetColor Foreground Vivid Magenta]
         putStrLn $ "<-- " ++ B.unpack (encodeMsg x)
         setSGR [Reset]
-
-  if pred x
-    then return x
+      return x
     else empty
 
 -- | Matches if the message is a notification.