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

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

View File

@@ -144,7 +144,7 @@ testPetOps mgr config =
_ -> pendingWith "no petId") $
it "uploadFile" $ \petId -> do
let uploadFileRequest = S.uploadFile (S.PetId petId)
`S.applyOptionalParam` S.File "package.yaml"
`S.applyOptionalParam` S.File2 "package.yaml"
`S.applyOptionalParam` S.AdditionalMetadata "a package.yaml file"
uploadFileRequestResult <- S.dispatchMime mgr config uploadFileRequest
NH.responseStatus (S.mimeResultResponse uploadFileRequestResult) `shouldBe` NH.status200