Function formatTree

packages/effect/src/ParseResult.ts:1901–1944

(issue: ParseIssue)

}

const formatTree = (issue: ParseIssue): Effect.Effect<Tree<string>> => {
  switch (issue._tag) {
    case "Type":
      return map(formatTypeMessage(issue), makeTree)
    case "Forbidden":
      return Either.right(makeTree(getParseIssueTitle(issue), [makeTree(formatForbiddenMessage(issue))]))
    case "Unexpected":
      return Either.right(makeTree(formatUnexpectedMessage(issue)))
    case "Missing":
      return map(formatMissingMessage(issue), makeTree)
    case "Transformation":
      return flatMap(getMessage(issue), (message) => {
        if (message !== undefined) {
          return Either.right(makeTree(message))
        }
        return map(
          formatTree(issue.issue),
          (tree) => makeTree(getParseIssueTitle(issue), [makeTree(formatTransformationKind(issue.kind), [tree])])
        )
      })
    case "Refinement":
      return flatMap(getMessage(issue), (message) => {
        if (message !== undefined) {
          return Either.right(makeTree(message))
        }
        return map(
          formatTree(issue.issue),
          (tree) => makeTree(getParseIssueTitle(issue), [makeTree(formatRefinementKind(issue.kind), [tree])])
        )
      })
    case "Pointer":
      return map(formatTree(issue.issue), (tree) => makeTree(util_.formatPath(issue.path), [tree]))
    case "Composite":
      return flatMap(getMessage(issue), (message) => {
        if (message !== undefined) {
          return Either.right(makeTree(message))
        }
        const parseIssueTitle = getParseIssueTitle(issue)
        return util_.isNonEmpty(issue.issues)
          ? map(Effect.forEach(issue.issues, formatTree), (forest) => makeTree(parseIssueTitle, forest))
          : map(formatTree(issue.issues), (tree) => makeTree(parseIssueTitle, [tree]))
      })
  }
}

/**
 * Represents an issue returned by the {@link ArrayFormatter} formatter.