Function renderSimplyDecoratedSafe

packages/printer/src/internal/docTree.ts:296–341

(
  self: DocTree.DocTree<A>,
  M: monoid.Monoid<M>,
  renderText: (text: string) => M,
  renderAnnotation: (annotation: A, out: M) => M
)

)

const renderSimplyDecoratedSafe = <A, M>(
  self: DocTree.DocTree<A>,
  M: monoid.Monoid<M>,
  renderText: (text: string) => M,
  renderAnnotation: (annotation: A, out: M) => M
): Effect.Effect<M> => {
  switch (self._tag) {
    case "EmptyTree": {
      return Effect.succeed(M.empty)
    }
    case "CharTree": {
      return Effect.succeed(renderText(self.char))
    }
    case "TextTree": {
      return Effect.succeed(renderText(self.text))
    }
    case "LineTree": {
      return Effect.succeed(
        M.combine(renderText("\n"), renderText(doc.textSpaces(self.indentation)))
      )
    }
    case "AnnotationTree": {
      return Effect.map(
        Effect.suspend(() => renderSimplyDecoratedSafe(self.tree, M, renderText, renderAnnotation)),
        (out) => renderAnnotation(self.annotation, out)
      )
    }
    case "ConcatTree": {
      if (Arr.isEmptyReadonlyArray(self.trees)) {
        return Effect.succeed(M.empty)
      }
      const head = self.trees[0]
      const tail = self.trees.slice(1)
      return Arr.reduce(
        tail,
        Effect.suspend(() => renderSimplyDecoratedSafe(head, M, renderText, renderAnnotation)),
        (acc, tree) =>
          Effect.zipWith(
            acc,
            Effect.suspend(() => renderSimplyDecoratedSafe(tree, M, renderText, renderAnnotation)),
            M.combine
          )
      )
    }
  }
}

// -----------------------------------------------------------------------------
// Conversions