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 Arian van Putten
parent 30340b5b11
commit 1ba6dc8300
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

@ -283,7 +283,7 @@ spec = withServer $ \ baseUrl -> 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" $ it "works for a combination of Capture, QueryParam, QueryFlag and ReqBody" $