diff options
| author | Jasper Van der Jeugt <m@jaspervdj.be> | 2017-12-18 20:05:28 +0100 |
|---|---|---|
| committer | Jasper Van der Jeugt <m@jaspervdj.be> | 2017-12-18 20:05:28 +0100 |
| commit | 030864a921d38405778ddeb1286e8922955c8ab4 (patch) | |
| tree | 81b65317f3b48dd39f192739dcc39b5adac35c5f /tests/TestSuite | |
| parent | 7634b44e4ad9f6a0ba77c377eb1ee43085687789 (diff) | |
| download | hakyll-030864a921d38405778ddeb1286e8922955c8ab4.tar.gz | |
Fix warnings and errors
Diffstat (limited to 'tests/TestSuite')
| -rw-r--r-- | tests/TestSuite/Util.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs index 35ee112..33b26ef 100644 --- a/tests/TestSuite/Util.hs +++ b/tests/TestSuite/Util.hs @@ -76,13 +76,14 @@ testCompilerDone store provider underlying compiler = do result <- testCompiler store provider underlying compiler case result of CompilerDone x _ -> return x - CompilerError e -> error $ + CompilerError e -> fail $ "TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++ " threw: " ++ intercalate "; " e - CompilerRequire i _ -> error $ + CompilerRequire i _ -> fail $ "TestSuite.Util.testCompilerDone: compiler " ++ show underlying ++ " requires: " ++ show i - + CompilerSnapshot _ _ -> fail + "TestSuite.Util.testCompilerDone: unexpected CompilerSnapshot" -------------------------------------------------------------------------------- |