From 5b1a675b94deef7741d2fa3f4c619ce3634bfa4d Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 29 Dec 2012 10:41:05 +0100
Subject: Draft tool to check internal links

---
 tests/TestSuite/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'tests/TestSuite')

diff --git a/tests/TestSuite/Util.hs b/tests/TestSuite/Util.hs
index 7a2f0a7..7000f5d 100644
--- a/tests/TestSuite/Util.hs
+++ b/tests/TestSuite/Util.hs
@@ -68,7 +68,7 @@ newTestProvider store = newProvider store (const False) "tests/data"
 testCompiler :: Store -> Provider -> Identifier -> Compiler a
              -> IO (CompilerResult a)
 testCompiler store provider underlying compiler = do
-    logger <- Logger.new Logger.Debug (\_ -> return ())
+    logger <- Logger.new Logger.Error
     let read' = CompilerRead
             { compilerUnderlying = underlying
             , compilerProvider   = provider
-- 
cgit v1.2.3