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" $