dhall-fly-0.2.0: dhall-concourse/render/groupedJobs.dhall

let Types = ../types/package.dhall

let Prelude = ../lib/prelude.dhall

in    λ(groupedJobs : List Types.GroupedJob)
    → let jobs =
            Prelude.List.map
              Types.GroupedJob
              Types.Job
              (λ(groupedJob : Types.GroupedJob) → groupedJob.job)
              groupedJobs

      let RenderedGroup = { name : Text, jobs : List Text }

      let jobGroups
          : List RenderedGroup
          = Prelude.List.concatMap
              Types.GroupedJob
              RenderedGroup
              (   λ(groupedJob : Types.GroupedJob)
                → Prelude.List.map
                    Text
                    RenderedGroup
                    (λ(g : Text) → { name = g, jobs = [ groupedJob.job.name ] })
                    groupedJob.groups
              )
              groupedJobs

      in  ./pipeline.dhall jobs ⫽ { groups = jobGroups }