Update test/exe/Main.hs

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