haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix warning in test code

Browse Source
This commit is contained in:
Sibi Prabakaran 2017-07-28 16:58:11 +05:30
parent 617591aa4e
commit 19ff5c2006
No known key found for this signature in database
GPG Key ID: D19E3E0EBB557613
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-core/test/YesodCoreTest/Header.hs
View File

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