Function renderTreeSafe

packages/printer/test/docTree.test.ts:148–188

(
        tree: DocTree.DocTree<SimpleHtml>
      )

      }

      const renderTreeSafe = (
        tree: DocTree.DocTree<SimpleHtml>
      ): Effect.Effect<string> => {
        switch (tree._tag) {
          case "EmptyTree": {
            return Effect.succeed("")
          }
          case "CharTree": {
            return Effect.succeed(tree.char)
          }
          case "TextTree": {
            return Effect.succeed(tree.text)
          }
          case "LineTree": {
            return Effect.succeed("\n" + Doc.textSpaces(tree.indentation))
          }
          case "AnnotationTree": {
            return Effect.map(
              Effect.suspend(() => renderTreeSafe(tree.tree)),
              (content) => encloseInTag(content, tree.annotation)
            )
          }
          case "ConcatTree": {
            if (tree.trees.length === 0) {
              return Effect.succeed("")
            }
            const head = tree.trees[0]
            const tail = tree.trees.slice(1)
            return Array.reduce(
              tail,
              Effect.suspend(() => renderTreeSafe(head)),
              (acc, tree) =>
                Effect.zipWith(
                  acc,
                  Effect.suspend(() => renderTreeSafe(tree)),
                  (left, right) => left + right
                )
            )
          }
        }
      }

      const renderTree = (tree: DocTree.DocTree<SimpleHtml>): string => Effect.runSync(renderTreeSafe(tree))