use waitForBuildQueue in golden test helpers

Author: pepeiborra

hls-test-utils/src/Test/Hls.hs

@@ -30,7 +30,7 @@ import           Control.Applicative.Combinators
 import           Control.Concurrent.Async          (async, cancel, wait)
 import           Control.Concurrent.Extra
 import           Control.Exception.Base
-import           Control.Monad                     (unless)
+import           Control.Monad                     (unless, void)
 import           Control.Monad.IO.Class
 import           Data.Aeson                        (Value (Null), toJSON)
 import           Data.ByteString.Lazy              (ByteString)
@@ -95,6 +95,7 @@ goldenWithHaskellDoc plugin title testDataDir path desc ext act =
   $ TL.encodeUtf8 . TL.fromStrict
   <$> do
     doc <- openDoc (path <.> ext) "haskell"
+    void waitForBuildQueue
     act doc
     documentContents doc
 
@@ -114,6 +115,7 @@ goldenWithHaskellDocFormatter plugin formatter title testDataDir path desc ext a
   $ TL.encodeUtf8 . TL.fromStrict
   <$> do
     doc <- openDoc (path <.> ext) "haskell"
+    void waitForBuildQueue
     act doc
     documentContents doc