Update test/exe/Main.hs

Co-Authored-By: Moritz Kiefer <[email protected]>
haskell · Jan 10, 2020 · a2dace8 · a2dace8
1 parent d074a39
commit a2dace8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/exe/Main.hs b/test/exe/Main.hs
@@ -1604,7 +1604,9 @@ findCodeActions doc range expectedTitles = do
             ]
             ++ "is not a superset of "
             ++ show expectedTitles
-  liftIO $ assertBool msg (isJust matches)
+  case matches of
+    Nothing -> assertFailure msg
+    Just matches -> pure matches
   return (fromJust matches)
 
 findCodeAction :: TextDocumentIdentifier -> Range -> T.Text -> Session CodeAction