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
) 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