From 030864a921d38405778ddeb1286e8922955c8ab4 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Mon, 18 Dec 2017 20:05:28 +0100
Subject: Fix warnings and errors

---
 tests/TestSuite/Util.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'tests/TestSuite')

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"
 
 
 --------------------------------------------------------------------------------
-- 
cgit v1.2.3