From 3fb8f6ff6696683ba25b957af429fcb0c613ff23 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 f82da60a..61acc2ff 100644 --- a/servant-client/test/Servant/ClientSpec.hs +++ b/servant-client/test/Servant/ClientSpec.hs @@ -286,7 +286,7 @@ sucessSpec = beforeAll (startWaiApp server) $ afterAll endWaiApp $ 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" $ \(_, baseUrl) ->