From 19ff5c2006469ec82206bc6c4b7ac62f6ec2cb23 Mon Sep 17 00:00:00 2001
From: Sibi Prabakaran <sibi@psibi.in>
Date: Fri, 28 Jul 2017 16:58:11 +0530
Subject: [PATCH] Fix warning in test code

---
 yesod-core/test/YesodCoreTest/Header.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/yesod-core/test/YesodCoreTest/Header.hs b/yesod-core/test/YesodCoreTest/Header.hs
index aaf74a3a..75d038c8 100644
--- a/yesod-core/test/YesodCoreTest/Header.hs
+++ b/yesod-core/test/YesodCoreTest/Header.hs
@@ -7,15 +7,12 @@ module YesodCoreTest.Header
   , resourcesApp
   ) where
 
-import Data.ByteString.Lazy (ByteString)
-import qualified Data.Map as Map
 import Data.Text (Text)
-import Network.HTTP.Types (decodePathSegments, status200)
+import Network.HTTP.Types (decodePathSegments)
 import Network.Wai
 import Network.Wai.Test
 import Test.Hspec
 import Yesod.Core
-import Yesod.Core.Handler
 
 data App =
   App
@@ -67,11 +64,11 @@ multipleHeaderTest =
 header3Test :: IO ()
 header3Test = do
   runner $ do
-    res <- request defaultRequest { pathInfo = decodePathSegments "/header3"}
+    res <- request defaultRequest {pathInfo = decodePathSegments "/header3"}
     assertHeader "hello" "world" res
     assertHeader "michael" "snoyman" res
     assertHeader "yesod" "book" res
-                 
+
 headerTest :: Spec
 headerTest =
   describe "Test.Header" $ do