eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Fix spelling mistake

Browse source
This commit is contained in:
aaron levin 2015-08-19 15:49:04 -04:00 committed by aaron levin
parent dd003b6887
commit 3fb8f6ff66
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
servant-client/test/Servant/ClientSpec.hs
View file

@ -286,7 +286,7 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ do
Left res <- runExceptT (getPrivatePerson (BasicAuth "xxx" "yyy")) Left res <- runExceptT (getPrivatePerson (BasicAuth "xxx" "yyy"))
case res of case res of
FailureResponse (Status 401 _) _ _ -> return () FailureResponse (Status 401 _) _ _ -> return ()
_ -> fail $ "expcted 401 response, but got " <> show res _ -> fail $ "expected 401 response, but got " <> show res
modifyMaxSuccess (const 20) $ do modifyMaxSuccess (const 20) $ do
it "works for a combination of Capture, QueryParam, QueryFlag and ReqBody" $ \(_, baseUrl) -> it "works for a combination of Capture, QueryParam, QueryFlag and ReqBody" $ \(_, baseUrl) ->