@@ -174,7 +174,9 @@ assertDoesNotCompile inputFiles foreigns = do
174 Left errs -> do
174 Left errs -> do
175 putStrLn (P.prettyPrintMultipleErrors False errs)
175 putStrLn (P.prettyPrintMultipleErrors False errs)
176 return $ if null shouldFailWith
176 return $ if null shouldFailWith
177− then Just $ "shouldFailWith declaration is missing"
177+ then Just $ "shouldFailWith declaration is missing (errors were: "
178+ ++ show (map P.errorCode (P.runMultipleErrors errs))
178 else checkShouldFailWith shouldFailWith errs
180 else checkShouldFailWith shouldFailWith errs
179 Right _ ->
181 Right _ ->
180 return $ Just "Should not have compiled"
182 return $ Just "Should not have compiled"