fix build and tests for ghc >8.6

This commit is contained in:
Ilya Rezvov
2020-01-13 21:56:06 -08:00
parent adeabf7e30
commit d7e1b803f5
6 changed files with 21 additions and 10 deletions
+2 -2
View File
@@ -194,12 +194,12 @@ runScript onAssertFail script = do
runAssert st assert@(AssertInvalid moduleDef failureString) =
let (_, m) = buildModule moduleDef in
case Validate.validate m of
Right _ -> onAssertFail "Invalid module pass validation" assert
Right _ -> onAssertFail "An invalid module passed validation step" assert
Left reason ->
if failureString `elem` getFailureString reason
then return ()
else
let msg = "Module invalid for other reason. Expected "
let msg = "Module is invalid for other reason. Expected "
++ show failureString
++ ", but actual is "
++ show (getFailureString reason)