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

[haskell-http-client] fixes for fake-endpoints (#6597)

Browse Source 
* fix compile errors / sanitization for petstore-with-fake-endpoints-models-for-testing.yaml
* correct mimetype logic
* add makefile
This commit is contained in:
Jon Schoning
2017-10-01 05:18:46 -05:00
committed by wing328
parent c32281cd02
commit 8bd7d3912b
59 changed files with 6972 additions and 2013 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

@@ -120,7 +120,7 @@ runPet mgr config = do
-- instance S.HasOptionalParam S.UpdatePetWithForm S.Status
-- -- Defined in ‘SwaggerPetstore.API’
let updatePetWithFormRequest = S.updatePetWithForm S.MimeFormUrlEncoded pid
`S.applyOptionalParam` S.Name "petName"
`S.applyOptionalParam` S.Name2 "petName"
`S.applyOptionalParam` S.Status "pending"
_ <- S.dispatchLbs mgr config updatePetWithFormRequest S.MimeJSON
@@ -133,7 +133,7 @@ runPet mgr config = do
-- deletePet
let deletePetRequest = S.deletePet pid
`S.applyOptionalParam` S.ApiUnderscorekey "api key"
`S.applyOptionalParam` S.ApiKey "api key"
_ <- S.dispatchLbs mgr config deletePetRequest S.MimeJSON
return ()
@@ -161,7 +161,7 @@ runStore mgr config = do
-- placeOrder
now <- TI.getCurrentTime
let placeOrderRequest = S.placeOrder S.MimeJSON (S.mkOrder { S.orderId = Just 21, S.orderQuantity = Just 210, S.orderShipDate = Just now})
let placeOrderRequest = S.placeOrder S.MimeJSON (S.mkOrder { S.orderId = Just 21, S.orderQuantity = Just 210, S.orderShipDate = Just (S.DateTime now)})
placeOrderResult <- S.dispatchMime mgr config placeOrderRequest S.MimeJSON
mapM_ (\r -> putStrLn $ "placeOrderResult: " <> show r) placeOrderResult