addTagsToResource.dhall 198 B

123456789
  1. λ(tags : List Text) →
  2. λ(r : ../types/Resource.dhall) →
  3. r
  4. ⫽ { tags =
  5. merge
  6. { None = Some tags, Some = λ(ts : List Text) → Some (ts # tags) }
  7. r.tags
  8. }