From 1ba6dc8300ec477736643c434d395bbab146d34b Mon Sep 17 00:00:00 2001 From: aaron levin Date: Wed, 19 Aug 2015 15:49:04 -0400 Subject: [PATCH] Fix spelling mistake --- servant-client/test/Servant/ClientSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/servant-client/test/Servant/ClientSpec.hs b/servant-client/test/Servant/ClientSpec.hs index 5acac845..2b291fe3 100644 --- a/servant-client/test/Servant/ClientSpec.hs +++ b/servant-client/test/Servant/ClientSpec.hs @@ -283,7 +283,7 @@ spec = withServer $ \ baseUrl -> do Left res <- runExceptT (getPrivatePerson (BasicAuth "xxx" "yyy")) case res of FailureResponse (Status 401 _) _ _ -> return () - _ -> fail $ "expcted 401 response, but got " <> show res + _ -> fail $ "expected 401 response, but got " <> show res modifyMaxSuccess (const 20) $ do it "works for a combination of Capture, QueryParam, QueryFlag and ReqBody" $