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