setPipelineStep.dhall 629 B

123456789101112131415161718192021
  1. let Types = ../types/package.dhall
  2. let RenderOptional = ./optionals/package.dhall
  3. let JSON = (../lib/prelude.dhall).JSON
  4. let render
  5. : Types.SetPipelineStep → Types.JSONObject
  6. = λ(s : Types.SetPipelineStep) →
  7. toMap
  8. { set_pipeline = JSON.string s.set_pipeline
  9. , file = JSON.string s.file
  10. , vars = RenderOptional.jsonObject s.vars
  11. , var_files = RenderOptional.lists.text s.var_files
  12. , tags = RenderOptional.lists.text s.tags
  13. , timeout = RenderOptional.text s.timeout
  14. , attempts = RenderOptional.natural s.attempts
  15. }
  16. in render