From 9307ec526308f55340b95e199d6aad0850d17d04 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt <m@jaspervdj.be>
Date: Sat, 10 Jan 2015 22:15:51 +0100
Subject: Ensure "Listening on 0.0.0.0:8000" message is not garbled
---
tests/Hakyll/Core/Runtime/Tests.hs | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
(limited to 'tests/Hakyll')
diff --git a/tests/Hakyll/Core/Runtime/Tests.hs b/tests/Hakyll/Core/Runtime/Tests.hs
index 1ca8dc1..73a3c6b 100644
--- a/tests/Hakyll/Core/Runtime/Tests.hs
+++ b/tests/Hakyll/Core/Runtime/Tests.hs
@@ -28,7 +28,8 @@ tests = testGroup "Hakyll.Core.Runtime.Tests" $
--------------------------------------------------------------------------------
case01 :: Assertion
case01 = do
- _ <- run testConfiguration Logger.Error $ do
+ logger <- Logger.new Logger.Error
+ _ <- run testConfiguration logger $ do
match "images/*" $ do
route idRoute
compile copyFileCompiler
@@ -65,7 +66,8 @@ case01 = do
--------------------------------------------------------------------------------
case02 :: Assertion
case02 = do
- _ <- run testConfiguration Logger.Error $ do
+ logger <- Logger.new Logger.Error
+ _ <- run testConfiguration logger $ do
match "images/favicon.ico" $ do
route $ gsubRoute "images/" (const "")
compile $ makeItem ("Test" :: String)
--
cgit v1.2.3