loafle/openapi-generator
3
0
Fork 0
forked from loafle/openapi-generator-original
Code Pull Requests Activity

[haskell-http-client] add support for enums (#6803)

Browse Source 
* support enums for models and operation parameters

* add generateEnums cli option (default: true)

* bump stack resolver: lts-9.10
This commit is contained in:
Jon Schoning
2017-10-28 11:45:13 -05:00
committed by wing328
parent b259f3bb8b
commit 4fc52c5524
42 changed files with 3629 additions and 2709 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -104,7 +104,9 @@ runPet mgr config = do
Right r -> putStrLn $ "getPetById: found pet: " <> show r -- display 'Pet' model object, r
-- findPetsByStatus
let findPetsByStatusRequest = S.findPetsByStatus (S.Status ["available","pending","sold"])
let findPetsByStatusRequest = S.findPetsByStatus (S.Status [ S.E'Status2'Available
, S.E'Status2'Pending
, S.E'Status2'Sold])
findPetsByStatusResult <- S.dispatchMime mgr config findPetsByStatusRequest S.MimeJSON
mapM_ (\r -> putStrLn $ "findPetsByStatus: found " <> (show . length) r <> " pets") findPetsByStatusResult
@@ -115,7 +117,7 @@ runPet mgr config = do
-- updatePet
let updatePetRequest = S.updatePet S.MimeJSON $ pet
{ S.petStatus = Just "available"
{ S.petStatus = Just S.E'Status2'Available
, S.petCategory = Just (S.Category (Just 3) (Just "catname"))
}
_ <- S.dispatchLbs mgr config updatePetRequest S.MimeXML