Comment out flaky test case to be revisited

Author: lukel97

test/functional/CompletionSpec.hs

@@ -138,16 +138,17 @@ spec = describe "completions" $ do
         compls `shouldContainCompl` "abs" 
         compls `shouldNotContainCompl` "Applicative"
 
-    it "completes qualified type suggestions" $ runSession hieCommand fullCaps "test/testdata/completion" $ do
-      doc <- openDoc "Context.hs" "haskell"
-      _ <- skipManyTill loggingNotification (count 2 noDiagnostics)
-      let te = TextEdit (Range (Position 2 17) (Position 2 17)) " -> Conc."
-      _ <- applyEdit doc te
-      compls <- getCompletions doc (Position 2 26)
-      liftIO $ do
-        compls `shouldNotContainCompl` "forkOn"
-        compls `shouldContainCompl` "MVar"
-        compls `shouldContainCompl` "Chan"
+    -- This currently fails if it takes too long to typecheck the module
+    -- it "completes qualified type suggestions" $ runSession hieCommand fullCaps "test/testdata/completion" $ do
+    --   doc <- openDoc "Context.hs" "haskell"
+    --   _ <- skipManyTill loggingNotification (count 2 noDiagnostics)
+    --   let te = TextEdit (Range (Position 2 17) (Position 2 17)) " -> Conc."
+    --   _ <- applyEdit doc te
+    --   compls <- getCompletions doc (Position 2 26)
+    --   liftIO $ do
+    --     compls `shouldNotContainCompl` "forkOn"
+    --     compls `shouldContainCompl` "MVar"
+    --     compls `shouldContainCompl` "Chan"
 
   it "have implicit foralls on basic polymorphic types" $ runSession hieCommand fullCaps "test/testdata/completion" $ do
     doc <- openDoc "Completion.hs" "haskell"