From 76989db77a31f9ba4bbdf0c5fcb4f8239f46ff00 Mon Sep 17 00:00:00 2001 From: Masahiro Sakai Date: Fri, 21 Jul 2023 19:10:11 +0900 Subject: [PATCH] [haskell] fix exampe code in generated README.md (#16142) * [haskell] fix exampe code in generated README.md Since create{{title}}Client is not a monadic action, we need to use "let" instead of "<-". * regenerate samples --- .../src/main/resources/haskell-servant/README.mustache | 2 +- samples/server/petstore/haskell-servant/README.md | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/modules/openapi-generator/src/main/resources/haskell-servant/README.mustache b/modules/openapi-generator/src/main/resources/haskell-servant/README.mustache index 359ba55c0f9..9836b246536 100644 --- a/modules/openapi-generator/src/main/resources/haskell-servant/README.mustache +++ b/modules/openapi-generator/src/main/resources/haskell-servant/README.mustache @@ -50,7 +50,7 @@ main = do manager <- newManager tlsManagerSettings -- Create the client (all endpoint functions will be available) - {{title}}Backend{..} <- API.create{{title}}Client + let {{title}}Backend{..} = API.create{{title}}Client -- Any {{title}} API call can go here, e.g. here we call `getSomeEndpoint` API.call{{title}} (mkClientEnv manager url) getSomeEndpoint diff --git a/samples/server/petstore/haskell-servant/README.md b/samples/server/petstore/haskell-servant/README.md index 0b315e40a84..68f36b46eac 100644 --- a/samples/server/petstore/haskell-servant/README.md +++ b/samples/server/petstore/haskell-servant/README.md @@ -50,7 +50,7 @@ main = do manager <- newManager tlsManagerSettings -- Create the client (all endpoint functions will be available) - OpenAPIPetstoreBackend{..} <- API.createOpenAPIPetstoreClient + let OpenAPIPetstoreBackend{..} = API.createOpenAPIPetstoreClient -- Any OpenAPIPetstore API call can go here, e.g. here we call `getSomeEndpoint` API.callOpenAPIPetstore (mkClientEnv manager url) getSomeEndpoint