From: Luke Lau <luke_lau@icloud.com>
Date: Fri, 29 Jun 2018 01:00:00 +0000 (+0100)
Subject: Fix duplicate messages
X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=commitdiff_plain;h=0da56e90a0fd4ada9acb01ca9ce769c5924653ec

Fix duplicate messages
---

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.