loafle/openapi-generator-original
3
0
Fork 1
mirror of https://github.com/OpenAPITools/openapi-generator.git synced 2025-12-06 08:06:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

[haskell-http-client] regen samples (#492)

Browse Source
This commit is contained in:
Jon Schoning
2018-07-07 23:46:35 -05:00
committed by William Cheng
parent a14e757059
commit 79fafda012
51 changed files with 3627 additions and 2916 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
samples/client/petstore/haskell-http-client/example-app/Main.hs
View File

@@ -135,7 +135,7 @@ runPet mgr config = do
-- multipart/form-data file uploads are just a different content-type
let uploadFileRequest = S.uploadFile (S.PetId pid)
`S.applyOptionalParam` S.File "package.yaml" -- the file contents of the path are read when dispatched
`S.applyOptionalParam` S.File2 "package.yaml" -- the file contents of the path are read when dispatched
`S.applyOptionalParam` S.AdditionalMetadata "a package.yaml file"
uploadFileRequestResult <- S.dispatchMime mgr config uploadFileRequest
mapM_ (\r -> putStrLn $ "uploadFile: " <> show r) uploadFileRequestResult