@nfdi4plants/arctrl 3.2.3 → 3.3.1

package/dist/ts/ts/fable_modules/YAMLicious.1.0.0/Reader.fs.js

@@ -1,1884 +0,0 @@
-import { parse } from '../../../node_modules/@fable-org/fable-library-ts/Int32.js';
-import { unescapeDoubleQuoted } from './Escapes.fs.js';
-import { PreprocessorElement_Line, ScalarStyle, YAMLContent_create_Z1C3A29C9, YAMLContent, YAMLElement_Comment$, YAMLElement, YAMLElement_Value, YAMLElement_Mapping, YAMLElement_Object$, YAMLElement_Sequence, ScalarStyle_Block, YAMLElement_Alias } from './YAMLiciousTypes.fs.js';
-import { match, create, replace } from '../../../node_modules/@fable-org/fable-library-ts/RegExp.js';
-import { concat, toFail, printf, substring, join, trimStart, split } from '../../../node_modules/@fable-org/fable-library-ts/String.js';
-import { value, unwrap } from '../../../node_modules/@fable-org/fable-library-ts/Option.js';
-import { getItemFromDict } from '../../../node_modules/@fable-org/fable-library-ts/MapUtil.js';
-import { Exception } from '../../../node_modules/@fable-org/fable-library-ts/Util.js';
-import { isEmpty, head, tail, empty, cons, append, singleton as singleton$1, collect, reverse, length, filter, map, ofArrayWithTail, exists, ofArray } from '../../../node_modules/@fable-org/fable-library-ts/List.js';
-import { $007CYamlComment$007C_$007C, $007CSequenceMinusOpener$007C_$007C, $007CKey$007C_$007C, $007CKeyValue$007C_$007C, $007CDocumentEnd$007C_$007C, $007CYamlValue$007C_$007C, $007CAliasNode$007C_$007C, $007CSchemaNamespace$007C_$007C, $007CInlineSequence$007C_$007C, $007CSequenceSquareOpener$007C_$007C, $007CSequenceSquareCloser$007C_$007C, $007CInlineJSON$007C_$007C, $007CJSONKeyOpener$007C_$007C, $007CJSONCloser$007C_$007C, $007CExplicitKey$007C_$007C, $007CExplicitValue$007C_$007C } from './RegexActivePatterns.fs.js';
-import { toList, delay, append as append$1, singleton, empty as empty$1, takeWhile, skipWhile, map as map$1 } from '../../../node_modules/@fable-org/fable-library-ts/Seq.js';
-import { VerbatimTagPattern, AnchorPattern } from './Regex.fs.js';
-import { tryFind } from '../../../node_modules/@fable-org/fable-library-ts/Map.js';
-import { Placeholder_splitTrailingComment, BlockScalar_parseHeader, BlockScalar_buildContent, Placeholder_tryParseComment, FlowTokens_tokenize, Document_isTopLevelMarker, Document_isStart, Document_tryInlineContentAfterStartMarker, Document_isDirectivePreludeOnly, Document_isEnd, BlockScalar_tryDetectHeaderIndent, Line_countLeadingSpaces, Line_normalizeNewlines } from './Syntax.fs.js';
-import { Queue$1_$ctor_BB573A, Queue$1__Dequeue } from '../../../node_modules/@fable-org/fable-library-ts/System.Collections.Generic.js';
-import { read as read$1 } from './Preprocessing.fs.js';
-
-function restoreScalarPlaceholderValue(entry) {
-  if (entry.Kind.tag === /* DoubleQuotedString */
-  1) {
-    return unescapeDoubleQuoted(entry.Value);
-  } else {
-    return entry.Value;
-  }
-}
-function restoreBlockScalarPlaceholderValue(entry) {
-  if (entry.Kind.tag === /* DoubleQuotedString */
-  1) {
-    return '"' + entry.Value + '"';
-  } else {
-    return "'" + entry.Value + "'";
-  }
-}
-function tryParseExactPlaceholderIndex(v) {
-  const m = match(create(concat("^", "<s f=(?<index>\\d+)\\/>", "$")), v.trim());
-  if (m != null) {
-    return parse(m.groups && m.groups.index || "", 511, false, 32);
-  } else {
-    return void 0;
-  }
-}
-function restoreStringReplace(stringDict, v) {
-  return replace(v, "<s f=(?<index>\\d+)\\/>", (m) => restoreScalarPlaceholderValue(getItemFromDict(stringDict, parse(m.groups && m.groups.index || "", 511, false, 32))));
-}
-function restoreCommentReplace(commentDict, commentId) {
-  const option_1 = commentId;
-  if (option_1 != null) {
-    return getItemFromDict(commentDict, value(option_1));
-  } else {
-    return void 0;
-  }
-}
-function isBlankLineElement(_arg) {
-  let line = void 0;
-  let matchResult = void 0, line_1 = void 0;
-  if (_arg.tag === /* Line */
-  2) {
-    if (line = _arg.fields[0], line.trim() === "") {
-      matchResult = 0;
-      line_1 = _arg.fields[0];
-    } else {
-      matchResult = 1;
-    }
-  } else {
-    matchResult = 1;
-  }
-  switch (matchResult) {
-    case 0:
-      return true;
-    default:
-      return false;
-  }
-}
-function takeLeadingSequenceItemPrefix(eles) {
-  let matchResult = void 0, line_1 = void 0, rest_1 = void 0, commentElement = void 0, rest_2 = void 0;
-  if (!isEmpty(eles)) {
-    if (isBlankLineElement(head(eles))) {
-      matchResult = 0;
-      line_1 = head(eles);
-      rest_1 = tail(eles);
-    } else if ($007CYamlComment$007C_$007C(head(eles)) != null) {
-      matchResult = 1;
-      commentElement = head(eles);
-      rest_2 = tail(eles);
-    } else {
-      matchResult = 2;
-    }
-  } else {
-    matchResult = 2;
-  }
-  switch (matchResult) {
-    case 0: {
-      const patternInput = takeLeadingSequenceItemPrefix(rest_1);
-      return [patternInput[0], patternInput[1], true];
-    }
-    case 1: {
-      const patternInput_1 = takeLeadingSequenceItemPrefix(rest_2);
-      return [cons(commentElement, patternInput_1[0]), patternInput_1[1], true];
-    }
-    default:
-      return [empty(), eles, false];
-  }
-}
-function splitLeadingSequenceItemContinuation(eles) {
-  const patternInput = takeLeadingSequenceItemPrefix(eles);
-  const afterPrefix = patternInput[1];
-  let matchResult = void 0, tail$1 = void 0, yamlAstList = void 0;
-  if (patternInput[2]) {
-    if (!isEmpty(afterPrefix)) {
-      if (head(afterPrefix).tag === /* Intendation */
-      1) {
-        matchResult = 0;
-        tail$1 = tail(afterPrefix);
-        yamlAstList = head(afterPrefix).fields[0];
-      } else {
-        matchResult = 1;
-      }
-    } else {
-      matchResult = 1;
-    }
-  } else {
-    matchResult = 1;
-  }
-  switch (matchResult) {
-    case 0:
-      return [append(patternInput[0], yamlAstList), tail$1];
-    default:
-      return void 0;
-  }
-}
-function collectSequenceElements(eles_mut) {
-  collectSequenceElements:
-    while (true) {
-      const eles = eles_mut;
-      let matchResult = void 0, line_1 = void 0, rest_1 = void 0, rest_2 = void 0, v = void 0, yamlAstList = void 0;
-      if (!isEmpty(eles)) {
-        if (isBlankLineElement(head(eles))) {
-          matchResult = 0;
-          line_1 = head(eles);
-          rest_1 = tail(eles);
-        } else {
-          const activePatternResult = $007CSequenceMinusOpener$007C_$007C(head(eles));
-          if (activePatternResult != null) {
-            if (!isEmpty(tail(eles))) {
-              if (head(tail(eles)).tag === /* Intendation */
-              1) {
-                matchResult = 1;
-                rest_2 = tail(tail(eles));
-                v = value(activePatternResult);
-                yamlAstList = head(tail(eles)).fields[0];
-              } else {
-                matchResult = 2;
-              }
-            } else {
-              matchResult = 2;
-            }
-          } else {
-            matchResult = 2;
-          }
-        }
-      } else {
-        matchResult = 2;
-      }
-      switch (matchResult) {
-        case 0: {
-          eles_mut = rest_1;
-          continue collectSequenceElements;
-        }
-        case 1:
-          return toList(delay(() => append$1(v.Value != null ? singleton(cons(PreprocessorElement_Line(value(v.Value)), yamlAstList)) : singleton(yamlAstList), delay(() => collectSequenceElements(rest_2)))));
-        default:
-          if (isEmpty(eles)) {
-            return empty();
-          } else {
-            const activePatternResult_1 = $007CSequenceMinusOpener$007C_$007C(head(eles));
-            if (activePatternResult_1 != null) {
-              const v_1 = value(activePatternResult_1);
-              const matchValue = splitLeadingSequenceItemContinuation(tail(eles));
-              if (matchValue != null) {
-                const tail = value(matchValue)[1];
-                const continuation = value(matchValue)[0];
-                return toList(delay(() => append$1(singleton(toList(delay(() => append$1(v_1.Value != null ? singleton(PreprocessorElement_Line(value(v_1.Value))) : empty$1(), delay(() => continuation))))), delay(() => collectSequenceElements(tail)))));
-              } else {
-                return toList(delay(() => append$1(v_1.Value != null ? singleton(singleton$1(PreprocessorElement_Line(value(v_1.Value)))) : singleton(empty()), delay(() => collectSequenceElements(tail(eles))))));
-              }
-            } else if ($007CYamlComment$007C_$007C(head(eles)) != null) {
-              return toList(delay(() => append$1(singleton(singleton$1(head(eles))), delay(() => collectSequenceElements(tail(eles))))));
-            } else {
-              return toFail(printf("Unknown pattern for sequence elements: %A"))(eles);
-            }
-          }
-      }
-      break;
-    }
-}
-function isSequenceElement(e) {
-  let matchResult = void 0;
-  if (e.tag === /* Intendation */
-  1) {
-    matchResult = 0;
-  } else if ($007CSequenceMinusOpener$007C_$007C(e) != null) {
-    matchResult = 0;
-  } else if ($007CYamlComment$007C_$007C(e) != null) {
-    matchResult = 0;
-  } else {
-    matchResult = 1;
-  }
-  switch (matchResult) {
-    case 0:
-      return true;
-    default:
-      if (isBlankLineElement(e)) {
-        return true;
-      } else {
-        return false;
-      }
-  }
-}
-function tokenize(yamlList, stringDict, commentDict, handles) {
-  const flattenFlowContent = (elements) => collect((_arg) => {
-    switch (_arg.tag) {
-      case /* Line */
-      2: {
-        const s = _arg.fields[0];
-        return singleton$1(s.trim());
-      }
-      case /* Intendation */
-      1:
-        return flattenFlowContent(_arg.fields[0]);
-      default:
-        return empty();
-    }
-  }, elements);
-  const restoreInlinePlaceholders = (line) => replace(replace(line, "<s f=(?<index>\\d+)\\/>", (m) => restoreBlockScalarPlaceholderValue(getItemFromDict(stringDict, parse(m.groups && m.groups.index || "", 511, false, 32)))), "<c f=(?<comment>\\d+)\\/>", (m_1) => "#" + getItemFromDict(commentDict, parse(m_1.groups && m_1.groups.comment || "", 511, false, 32)));
-  const flattenBlockScalarWithDepth = (depth, eles) => collect((_arg_1) => {
-    switch (_arg_1.tag) {
-      case /* Line */
-      2: {
-        const s_1 = _arg_1.fields[0];
-        return singleton$1((s_1 === "" ? "" : Array(depth * 2 + 1).join(" ")) + restoreInlinePlaceholders(s_1));
-      }
-      case /* Intendation */
-      1:
-        return flattenBlockScalarWithDepth(depth + 1, _arg_1.fields[0]);
-      default:
-        return empty();
-    }
-  }, eles);
-  const flattenBlockScalar = (eles_1) => flattenBlockScalarWithDepth(0, eles_1);
-  const flattenBlockScalarContentWithDepth = (depth_1, eles_2) => collect((_arg_2) => {
-    switch (_arg_2.tag) {
-      case /* Line */
-      2: {
-        const s_2 = _arg_2.fields[0];
-        return singleton$1((s_2 === "" ? "" : Array((depth_1 + 1) * 2 + 1).join(" ")) + restoreInlinePlaceholders(s_2));
-      }
-      case /* Intendation */
-      1:
-        return flattenBlockScalarContentWithDepth(depth_1 + 1, _arg_2.fields[0]);
-      default:
-        return empty();
-    }
-  }, eles_2);
-  const flattenBlockScalarContent = (eles_3) => flattenBlockScalarContentWithDepth(0, eles_3);
-  const restoreScalarWithStyle = (raw) => {
-    const matchValue = tryParseExactPlaceholderIndex(raw);
-    if (matchValue == null) {
-      return [restoreStringReplace(stringDict, raw), void 0];
-    } else {
-      const entry = getItemFromDict(stringDict, value(matchValue));
-      return [restoreScalarPlaceholderValue(entry), entry.Kind.tag === /* DoubleQuotedString */
-      1 ? ScalarStyle.DoubleQuoted : ScalarStyle.SingleQuoted];
-    }
-  };
-  const extractProperties = (handles_2, v) => {
-    let current = v.trim();
-    let tag = void 0;
-    let anchor = void 0;
-    let changed = true;
-    while (changed) {
-      let shorthand = void 0, m_2 = void 0, handle = void 0, suffix = void 0, matchValue_2 = void 0;
-      changed = false;
-      const mTag = match(create(VerbatimTagPattern), current);
-      if (mTag != null) {
-        tag = mTag.groups && mTag.groups.tag || "";
-        current = substring(current, mTag[0].length).trim();
-        changed = true;
-      } else {
-        const mShort = match(/^(!\S*)/gu, current);
-        if (mShort != null) {
-          const raw_1 = mShort[1] || "";
-          tag = (shorthand = raw_1, shorthand === "!" ? "!" : (m_2 = match(/^(![\w-]+!|!!|!)(.*)/gu, shorthand), m_2 != null ? (handle = m_2[1] || "", suffix = m_2[2] || "", matchValue_2 = tryFind(handle, handles_2), matchValue_2 == null ? shorthand : value(matchValue_2) + suffix) : shorthand));
-          current = substring(current, mShort[0].length).trim();
-          changed = true;
-        }
-      }
-      const mAnchor = match(create(AnchorPattern), current);
-      if (mAnchor != null && current.startsWith("&")) {
-        anchor = mAnchor.groups && mAnchor.groups.anchor || "";
-        current = substring(current, mAnchor[0].length).trim();
-        changed = true;
-      }
-    }
-    return {
-      Anchor: unwrap(anchor),
-      Tag: unwrap(tag),
-      Value: current
-    };
-  };
-  const createScalarContent = (raw_2, comment) => {
-    const props = extractProperties(handles, raw_2);
-    const patternInput = restoreScalarWithStyle(props.Value);
-    return YAMLContent_create_Z1C3A29C9(patternInput[0], unwrap(comment), unwrap(props.Anchor), unwrap(props.Tag), unwrap(patternInput[1]));
-  };
-  const isBlockScalarHeaderCandidate = (rawHeader) => {
-    const props_1 = extractProperties(handles, Placeholder_splitTrailingComment(rawHeader)[0]);
-    if (props_1.Value.startsWith("|")) {
-      return true;
-    } else {
-      return props_1.Value.startsWith(">");
-    }
-  };
-  const tryReadBlockScalar = (rawHeader_1, headerIndent, baseCommentId, block) => {
-    const patternInput_2 = Placeholder_splitTrailingComment(rawHeader_1);
-    const props_2 = extractProperties(handles, patternInput_2[0]);
-    const commentId = baseCommentId == null ? patternInput_2[1] : baseCommentId;
-    const matchValue_3 = BlockScalar_parseHeader(props_2.Value);
-    if (matchValue_3 == null) {
-      return void 0;
-    } else {
-      const header = value(matchValue_3);
-      const value_4 = BlockScalar_buildContent(header.Style, header.Chomp, headerIndent, header.Indent, flattenBlockScalarContent(block));
-      return {
-        Chomp: header.Chomp,
-        Comment: unwrap(restoreCommentReplace(commentDict, commentId)),
-        Indent: unwrap(header.Indent),
-        Props: props_2,
-        Style: header.Style,
-        Value: value_4
-      };
-    }
-  };
-  const tryCollapsePlainScalarContent = (hasInlineFirstLine, block_1, parsed) => {
-    let values = void 0, renderedBlockLines = void 0;
-    let matchValue_6;
-    const element = parsed;
-    const loop = (allowMetadata_1_mut, items_mut, acc_mut) => {
-      loop:
-        while (true) {
-          const allowMetadata_1 = allowMetadata_1_mut, items = items_mut, acc = acc_mut;
-          let content = void 0, hasPlainCompatibleStyle = void 0, matchValue_4 = void 0, hasOnlyContinuationContent = void 0;
-          let matchResult = void 0, content_2 = void 0, rest_1 = void 0;
-          if (!isEmpty(items)) {
-            if (head(items).tag === /* Value */
-            1) {
-              if (content = head(items).fields[0], hasPlainCompatibleStyle = (matchValue_4 = content.Style, matchValue_4 != null ? value(matchValue_4).tag === /* Plain */
-              0 : true), hasOnlyContinuationContent = content.Comment == null && content.Anchor == null && content.Tag == null, hasPlainCompatibleStyle && (allowMetadata_1 ? true : hasOnlyContinuationContent)) {
-                matchResult = 1;
-                content_2 = head(items).fields[0];
-                rest_1 = tail(items);
-              } else {
-                matchResult = 2;
-              }
-            } else {
-              matchResult = 2;
-            }
-          } else {
-            matchResult = 0;
-          }
-          switch (matchResult) {
-            case 0: {
-              const matchValue_5 = reverse(acc);
-              if (isEmpty(matchValue_5)) {
-                return void 0;
-              } else {
-                return matchValue_5;
-              }
-            }
-            case 1: {
-              allowMetadata_1_mut = false;
-              items_mut = rest_1;
-              acc_mut = cons(content_2, acc);
-              continue loop;
-            }
-            default:
-              return void 0;
-          }
-          break;
-        }
-    };
-    matchValue_6 = element.tag === /* Object */
-    3 ? loop(true, element.fields[0], empty()) : void 0;
-    let matchResult_1 = void 0, firstSegment = void 0, segments_1 = void 0;
-    if (matchValue_6 != null) {
-      if (!isEmpty(value(matchValue_6))) {
-        matchResult_1 = 0;
-        firstSegment = head(value(matchValue_6));
-        segments_1 = value(matchValue_6);
-      } else {
-        matchResult_1 = 1;
-      }
-    } else {
-      matchResult_1 = 1;
-    }
-    switch (matchResult_1) {
-      case 0: {
-        const rawBlockLines = flattenBlockScalarContent(block_1);
-        const rawValue = join("\n", (hasInlineFirstLine ? length(segments_1) - 1 : length(segments_1)) === length(filter((line_1) => line_1.trim() !== "", rawBlockLines)) ? (values = Queue$1_$ctor_BB573A(hasInlineFirstLine ? tail(segments_1) : segments_1), renderedBlockLines = map((rawLine) => {
-          if (rawLine.trim() === "") {
-            return "";
-          } else {
-            return Queue$1__Dequeue(values).Value;
-          }
-        }, rawBlockLines), hasInlineFirstLine ? cons(firstSegment.Value, renderedBlockLines) : renderedBlockLines) : map((segment) => segment.Value, segments_1));
-        return new YAMLContent(rawValue, firstSegment.Comment, firstSegment.Anchor, firstSegment.Tag, rawValue.indexOf("\n") >= 0 ? ScalarStyle.Plain : firstSegment.Style);
-      }
-      default:
-        return void 0;
-    }
-  };
-  const takePlainScalarContinuationContents = (elements_1_mut, acc_1_mut) => {
-    takePlainScalarContinuationContents:
-      while (true) {
-        const elements_1 = elements_1_mut, acc_1 = acc_1_mut;
-        let v_1 = void 0;
-        let matchResult_2 = void 0;
-        if (isEmpty(elements_1)) {
-          matchResult_2 = 0;
-        } else if ($007CKey$007C_$007C(head(elements_1)) != null) {
-          matchResult_2 = 0;
-        } else if ($007CKeyValue$007C_$007C(head(elements_1)) != null) {
-          matchResult_2 = 0;
-        } else if ($007CSequenceMinusOpener$007C_$007C(head(elements_1)) != null) {
-          matchResult_2 = 0;
-        } else if ($007CYamlComment$007C_$007C(head(elements_1)) != null) {
-          matchResult_2 = 0;
-        } else if ($007CDocumentEnd$007C_$007C(head(elements_1)) != null) {
-          matchResult_2 = 0;
-        } else {
-          matchResult_2 = 1;
-        }
-        switch (matchResult_2) {
-          case 0:
-            return [reverse(acc_1), elements_1];
-          default: {
-            let matchResult_3 = void 0, rest_3 = void 0, v_2 = void 0;
-            if (!isEmpty(elements_1)) {
-              const activePatternResult_5 = $007CYamlValue$007C_$007C(head(elements_1));
-              if (activePatternResult_5 != null) {
-                if (v_1 = value(activePatternResult_5), v_1.Value !== "" && v_1.Comment == null) {
-                  matchResult_3 = 0;
-                  rest_3 = tail(elements_1);
-                  v_2 = value(activePatternResult_5);
-                } else {
-                  matchResult_3 = 1;
-                }
-              } else {
-                matchResult_3 = 1;
-              }
-            } else {
-              matchResult_3 = 1;
-            }
-            switch (matchResult_3) {
-              case 0: {
-                const content_3 = createScalarContent(v_2.Value, void 0);
-                const matchValue_7 = content_3.Style;
-                const matchValue_8 = content_3.Comment;
-                const matchValue_9 = content_3.Anchor;
-                const matchValue_10 = content_3.Tag;
-                let matchResult_4 = void 0;
-                if (matchValue_7 != null) {
-                  if (value(matchValue_7).tag === /* Plain */
-                  0) {
-                    if (matchValue_8 == null) {
-                      if (matchValue_9 == null) {
-                        if (matchValue_10 == null) {
-                          matchResult_4 = 0;
-                        } else {
-                          matchResult_4 = 1;
-                        }
-                      } else {
-                        matchResult_4 = 1;
-                      }
-                    } else {
-                      matchResult_4 = 1;
-                    }
-                  } else {
-                    matchResult_4 = 1;
-                  }
-                } else if (matchValue_8 == null) {
-                  if (matchValue_9 == null) {
-                    if (matchValue_10 == null) {
-                      matchResult_4 = 0;
-                    } else {
-                      matchResult_4 = 1;
-                    }
-                  } else {
-                    matchResult_4 = 1;
-                  }
-                } else {
-                  matchResult_4 = 1;
-                }
-                switch (matchResult_4) {
-                  case 0: {
-                    elements_1_mut = rest_3;
-                    acc_1_mut = cons(content_3, acc_1);
-                    continue takePlainScalarContinuationContents;
-                  }
-                  default:
-                    return [reverse(acc_1), elements_1];
-                }
-              }
-              default:
-                return [reverse(acc_1), elements_1];
-            }
-          }
-        }
-        break;
-      }
-  };
-  const takeLeadingComments = (elements_2_mut) => {
-    takeLeadingComments:
-      while (true) {
-        const elements_2 = elements_2_mut;
-        let matchResult_5 = void 0, line_3 = void 0, rest_5 = void 0, commentElement = void 0, rest_6 = void 0;
-        if (!isEmpty(elements_2)) {
-          if (isBlankLineElement(head(elements_2))) {
-            matchResult_5 = 0;
-            line_3 = head(elements_2);
-            rest_5 = tail(elements_2);
-          } else if ($007CYamlComment$007C_$007C(head(elements_2)) != null) {
-            matchResult_5 = 1;
-            commentElement = head(elements_2);
-            rest_6 = tail(elements_2);
-          } else {
-            matchResult_5 = 2;
-          }
-        } else {
-          matchResult_5 = 2;
-        }
-        switch (matchResult_5) {
-          case 0: {
-            elements_2_mut = rest_5;
-            continue takeLeadingComments;
-          }
-          case 1: {
-            const patternInput_3 = takeLeadingComments(rest_6);
-            return [cons(commentElement, patternInput_3[0]), patternInput_3[1]];
-          }
-          default:
-            return [empty(), elements_2];
-        }
-        break;
-      }
-  };
-  const commentTokensToYaml = (comments_1) => map((_arg_3) => {
-    const activePatternResult_7 = $007CYamlComment$007C_$007C(_arg_3);
-    if (activePatternResult_7 != null) {
-      const comment_2 = value(activePatternResult_7);
-      return YAMLElement_Comment$(getItemFromDict(commentDict, comment_2.Comment));
-    } else {
-      return toFail(printf("Expected leading comment token, got: %A"))(_arg_3);
-    }
-  }, comments_1);
-  const parseFlowNode = (tokens) => {
-    let matchResult_6 = void 0, rest_7 = void 0, rest_8 = void 0;
-    if (!isEmpty(tokens)) {
-      switch (head(tokens).tag) {
-        case /* OpenBrace */
-        0: {
-          matchResult_6 = 0;
-          rest_7 = tail(tokens);
-          break;
-        }
-        case /* OpenBracket */
-        2: {
-          matchResult_6 = 1;
-          rest_8 = tail(tokens);
-          break;
-        }
-        case /* String */
-        6: {
-          matchResult_6 = 2;
-          break;
-        }
-        case /* Colon */
-        4: {
-          matchResult_6 = 3;
-          break;
-        }
-        case /* EOF */
-        7: {
-          matchResult_6 = 4;
-          break;
-        }
-        default:
-          matchResult_6 = 5;
-      }
-    } else {
-      matchResult_6 = 5;
-    }
-    switch (matchResult_6) {
-      case 0:
-        return parseFlowObject(rest_7);
-      case 1:
-        return parseFlowArray(rest_8);
-      case 2:
-        return parseFlowScalar(tokens)(empty());
-      case 3:
-        return parseFlowScalar(tokens)(empty());
-      case 4:
-        return [YAMLElement.Nil, tokens];
-      default:
-        return toFail(printf("Unexpected flow token: %A"))(tokens);
-    }
-  };
-  const tryCommentElementFromFlowString = (value_5) => {
-    const option_1 = Placeholder_tryParseComment(value_5);
-    if (option_1 != null) {
-      return YAMLElement_Comment$(getItemFromDict(commentDict, value(option_1)));
-    } else {
-      return void 0;
-    }
-  };
-  const parseFlowScalar = (tokens_1) => (acc_2) => {
-    let matchResult_7 = void 0, rest_10 = void 0, value_7 = void 0, rest_11 = void 0, value_8 = void 0, rest_12 = void 0;
-    if (!isEmpty(tokens_1)) {
-      switch (head(tokens_1).tag) {
-        case /* String */
-        6: {
-          if (tryCommentElementFromFlowString(head(tokens_1).fields[0]) != null) {
-            matchResult_7 = 0;
-            rest_10 = tail(tokens_1);
-            value_7 = head(tokens_1).fields[0];
-          } else {
-            matchResult_7 = 1;
-            rest_11 = tail(tokens_1);
-            value_8 = head(tokens_1).fields[0];
-          }
-          break;
-        }
-        case /* Colon */
-        4: {
-          matchResult_7 = 2;
-          rest_12 = tail(tokens_1);
-          break;
-        }
-        default:
-          matchResult_7 = 3;
-      }
-    } else {
-      matchResult_7 = 3;
-    }
-    switch (matchResult_7) {
-      case 0: {
-        const matchValue_12 = reverse(acc_2);
-        return isEmpty(matchValue_12) ? [value(tryCommentElementFromFlowString(value_7)), rest_10] : [YAMLElement_Value(createScalarContent(join("", matchValue_12), void 0)), tokens_1];
-      }
-      case 1:
-        return parseFlowScalar(rest_11)(cons(value_8, acc_2));
-      case 2:
-        return parseFlowScalar(rest_12)(cons(":", acc_2));
-      default: {
-        const matchValue_13 = reverse(acc_2);
-        return isEmpty(matchValue_13) ? [YAMLElement.Nil, tokens_1] : [YAMLElement_Value(createScalarContent(join("", matchValue_13), void 0)), tokens_1];
-      }
-    }
-  };
-  const parseFlowObject = (tokens_2) => {
-    const loop_1 = (remaining_mut, acc_3_mut) => {
-      loop_1:
-        while (true) {
-          const remaining = remaining_mut, acc_3 = acc_3_mut;
-          let matchResult_8 = void 0, rest_14 = void 0, rest_15 = void 0, rest_16 = void 0, value_10 = void 0, key = void 0, rest_17 = void 0;
-          if (!isEmpty(remaining)) {
-            switch (head(remaining).tag) {
-              case /* CloseBrace */
-              1: {
-                matchResult_8 = 0;
-                rest_14 = tail(remaining);
-                break;
-              }
-              case /* Comma */
-              5: {
-                matchResult_8 = 1;
-                rest_15 = tail(remaining);
-                break;
-              }
-              case /* EOF */
-              7: {
-                matchResult_8 = 2;
-                break;
-              }
-              case /* String */
-              6: {
-                if (tryCommentElementFromFlowString(head(remaining).fields[0]) != null) {
-                  matchResult_8 = 3;
-                  rest_16 = tail(remaining);
-                  value_10 = head(remaining).fields[0];
-                } else if (!isEmpty(tail(remaining))) {
-                  if (head(tail(remaining)).tag === /* Colon */
-                  4) {
-                    matchResult_8 = 4;
-                    key = head(remaining).fields[0];
-                    rest_17 = tail(tail(remaining));
-                  } else {
-                    matchResult_8 = 5;
-                  }
-                } else {
-                  matchResult_8 = 5;
-                }
-                break;
-              }
-              default:
-                matchResult_8 = 5;
-            }
-          } else {
-            matchResult_8 = 5;
-          }
-          switch (matchResult_8) {
-            case 0:
-              return [YAMLElement_Object$(reverse(acc_3)), rest_14];
-            case 1: {
-              remaining_mut = rest_15;
-              acc_3_mut = acc_3;
-              continue loop_1;
-            }
-            case 2:
-              return [YAMLElement_Object$(reverse(acc_3)), remaining];
-            case 3: {
-              remaining_mut = rest_16;
-              acc_3_mut = cons(value(tryCommentElementFromFlowString(value_10)), acc_3);
-              continue loop_1;
-            }
-            case 4: {
-              const keyContent = createScalarContent(key, void 0);
-              const patternInput_4 = parseFlowNode(rest_17);
-              const value_11 = patternInput_4[0];
-              remaining_mut = patternInput_4[1];
-              acc_3_mut = cons(YAMLElement_Mapping(keyContent, value_11.tag === /* Object */
-              3 ? value_11 : value_11.tag === /* Sequence */
-              2 ? YAMLElement_Object$(singleton$1(value_11)) : value_11.tag === /* Value */
-              1 ? YAMLElement_Object$(singleton$1(value_11)) : value_11), acc_3);
-              continue loop_1;
-            }
-            default:
-              return toFail(printf("Expected flow mapping key or close brace, got: %A"))(remaining);
-          }
-          break;
-        }
-    };
-    return loop_1(tokens_2, empty());
-  };
-  const parseFlowArray = (tokens_3) => {
-    const loop_2 = (remaining_1_mut, acc_4_mut) => {
-      loop_2:
-        while (true) {
-          const remaining_1 = remaining_1_mut, acc_4 = acc_4_mut;
-          let matchResult_9 = void 0, rest_19 = void 0, rest_20 = void 0, rest_21 = void 0, value_13 = void 0;
-          if (!isEmpty(remaining_1)) {
-            switch (head(remaining_1).tag) {
-              case /* CloseBracket */
-              3: {
-                matchResult_9 = 0;
-                rest_19 = tail(remaining_1);
-                break;
-              }
-              case /* Comma */
-              5: {
-                matchResult_9 = 1;
-                rest_20 = tail(remaining_1);
-                break;
-              }
-              case /* EOF */
-              7: {
-                matchResult_9 = 2;
-                break;
-              }
-              case /* String */
-              6: {
-                if (tryCommentElementFromFlowString(head(remaining_1).fields[0]) != null) {
-                  matchResult_9 = 3;
-                  rest_21 = tail(remaining_1);
-                  value_13 = head(remaining_1).fields[0];
-                } else {
-                  matchResult_9 = 4;
-                }
-                break;
-              }
-              default:
-                matchResult_9 = 4;
-            }
-          } else {
-            matchResult_9 = 4;
-          }
-          switch (matchResult_9) {
-            case 0:
-              return [YAMLElement_Sequence(reverse(acc_4)), rest_19];
-            case 1: {
-              remaining_1_mut = rest_20;
-              acc_4_mut = acc_4;
-              continue loop_2;
-            }
-            case 2:
-              return [YAMLElement_Sequence(reverse(acc_4)), remaining_1];
-            case 3: {
-              remaining_1_mut = rest_21;
-              acc_4_mut = cons(YAMLElement_Object$(singleton$1(value(tryCommentElementFromFlowString(value_13)))), acc_4);
-              continue loop_2;
-            }
-            default: {
-              const patternInput_5 = parseFlowNode(remaining_1);
-              const item = patternInput_5[0];
-              remaining_1_mut = patternInput_5[1];
-              acc_4_mut = cons(item.tag === /* Value */
-              1 ? YAMLElement_Object$(singleton$1(item)) : item.tag === /* Sequence */
-              2 ? YAMLElement_Object$(singleton$1(item)) : item, acc_4);
-              continue loop_2;
-            }
-          }
-          break;
-        }
-    };
-    return loop_2(tokens_3, empty());
-  };
-  const parseFlowSource = (source) => parseFlowNode(FlowTokens_tokenize(source))[0];
-  const prependRootFlow = (comment_4, node_2, acc_5) => append(reverse(toList(delay(() => {
-    let matchValue_19 = void 0;
-    return append$1((matchValue_19 = comment_4, matchValue_19 == null ? empty$1() : singleton(YAMLElement_Comment$(value(matchValue_19)))), delay(() => {
-      const matchValue_20 = node_2;
-      switch (matchValue_20.tag) {
-        case /* Object */
-        3:
-          return matchValue_20.fields[0];
-        case /* Nil */
-        8: {
-          return empty$1();
-        }
-        default:
-          return singleton(matchValue_20);
-      }
-    }));
-  }))), acc_5);
-  const loopRead = (handles_3_mut, restlist_mut, acc_6_mut) => {
-    loopRead:
-      while (true) {
-        const handles_3 = handles_3_mut, restlist = restlist_mut, acc_6 = acc_6_mut;
-        let c2_2 = void 0, c1_2 = void 0, c1_1 = void 0, c2_1 = void 0, s_3 = void 0, s_4 = void 0, matchValue_30 = void 0, content_4 = void 0, continuations = void 0, matchValue_36 = void 0, single = void 0, v_25 = void 0, v_4 = void 0;
-        let matchResult_10 = void 0, alias = void 0, rest_25 = void 0;
-        if (!isEmpty(restlist)) {
-          const activePatternResult_8 = $007CAliasNode$007C_$007C(head(restlist));
-          if (activePatternResult_8 != null) {
-            matchResult_10 = 0;
-            alias = value(activePatternResult_8);
-            rest_25 = tail(restlist);
-          } else if ($007CDocumentEnd$007C_$007C(head(restlist)) != null) {
-            matchResult_10 = 1;
-          } else {
-            matchResult_10 = 2;
-          }
-        } else {
-          matchResult_10 = 2;
-        }
-        switch (matchResult_10) {
-          case 0: {
-            handles_3_mut = handles_3;
-            restlist_mut = rest_25;
-            acc_6_mut = cons(YAMLElement_Alias(alias), acc_6);
-            continue loopRead;
-          }
-          case 1:
-            return YAMLElement_Object$(reverse(acc_6));
-          default: {
-            let matchResult_11 = void 0, rest0 = void 0, v_3 = void 0, yamlAstList = void 0;
-            if (!isEmpty(restlist)) {
-              const activePatternResult_10 = $007CSchemaNamespace$007C_$007C(head(restlist));
-              if (activePatternResult_10 != null) {
-                if (!isEmpty(tail(restlist))) {
-                  if (head(tail(restlist)).tag === /* Intendation */
-                  1) {
-                    matchResult_11 = 0;
-                    rest0 = tail(tail(restlist));
-                    v_3 = value(activePatternResult_10);
-                    yamlAstList = head(tail(restlist)).fields[0];
-                  } else {
-                    matchResult_11 = 1;
-                  }
-                } else {
-                  matchResult_11 = 1;
-                }
-              } else {
-                matchResult_11 = 1;
-              }
-            } else {
-              matchResult_11 = 1;
-            }
-            switch (matchResult_11) {
-              case 0: {
-                const sequenceElements = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0)));
-                handles_3_mut = handles_3;
-                restlist_mut = toList(skipWhile(isSequenceElement, rest0));
-                acc_6_mut = cons(YAMLElement_Sequence(toList(delay(() => append$1(singleton(loopRead(handles_3, cons(PreprocessorElement_Line(v_3.Key), yamlAstList), empty())), delay(() => map$1((i) => loopRead(handles_3, i, empty()), sequenceElements)))))), acc_6);
-                continue loopRead;
-              }
-              default: {
-                let matchResult_12 = void 0, rest0_2 = void 0, v_5 = void 0, rest0_3 = void 0, v_6 = void 0, yamlAstList_2 = void 0;
-                if (!isEmpty(restlist)) {
-                  const activePatternResult_11 = $007CSchemaNamespace$007C_$007C(head(restlist));
-                  if (activePatternResult_11 != null) {
-                    matchResult_12 = 0;
-                    rest0_2 = tail(restlist);
-                    v_5 = value(activePatternResult_11);
-                  } else {
-                    const activePatternResult_12 = $007CSequenceMinusOpener$007C_$007C(head(restlist));
-                    if (activePatternResult_12 != null) {
-                      if (!isEmpty(tail(restlist))) {
-                        if (head(tail(restlist)).tag === /* Intendation */
-                        1) {
-                          if (head(tail(restlist)).fields[0], v_4 = value(activePatternResult_12), v_4.Value != null && isBlockScalarHeaderCandidate(value(v_4.Value))) {
-                            matchResult_12 = 1;
-                            rest0_3 = tail(tail(restlist));
-                            v_6 = value(activePatternResult_12);
-                            yamlAstList_2 = head(tail(restlist)).fields[0];
-                          } else {
-                            matchResult_12 = 2;
-                          }
-                        } else {
-                          matchResult_12 = 2;
-                        }
-                      } else {
-                        matchResult_12 = 2;
-                      }
-                    } else {
-                      matchResult_12 = 2;
-                    }
-                  }
-                } else {
-                  matchResult_12 = 2;
-                }
-                switch (matchResult_12) {
-                  case 0: {
-                    const sequenceElements_1 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_2)));
-                    handles_3_mut = handles_3;
-                    restlist_mut = toList(skipWhile(isSequenceElement, rest0_2));
-                    acc_6_mut = cons(YAMLElement_Sequence(toList(delay(() => append$1(singleton(loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_5.Key)), empty())), delay(() => map$1((i_1) => loopRead(handles_3, i_1, empty()), sequenceElements_1)))))), acc_6);
-                    continue loopRead;
-                  }
-                  case 1: {
-                    const matchValue_21 = tryReadBlockScalar(value(v_6.Value), v_6.Indent, void 0, yamlAstList_2);
-                    if (matchValue_21 == null) {
-                      const arg_3 = value(v_6.Value);
-                      return toFail(printf("Invalid sequence block scalar header: %s"))(arg_3);
-                    } else {
-                      const blockScalar = value(matchValue_21);
-                      const sequenceElements_2 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_3)));
-                      const rest_28 = toList(skipWhile(isSequenceElement, rest0_3));
-                      const firstItem = YAMLElement_Object$(singleton$1(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(blockScalar.Value, unwrap(blockScalar.Comment), unwrap(blockScalar.Props.Anchor), unwrap(blockScalar.Props.Tag), ScalarStyle_Block(blockScalar.Style, blockScalar.Chomp, blockScalar.Indent)))));
-                      handles_3_mut = handles_3;
-                      restlist_mut = rest_28;
-                      acc_6_mut = cons(YAMLElement_Sequence(toList(delay(() => append$1(singleton(firstItem), delay(() => map$1((i_2) => loopRead(handles_3, i_2, empty()), sequenceElements_2)))))), acc_6);
-                      continue loopRead;
-                    }
-                  }
-                  default: {
-                    let matchResult_13 = void 0, rest0_4 = void 0, v_7 = void 0, yamlAstList_3 = void 0;
-                    if (!isEmpty(restlist)) {
-                      const activePatternResult_13 = $007CSequenceMinusOpener$007C_$007C(head(restlist));
-                      if (activePatternResult_13 != null) {
-                        if (!isEmpty(tail(restlist))) {
-                          if (head(tail(restlist)).tag === /* Intendation */
-                          1) {
-                            matchResult_13 = 0;
-                            rest0_4 = tail(tail(restlist));
-                            v_7 = value(activePatternResult_13);
-                            yamlAstList_3 = head(tail(restlist)).fields[0];
-                          } else {
-                            matchResult_13 = 1;
-                          }
-                        } else {
-                          matchResult_13 = 1;
-                        }
-                      } else {
-                        matchResult_13 = 1;
-                      }
-                    } else {
-                      matchResult_13 = 1;
-                    }
-                    switch (matchResult_13) {
-                      case 0: {
-                        let firstItem_1;
-                        let matchValue_22;
-                        const option_9 = v_7.Value;
-                        if (option_9 != null) {
-                          let matchValue_15;
-                          const patternInput_7 = Placeholder_splitTrailingComment(value(option_9));
-                          const commentId_1 = patternInput_7[1];
-                          const matchValue_14 = patternInput_7[0].trim();
-                          matchValue_15 = matchValue_14 === "[" ? ["[", "]", commentId_1] : matchValue_14 === "{" ? ["{", "}", commentId_1] : void 0;
-                          if (matchValue_15 == null) {
-                            matchValue_22 = void 0;
-                          } else {
-                            const opening = value(matchValue_15)[0];
-                            const openerCommentId = value(matchValue_15)[2];
-                            let matchValue_16;
-                            const closing = value(matchValue_15)[1];
-                            const loop_3 = (suffix_1_mut, remainingReversed_mut) => {
-                              loop_3:
-                                while (true) {
-                                  const suffix_1 = suffix_1_mut, remainingReversed = remainingReversed_mut;
-                                  if (!isEmpty(remainingReversed)) {
-                                    if (head(remainingReversed).trim() === "") {
-                                      suffix_1_mut = cons(head(remainingReversed), suffix_1);
-                                      remainingReversed_mut = tail(remainingReversed);
-                                      continue loop_3;
-                                    } else {
-                                      const patternInput_8 = Placeholder_splitTrailingComment(head(remainingReversed));
-                                      if (patternInput_8[0].trim() === closing) {
-                                        return [append(reverse(tail(remainingReversed)), append(singleton$1(closing), suffix_1)), patternInput_8[1]];
-                                      } else {
-                                        return void 0;
-                                      }
-                                    }
-                                  } else {
-                                    return void 0;
-                                  }
-                                  break;
-                                }
-                            };
-                            matchValue_16 = loop_3(empty(), reverse(flattenFlowContent(yamlAstList_3)));
-                            if (matchValue_16 == null) {
-                              matchValue_22 = void 0;
-                            } else {
-                              const closerCommentId = value(matchValue_16)[1];
-                              matchValue_22 = [parseFlowSource(join("\n", cons(opening, value(matchValue_16)[0]))), openerCommentId, closerCommentId];
-                            }
-                          }
-                        } else {
-                          matchValue_22 = void 0;
-                        }
-                        if (matchValue_22 == null) {
-                          const parsedFirstItem = loopRead(handles_3, v_7.Value != null ? cons(PreprocessorElement_Line(value(v_7.Value)), yamlAstList_3) : yamlAstList_3, empty());
-                          const matchValue_23 = tryCollapsePlainScalarContent(v_7.Value != null, yamlAstList_3, parsedFirstItem);
-                          firstItem_1 = matchValue_23 == null ? parsedFirstItem : YAMLElement_Object$(singleton$1(YAMLElement_Value(value(matchValue_23))));
-                        } else {
-                          const closerCommentId_1 = value(matchValue_22)[2];
-                          const node_1 = value(matchValue_22)[0];
-                          let commentsBefore;
-                          const matchValue_17 = restoreCommentReplace(commentDict, value(matchValue_22)[1]);
-                          commentsBefore = matchValue_17 == null ? empty() : singleton$1(YAMLElement_Comment$(value(matchValue_17)));
-                          let commentsAfter;
-                          const matchValue_18 = restoreCommentReplace(commentDict, closerCommentId_1);
-                          commentsAfter = matchValue_18 == null ? empty() : singleton$1(YAMLElement_Comment$(value(matchValue_18)));
-                          firstItem_1 = node_1.tag === /* Object */
-                          3 ? YAMLElement_Object$(append(commentsBefore, append(node_1.fields[0], commentsAfter))) : node_1.tag === /* Nil */
-                          8 ? YAMLElement_Object$(append(commentsBefore, commentsAfter)) : YAMLElement_Object$(append(commentsBefore, append(singleton$1(node_1), commentsAfter)));
-                        }
-                        const sequenceElements_3 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_4)));
-                        handles_3_mut = handles_3;
-                        restlist_mut = toList(skipWhile(isSequenceElement, rest0_4));
-                        acc_6_mut = cons(YAMLElement_Sequence(toList(delay(() => append$1(singleton(firstItem_1), delay(() => map$1((i_3) => loopRead(handles_3, i_3, empty()), sequenceElements_3)))))), acc_6);
-                        continue loopRead;
-                      }
-                      default: {
-                        let matchResult_14 = void 0, rest0_5 = void 0, v_8 = void 0, rest_31 = void 0, v_9 = void 0, closer = void 0, iList = void 0, opener = void 0, rest_32 = void 0;
-                        if (!isEmpty(restlist)) {
-                          const activePatternResult_14 = $007CSequenceMinusOpener$007C_$007C(head(restlist));
-                          if (activePatternResult_14 != null) {
-                            matchResult_14 = 0;
-                            rest0_5 = tail(restlist);
-                            v_8 = value(activePatternResult_14);
-                          } else {
-                            const activePatternResult_15 = $007CInlineSequence$007C_$007C(head(restlist));
-                            if (activePatternResult_15 != null) {
-                              matchResult_14 = 1;
-                              rest_31 = tail(restlist);
-                              v_9 = value(activePatternResult_15);
-                            } else {
-                              const activePatternResult_16 = $007CSequenceSquareOpener$007C_$007C(head(restlist));
-                              if (activePatternResult_16 != null) {
-                                if (!isEmpty(tail(restlist))) {
-                                  if (head(tail(restlist)).tag === /* Intendation */
-                                  1) {
-                                    if (!isEmpty(tail(tail(restlist)))) {
-                                      const activePatternResult_17 = $007CSequenceSquareCloser$007C_$007C(head(tail(tail(restlist))));
-                                      if (activePatternResult_17 != null) {
-                                        matchResult_14 = 2;
-                                        closer = value(activePatternResult_17);
-                                        iList = head(tail(restlist)).fields[0];
-                                        opener = value(activePatternResult_16);
-                                        rest_32 = tail(tail(tail(restlist)));
-                                      } else {
-                                        matchResult_14 = 3;
-                                      }
-                                    } else {
-                                      matchResult_14 = 3;
-                                    }
-                                  } else {
-                                    matchResult_14 = 3;
-                                  }
-                                } else {
-                                  matchResult_14 = 3;
-                                }
-                              } else {
-                                matchResult_14 = 3;
-                              }
-                            }
-                          }
-                        } else {
-                          matchResult_14 = 3;
-                        }
-                        switch (matchResult_14) {
-                          case 0: {
-                            const initialObjectList = v_8.Value != null ? singleton$1(PreprocessorElement_Line(value(v_8.Value))) : empty();
-                            let patternInput_9;
-                            const matchValue_24 = splitLeadingSequenceItemContinuation(rest0_5);
-                            if (matchValue_24 == null) {
-                              patternInput_9 = [initialObjectList, rest0_5];
-                            } else {
-                              const tail_1 = value(matchValue_24)[1];
-                              patternInput_9 = [append(initialObjectList, value(matchValue_24)[0]), tail_1];
-                            }
-                            const sequenceSource = patternInput_9[1];
-                            const sequenceElements_4 = collectSequenceElements(toList(takeWhile(isSequenceElement, sequenceSource)));
-                            handles_3_mut = handles_3;
-                            restlist_mut = toList(skipWhile(isSequenceElement, sequenceSource));
-                            acc_6_mut = cons(YAMLElement_Sequence(toList(delay(() => append$1(singleton(loopRead(handles_3, patternInput_9[0], empty())), delay(() => map$1((i_4) => loopRead(handles_3, i_4, empty()), sequenceElements_4)))))), acc_6);
-                            continue loopRead;
-                          }
-                          case 1: {
-                            handles_3_mut = handles_3;
-                            restlist_mut = rest_31;
-                            acc_6_mut = prependRootFlow(restoreCommentReplace(commentDict, v_9.Comment), parseFlowSource("[" + v_9.Value + "]"), acc_6);
-                            continue loopRead;
-                          }
-                          case 2: {
-                            const c1 = restoreCommentReplace(commentDict, opener.Comment);
-                            const c2 = restoreCommentReplace(commentDict, closer.Comment);
-                            const current_7 = parseFlowSource("[" + join("\n", flattenFlowContent(iList)) + "]");
-                            handles_3_mut = handles_3;
-                            restlist_mut = rest_32;
-                            acc_6_mut = c1 == null ? c2 == null ? cons(current_7, acc_6) : (c2_2 = value(c2), ofArrayWithTail([YAMLElement_Comment$(c2_2), current_7], acc_6)) : c2 == null ? (c1_2 = value(c1), ofArrayWithTail([current_7, YAMLElement_Comment$(c1_2)], acc_6)) : (c1_1 = value(c1), c2_1 = value(c2), ofArrayWithTail([YAMLElement_Comment$(c2_1), current_7, YAMLElement_Comment$(c1_1)], acc_6));
-                            continue loopRead;
-                          }
-                          default: {
-                            let matchResult_15 = void 0, rest_33 = void 0, v_10 = void 0, closer_1 = void 0, iList_1 = void 0, opener_1 = void 0, rest_34 = void 0;
-                            if (!isEmpty(restlist)) {
-                              const activePatternResult_18 = $007CInlineJSON$007C_$007C(head(restlist));
-                              if (activePatternResult_18 != null) {
-                                matchResult_15 = 0;
-                                rest_33 = tail(restlist);
-                                v_10 = value(activePatternResult_18);
-                              } else {
-                                const activePatternResult_19 = $007CJSONKeyOpener$007C_$007C(head(restlist));
-                                if (activePatternResult_19 != null) {
-                                  if (!isEmpty(tail(restlist))) {
-                                    if (head(tail(restlist)).tag === /* Intendation */
-                                    1) {
-                                      if (!isEmpty(tail(tail(restlist)))) {
-                                        const activePatternResult_20 = $007CJSONCloser$007C_$007C(head(tail(tail(restlist))));
-                                        if (activePatternResult_20 != null) {
-                                          matchResult_15 = 1;
-                                          closer_1 = value(activePatternResult_20);
-                                          iList_1 = head(tail(restlist)).fields[0];
-                                          opener_1 = value(activePatternResult_19);
-                                          rest_34 = tail(tail(tail(restlist)));
-                                        } else {
-                                          matchResult_15 = 2;
-                                        }
-                                      } else {
-                                        matchResult_15 = 2;
-                                      }
-                                    } else {
-                                      matchResult_15 = 2;
-                                    }
-                                  } else {
-                                    matchResult_15 = 2;
-                                  }
-                                } else {
-                                  matchResult_15 = 2;
-                                }
-                              }
-                            } else {
-                              matchResult_15 = 2;
-                            }
-                            switch (matchResult_15) {
-                              case 0: {
-                                handles_3_mut = handles_3;
-                                restlist_mut = rest_33;
-                                acc_6_mut = prependRootFlow(restoreCommentReplace(commentDict, v_10.Comment), parseFlowSource("{" + v_10.Value + "}"), acc_6);
-                                continue loopRead;
-                              }
-                              case 1: {
-                                const keyComment = restoreCommentReplace(commentDict, opener_1.Comment);
-                                const closerComment = restoreCommentReplace(commentDict, closer_1.Comment);
-                                const current_9 = YAMLElement_Mapping(createScalarContent(opener_1.Key, keyComment), parseFlowSource("{" + join("\n", flattenFlowContent(iList_1)) + "}"));
-                                handles_3_mut = handles_3;
-                                restlist_mut = rest_34;
-                                acc_6_mut = closerComment == null ? cons(current_9, acc_6) : ofArrayWithTail([YAMLElement_Comment$(value(closerComment)), current_9], acc_6);
-                                continue loopRead;
-                              }
-                              default: {
-                                let matchResult_16 = void 0, closer_3 = void 0, iList_3 = void 0, opener_3 = void 0, rest_36 = void 0;
-                                if (!isEmpty(restlist)) {
-                                  const activePatternResult_21 = $007CYamlValue$007C_$007C(head(restlist));
-                                  if (activePatternResult_21 != null) {
-                                    if (!isEmpty(tail(restlist))) {
-                                      if (head(tail(restlist)).tag === /* Intendation */
-                                      1) {
-                                        if (!isEmpty(tail(tail(restlist)))) {
-                                          const activePatternResult_22 = $007CJSONCloser$007C_$007C(head(tail(tail(restlist))));
-                                          if (activePatternResult_22 != null) {
-                                            if (head(tail(restlist)).fields[0], value(activePatternResult_22), value(activePatternResult_21).Value === "{") {
-                                              matchResult_16 = 0;
-                                              closer_3 = value(activePatternResult_22);
-                                              iList_3 = head(tail(restlist)).fields[0];
-                                              opener_3 = value(activePatternResult_21);
-                                              rest_36 = tail(tail(tail(restlist)));
-                                            } else {
-                                              matchResult_16 = 1;
-                                            }
-                                          } else {
-                                            matchResult_16 = 1;
-                                          }
-                                        } else {
-                                          matchResult_16 = 1;
-                                        }
-                                      } else {
-                                        matchResult_16 = 1;
-                                      }
-                                    } else {
-                                      matchResult_16 = 1;
-                                    }
-                                  } else {
-                                    matchResult_16 = 1;
-                                  }
-                                } else {
-                                  matchResult_16 = 1;
-                                }
-                                switch (matchResult_16) {
-                                  case 0: {
-                                    const c1_3 = restoreCommentReplace(commentDict, opener_3.Comment);
-                                    const c2_3 = restoreCommentReplace(commentDict, closer_3.Comment);
-                                    const current_10 = parseFlowSource("{" + join("\n", flattenFlowContent(iList_3)) + "}");
-                                    handles_3_mut = handles_3;
-                                    restlist_mut = rest_36;
-                                    acc_6_mut = append(reverse(toList(delay(() => {
-                                      let matchValue_26 = void 0;
-                                      return append$1((matchValue_26 = c1_3, matchValue_26 == null ? empty$1() : singleton(YAMLElement_Comment$(value(matchValue_26)))), delay(() => {
-                                        let matchValue_27 = void 0;
-                                        return append$1((matchValue_27 = current_10, matchValue_27.tag === /* Object */
-                                        3 ? matchValue_27.fields[0] : matchValue_27.tag === /* Nil */
-                                        8 ? empty$1() : singleton(matchValue_27)), delay(() => {
-                                          const matchValue_28 = c2_3;
-                                          if (matchValue_28 == null) {
-                                            return empty$1();
-                                          } else {
-                                            return singleton(YAMLElement_Comment$(value(matchValue_28)));
-                                          }
-                                        }));
-                                      }));
-                                    }))), acc_6);
-                                    continue loopRead;
-                                  }
-                                  default: {
-                                    let matchResult_17 = void 0, k = void 0, rest_37 = void 0, rest_38 = void 0, v_15 = void 0, yamlAstList_4 = void 0;
-                                    if (!isEmpty(restlist)) {
-                                      const activePatternResult_23 = $007CExplicitKey$007C_$007C(head(restlist));
-                                      if (activePatternResult_23 != null) {
-                                        matchResult_17 = 0;
-                                        k = value(activePatternResult_23);
-                                        rest_37 = tail(restlist);
-                                      } else {
-                                        const activePatternResult_24 = $007CKey$007C_$007C(head(restlist));
-                                        if (activePatternResult_24 != null) {
-                                          if (!isEmpty(tail(restlist))) {
-                                            if (head(tail(restlist)).tag === /* Intendation */
-                                            1) {
-                                              matchResult_17 = 1;
-                                              rest_38 = tail(tail(restlist));
-                                              v_15 = value(activePatternResult_24);
-                                              yamlAstList_4 = head(tail(restlist)).fields[0];
-                                            } else {
-                                              matchResult_17 = 2;
-                                            }
-                                          } else {
-                                            matchResult_17 = 2;
-                                          }
-                                        } else {
-                                          matchResult_17 = 2;
-                                        }
-                                      }
-                                    } else {
-                                      matchResult_17 = 2;
-                                    }
-                                    switch (matchResult_17) {
-                                      case 0: {
-                                        const parseValue = (vStr) => {
-                                          let matchValue_29 = void 0;
-                                          return loopRead(handles_3, (matchValue_29 = read$1(vStr).AST, matchValue_29.tag === /* Level */
-                                          0 ? matchValue_29.fields[0] : empty()), empty());
-                                        };
-                                        let matchResult_18 = void 0, iList_4 = void 0, keyBody = void 0, tail_2 = void 0, v_11 = void 0;
-                                        if (!isEmpty(rest_37)) {
-                                          if (head(rest_37).tag === /* Intendation */
-                                          1) {
-                                            if (!isEmpty(tail(rest_37))) {
-                                              const activePatternResult_25 = $007CExplicitValue$007C_$007C(head(tail(rest_37)));
-                                              if (activePatternResult_25 != null) {
-                                                if (!isEmpty(tail(tail(rest_37)))) {
-                                                  if (head(tail(tail(rest_37))).tag === /* Intendation */
-                                                  1) {
-                                                    matchResult_18 = 0;
-                                                    iList_4 = head(tail(tail(rest_37))).fields[0];
-                                                    keyBody = head(rest_37).fields[0];
-                                                    tail_2 = tail(tail(tail(rest_37)));
-                                                    v_11 = value(activePatternResult_25);
-                                                  } else {
-                                                    matchResult_18 = 1;
-                                                  }
-                                                } else {
-                                                  matchResult_18 = 1;
-                                                }
-                                              } else {
-                                                matchResult_18 = 1;
-                                              }
-                                            } else {
-                                              matchResult_18 = 1;
-                                            }
-                                          } else {
-                                            matchResult_18 = 1;
-                                          }
-                                        } else {
-                                          matchResult_18 = 1;
-                                        }
-                                        switch (matchResult_18) {
-                                          case 0: {
-                                            const simplifiedKey = join("\n", flattenBlockScalar(keyBody));
-                                            const keyContent_2 = createScalarContent(k == null ? simplifiedKey : (s_3 = value(k), s_3 + (s_3 !== "" ? "\n" : "") + simplifiedKey), void 0);
-                                            const separator = (trimStart(v_11).startsWith("[") ? true : trimStart(v_11).startsWith("{")) ? " " : "\n";
-                                            handles_3_mut = handles_3;
-                                            restlist_mut = tail_2;
-                                            acc_6_mut = cons(YAMLElement_Mapping(keyContent_2, parseValue(v_11 + separator + join(separator, flattenBlockScalar(iList_4)))), acc_6);
-                                            continue loopRead;
-                                          }
-                                          default: {
-                                            let matchResult_19 = void 0, keyBody_1 = void 0, tail_3 = void 0, v_12 = void 0, iList_5 = void 0, tail_4 = void 0, v_13 = void 0;
-                                            if (!isEmpty(rest_37)) {
-                                              if (head(rest_37).tag === /* Intendation */
-                                              1) {
-                                                if (!isEmpty(tail(rest_37))) {
-                                                  const activePatternResult_26 = $007CExplicitValue$007C_$007C(head(tail(rest_37)));
-                                                  if (activePatternResult_26 != null) {
-                                                    matchResult_19 = 0;
-                                                    keyBody_1 = head(rest_37).fields[0];
-                                                    tail_3 = tail(tail(rest_37));
-                                                    v_12 = value(activePatternResult_26);
-                                                  } else if (head(tail(rest_37)).tag === /* Intendation */
-                                                  1) {
-                                                    const activePatternResult_27 = $007CExplicitValue$007C_$007C(head(rest_37));
-                                                    if (activePatternResult_27 != null) {
-                                                      matchResult_19 = 1;
-                                                      iList_5 = head(tail(rest_37)).fields[0];
-                                                      tail_4 = tail(tail(rest_37));
-                                                      v_13 = value(activePatternResult_27);
-                                                    } else {
-                                                      matchResult_19 = 2;
-                                                    }
-                                                  } else {
-                                                    matchResult_19 = 2;
-                                                  }
-                                                } else {
-                                                  matchResult_19 = 2;
-                                                }
-                                              } else {
-                                                const activePatternResult_28 = $007CExplicitValue$007C_$007C(head(rest_37));
-                                                if (activePatternResult_28 != null) {
-                                                  if (!isEmpty(tail(rest_37))) {
-                                                    if (head(tail(rest_37)).tag === /* Intendation */
-                                                    1) {
-                                                      matchResult_19 = 1;
-                                                      iList_5 = head(tail(rest_37)).fields[0];
-                                                      tail_4 = tail(tail(rest_37));
-                                                      v_13 = value(activePatternResult_28);
-                                                    } else {
-                                                      matchResult_19 = 2;
-                                                    }
-                                                  } else {
-                                                    matchResult_19 = 2;
-                                                  }
-                                                } else {
-                                                  matchResult_19 = 2;
-                                                }
-                                              }
-                                            } else {
-                                              matchResult_19 = 2;
-                                            }
-                                            switch (matchResult_19) {
-                                              case 0: {
-                                                const simplifiedKey_1 = join("\n", flattenBlockScalar(keyBody_1));
-                                                handles_3_mut = handles_3;
-                                                restlist_mut = tail_3;
-                                                acc_6_mut = cons(YAMLElement_Mapping(createScalarContent(k == null ? simplifiedKey_1 : (s_4 = value(k), s_4 + (s_4 !== "" ? "\n" : "") + simplifiedKey_1), void 0), parseValue(v_12)), acc_6);
-                                                continue loopRead;
-                                              }
-                                              case 1: {
-                                                handles_3_mut = handles_3;
-                                                restlist_mut = tail_4;
-                                                acc_6_mut = cons(YAMLElement_Mapping(k == null ? YAMLContent_create_Z1C3A29C9("") : createScalarContent(value(k), void 0), parseValue(v_13 + "\n" + join("\n", flattenBlockScalar(iList_5)))), acc_6);
-                                                continue loopRead;
-                                              }
-                                              default: {
-                                                let matchResult_20 = void 0, tail_5 = void 0, v_14 = void 0;
-                                                if (!isEmpty(rest_37)) {
-                                                  const activePatternResult_29 = $007CExplicitValue$007C_$007C(head(rest_37));
-                                                  if (activePatternResult_29 != null) {
-                                                    matchResult_20 = 0;
-                                                    tail_5 = tail(rest_37);
-                                                    v_14 = value(activePatternResult_29);
-                                                  } else {
-                                                    matchResult_20 = 1;
-                                                  }
-                                                } else {
-                                                  matchResult_20 = 1;
-                                                }
-                                                switch (matchResult_20) {
-                                                  case 0: {
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = tail_5;
-                                                    acc_6_mut = cons(YAMLElement_Mapping(k == null ? YAMLContent_create_Z1C3A29C9("") : createScalarContent(value(k), void 0), parseValue(v_14)), acc_6);
-                                                    continue loopRead;
-                                                  }
-                                                  default: {
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = rest_37;
-                                                    acc_6_mut = cons(YAMLElement_Mapping(k == null ? YAMLContent_create_Z1C3A29C9("") : createScalarContent(value(k), void 0), YAMLElement.Nil), acc_6);
-                                                    continue loopRead;
-                                                  }
-                                                }
-                                              }
-                                            }
-                                          }
-                                        }
-                                      }
-                                      case 1: {
-                                        const keyContent_7 = createScalarContent(v_15.Key, restoreCommentReplace(commentDict, v_15.Comment));
-                                        const parsedValue = loopRead(handles_3, yamlAstList_4, empty());
-                                        handles_3_mut = handles_3;
-                                        restlist_mut = rest_38;
-                                        acc_6_mut = cons(YAMLElement_Mapping(keyContent_7, (matchValue_30 = tryCollapsePlainScalarContent(false, yamlAstList_4, parsedValue), matchValue_30 == null ? parsedValue : YAMLElement_Object$(singleton$1(YAMLElement_Value(value(matchValue_30)))))), acc_6);
-                                        continue loopRead;
-                                      }
-                                      default: {
-                                        let matchResult_21 = void 0, rest0_6 = void 0, v_17 = void 0, block_3 = void 0, rest_42 = void 0, v_18 = void 0;
-                                        if (!isEmpty(restlist)) {
-                                          const activePatternResult_30 = $007CKey$007C_$007C(head(restlist));
-                                          if (activePatternResult_30 != null) {
-                                            matchResult_21 = 0;
-                                            rest0_6 = tail(restlist);
-                                            v_17 = value(activePatternResult_30);
-                                          } else {
-                                            const activePatternResult_31 = $007CKeyValue$007C_$007C(head(restlist));
-                                            if (activePatternResult_31 != null) {
-                                              if (!isEmpty(tail(restlist))) {
-                                                if (head(tail(restlist)).tag === /* Intendation */
-                                                1) {
-                                                  if (head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_31).Value)) {
-                                                    matchResult_21 = 1;
-                                                    block_3 = head(tail(restlist)).fields[0];
-                                                    rest_42 = tail(tail(restlist));
-                                                    v_18 = value(activePatternResult_31);
-                                                  } else {
-                                                    matchResult_21 = 2;
-                                                  }
-                                                } else {
-                                                  matchResult_21 = 2;
-                                                }
-                                              } else {
-                                                matchResult_21 = 2;
-                                              }
-                                            } else {
-                                              matchResult_21 = 2;
-                                            }
-                                          }
-                                        } else {
-                                          matchResult_21 = 2;
-                                        }
-                                        switch (matchResult_21) {
-                                          case 0: {
-                                            const patternInput_10 = takeLeadingComments(rest0_6);
-                                            const leadingComments = patternInput_10[0];
-                                            const afterComments = patternInput_10[1];
-                                            let matchResult_22 = void 0, tail_6 = void 0, w = void 0, yamlAstList_5 = void 0;
-                                            if (!isEmpty(afterComments)) {
-                                              const activePatternResult_32 = $007CSequenceMinusOpener$007C_$007C(head(afterComments));
-                                              if (activePatternResult_32 != null) {
-                                                if (!isEmpty(tail(afterComments))) {
-                                                  if (head(tail(afterComments)).tag === /* Intendation */
-                                                  1) {
-                                                    matchResult_22 = 0;
-                                                    tail_6 = tail(tail(afterComments));
-                                                    w = value(activePatternResult_32);
-                                                    yamlAstList_5 = head(tail(afterComments)).fields[0];
-                                                  } else {
-                                                    matchResult_22 = 1;
-                                                  }
-                                                } else {
-                                                  matchResult_22 = 1;
-                                                }
-                                              } else {
-                                                matchResult_22 = 1;
-                                              }
-                                            } else {
-                                              matchResult_22 = 1;
-                                            }
-                                            switch (matchResult_22) {
-                                              case 0: {
-                                                const keyContent_8 = createScalarContent(v_17.Key, restoreCommentReplace(commentDict, v_17.Comment));
-                                                const objectList_3 = w.Value != null ? cons(PreprocessorElement_Line(value(w.Value)), yamlAstList_5) : yamlAstList_5;
-                                                const sequenceElements_5 = collectSequenceElements(toList(takeWhile(isSequenceElement, tail_6)));
-                                                const rest_40 = toList(skipWhile(isSequenceElement, tail_6));
-                                                const seq = YAMLElement_Sequence(toList(delay(() => append$1(singleton(loopRead(handles_3, objectList_3, empty())), delay(() => map$1((element_1) => loopRead(handles_3, element_1, empty()), sequenceElements_5))))));
-                                                handles_3_mut = handles_3;
-                                                restlist_mut = rest_40;
-                                                acc_6_mut = cons(YAMLElement_Mapping(keyContent_8, YAMLElement_Object$(append(commentTokensToYaml(leadingComments), singleton$1(seq)))), acc_6);
-                                                continue loopRead;
-                                              }
-                                              default: {
-                                                let matchResult_23 = void 0, tail_7 = void 0, w_1 = void 0;
-                                                if (!isEmpty(afterComments)) {
-                                                  const activePatternResult_33 = $007CSequenceMinusOpener$007C_$007C(head(afterComments));
-                                                  if (activePatternResult_33 != null) {
-                                                    matchResult_23 = 0;
-                                                    tail_7 = tail(afterComments);
-                                                    w_1 = value(activePatternResult_33);
-                                                  } else {
-                                                    matchResult_23 = 1;
-                                                  }
-                                                } else {
-                                                  matchResult_23 = 1;
-                                                }
-                                                switch (matchResult_23) {
-                                                  case 0: {
-                                                    const keyContent_9 = createScalarContent(v_17.Key, restoreCommentReplace(commentDict, v_17.Comment));
-                                                    let initialObjectList_1;
-                                                    const matchValue_31 = w_1.Value;
-                                                    initialObjectList_1 = matchValue_31 == null ? empty() : singleton$1(PreprocessorElement_Line(value(matchValue_31)));
-                                                    let patternInput_11;
-                                                    const matchValue_32 = splitLeadingSequenceItemContinuation(tail_7);
-                                                    if (matchValue_32 == null) {
-                                                      patternInput_11 = [initialObjectList_1, tail_7];
-                                                    } else {
-                                                      const remaining_2 = value(matchValue_32)[1];
-                                                      patternInput_11 = [append(initialObjectList_1, value(matchValue_32)[0]), remaining_2];
-                                                    }
-                                                    const sequenceSource_1 = patternInput_11[1];
-                                                    const sequenceElements_6 = collectSequenceElements(toList(takeWhile(isSequenceElement, sequenceSource_1)));
-                                                    const rest_41 = toList(skipWhile(isSequenceElement, sequenceSource_1));
-                                                    const seq_1 = YAMLElement_Sequence(toList(delay(() => append$1(singleton(loopRead(handles_3, patternInput_11[0], empty())), delay(() => map$1((element_2) => loopRead(handles_3, element_2, empty()), sequenceElements_6))))));
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = rest_41;
-                                                    acc_6_mut = cons(YAMLElement_Mapping(keyContent_9, YAMLElement_Object$(append(commentTokensToYaml(leadingComments), singleton$1(seq_1)))), acc_6);
-                                                    continue loopRead;
-                                                  }
-                                                  default: {
-                                                    const current_19 = YAMLElement_Value(YAMLContent_create_Z1C3A29C9(v_17.Key + ":", unwrap(restoreCommentReplace(commentDict, v_17.Comment))));
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = afterComments;
-                                                    acc_6_mut = append(reverse(commentTokensToYaml(leadingComments)), cons(current_19, acc_6));
-                                                    continue loopRead;
-                                                  }
-                                                }
-                                              }
-                                            }
-                                          }
-                                          case 1: {
-                                            const matchValue_33 = tryReadBlockScalar(v_18.Value, v_18.Indent, void 0, block_3);
-                                            if (matchValue_33 == null) {
-                                              return toFail(printf("Invalid block scalar header: %s"))(v_18.Value);
-                                            } else {
-                                              const blockScalar_1 = value(matchValue_33);
-                                              handles_3_mut = handles_3;
-                                              restlist_mut = rest_42;
-                                              acc_6_mut = cons(YAMLElement_Mapping(createScalarContent(v_18.Key, void 0), YAMLElement_Value(YAMLContent_create_Z1C3A29C9(blockScalar_1.Value, unwrap(blockScalar_1.Comment), unwrap(blockScalar_1.Props.Anchor), unwrap(blockScalar_1.Props.Tag), ScalarStyle_Block(blockScalar_1.Style, blockScalar_1.Chomp, blockScalar_1.Indent)))), acc_6);
-                                              continue loopRead;
-                                            }
-                                          }
-                                          default: {
-                                            let matchResult_24 = void 0, block_4 = void 0, rest_43 = void 0, v_19 = void 0;
-                                            if (!isEmpty(restlist)) {
-                                              const activePatternResult_34 = $007CKeyValue$007C_$007C(head(restlist));
-                                              if (activePatternResult_34 != null) {
-                                                if (!isEmpty(tail(restlist))) {
-                                                  if (head(tail(restlist)).tag === /* Intendation */
-                                                  1) {
-                                                    matchResult_24 = 0;
-                                                    block_4 = head(tail(restlist)).fields[0];
-                                                    rest_43 = tail(tail(restlist));
-                                                    v_19 = value(activePatternResult_34);
-                                                  } else {
-                                                    matchResult_24 = 1;
-                                                  }
-                                                } else {
-                                                  matchResult_24 = 1;
-                                                }
-                                              } else {
-                                                matchResult_24 = 1;
-                                              }
-                                            } else {
-                                              matchResult_24 = 1;
-                                            }
-                                            switch (matchResult_24) {
-                                              case 0: {
-                                                const keyContent_11 = createScalarContent(v_19.Key, void 0);
-                                                const parsedValue_1 = loopRead(handles_3, cons(PreprocessorElement_Line(v_19.Value), block_4), empty());
-                                                let patternInput_13;
-                                                const matchValue_34 = tryCollapsePlainScalarContent(true, block_4, parsedValue_1);
-                                                if (matchValue_34 == null) {
-                                                  patternInput_13 = [parsedValue_1, rest_43];
-                                                } else {
-                                                  const content_7 = value(matchValue_34);
-                                                  const patternInput_12 = takePlainScalarContinuationContents(rest_43, empty());
-                                                  patternInput_13 = [YAMLElement_Object$(singleton$1(YAMLElement_Value((content_4 = content_7, continuations = patternInput_12[0], isEmpty(continuations) ? content_4 : new YAMLContent(join("\n", map((segment_1) => segment_1.Value, cons(content_4, continuations))), content_4.Comment, content_4.Anchor, content_4.Tag, ScalarStyle.Plain))))), patternInput_12[1]];
-                                                }
-                                                handles_3_mut = handles_3;
-                                                restlist_mut = patternInput_13[1];
-                                                acc_6_mut = cons(YAMLElement_Mapping(keyContent_11, patternInput_13[0]), acc_6);
-                                                continue loopRead;
-                                              }
-                                              default: {
-                                                let matchResult_25 = void 0, rest_45 = void 0, v_21 = void 0, rest_46 = void 0, v_22 = void 0, block_6 = void 0, rest_47 = void 0, v_23 = void 0;
-                                                if (!isEmpty(restlist)) {
-                                                  const activePatternResult_35 = $007CKeyValue$007C_$007C(head(restlist));
-                                                  if (activePatternResult_35 != null) {
-                                                    matchResult_25 = 0;
-                                                    rest_45 = tail(restlist);
-                                                    v_21 = value(activePatternResult_35);
-                                                  } else {
-                                                    const activePatternResult_36 = $007CYamlComment$007C_$007C(head(restlist));
-                                                    if (activePatternResult_36 != null) {
-                                                      matchResult_25 = 1;
-                                                      rest_46 = tail(restlist);
-                                                      v_22 = value(activePatternResult_36);
-                                                    } else {
-                                                      const activePatternResult_37 = $007CYamlValue$007C_$007C(head(restlist));
-                                                      if (activePatternResult_37 != null) {
-                                                        if (!isEmpty(tail(restlist))) {
-                                                          if (head(tail(restlist)).tag === /* Intendation */
-                                                          1) {
-                                                            if (head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_37).Value)) {
-                                                              matchResult_25 = 2;
-                                                              block_6 = head(tail(restlist)).fields[0];
-                                                              rest_47 = tail(tail(restlist));
-                                                              v_23 = value(activePatternResult_37);
-                                                            } else {
-                                                              matchResult_25 = 3;
-                                                            }
-                                                          } else {
-                                                            matchResult_25 = 3;
-                                                          }
-                                                        } else {
-                                                          matchResult_25 = 3;
-                                                        }
-                                                      } else {
-                                                        matchResult_25 = 3;
-                                                      }
-                                                    }
-                                                  }
-                                                } else {
-                                                  matchResult_25 = 3;
-                                                }
-                                                switch (matchResult_25) {
-                                                  case 0: {
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = rest_45;
-                                                    acc_6_mut = cons(YAMLElement_Mapping(createScalarContent(v_21.Key, void 0), loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_21.Value)), empty())), acc_6);
-                                                    continue loopRead;
-                                                  }
-                                                  case 1: {
-                                                    handles_3_mut = handles_3;
-                                                    restlist_mut = rest_46;
-                                                    acc_6_mut = cons(YAMLElement_Comment$(getItemFromDict(commentDict, v_22.Comment)), acc_6);
-                                                    continue loopRead;
-                                                  }
-                                                  case 2: {
-                                                    const matchValue_35 = tryReadBlockScalar(v_23.Value, v_23.Indent, v_23.Comment, block_6);
-                                                    if (matchValue_35 == null) {
-                                                      return toFail(printf("Invalid block scalar header: %s"))(v_23.Value);
-                                                    } else {
-                                                      const blockScalar_2 = value(matchValue_35);
-                                                      handles_3_mut = handles_3;
-                                                      restlist_mut = rest_47;
-                                                      acc_6_mut = cons(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(blockScalar_2.Value, unwrap(blockScalar_2.Comment), unwrap(blockScalar_2.Props.Anchor), unwrap(blockScalar_2.Props.Tag), ScalarStyle_Block(blockScalar_2.Style, blockScalar_2.Chomp, blockScalar_2.Indent))), acc_6);
-                                                      continue loopRead;
-                                                    }
-                                                  }
-                                                  default: {
-                                                    let matchResult_26 = void 0, block_7 = void 0, rest_48 = void 0, v_24 = void 0;
-                                                    if (!isEmpty(restlist)) {
-                                                      const activePatternResult_38 = $007CYamlValue$007C_$007C(head(restlist));
-                                                      if (activePatternResult_38 != null) {
-                                                        if (!isEmpty(tail(restlist))) {
-                                                          if (head(tail(restlist)).tag === /* Intendation */
-                                                          1) {
-                                                            matchResult_26 = 0;
-                                                            block_7 = head(tail(restlist)).fields[0];
-                                                            rest_48 = tail(tail(restlist));
-                                                            v_24 = value(activePatternResult_38);
-                                                          } else {
-                                                            matchResult_26 = 1;
-                                                          }
-                                                        } else {
-                                                          matchResult_26 = 1;
-                                                        }
-                                                      } else {
-                                                        matchResult_26 = 1;
-                                                      }
-                                                    } else {
-                                                      matchResult_26 = 1;
-                                                    }
-                                                    switch (matchResult_26) {
-                                                      case 0: {
-                                                        const parsedValue_2 = loopRead(handles_3, cons(PreprocessorElement_Line(v_24.Value), block_7), empty());
-                                                        handles_3_mut = handles_3;
-                                                        restlist_mut = rest_48;
-                                                        acc_6_mut = cons((matchValue_36 = tryCollapsePlainScalarContent(true, block_7, parsedValue_2), matchValue_36 == null ? parsedValue_2.tag === /* Object */
-                                                        3 ? !isEmpty(parsedValue_2.fields[0]) ? isEmpty(tail(parsedValue_2.fields[0])) ? (single = head(parsedValue_2.fields[0]), single) : toFail(printf("Unknown pattern: %A"))(cons(PreprocessorElement_Line(v_24.Value), block_7)) : toFail(printf("Unknown pattern: %A"))(cons(PreprocessorElement_Line(v_24.Value), block_7)) : toFail(printf("Unknown pattern: %A"))(cons(PreprocessorElement_Line(v_24.Value), block_7)) : YAMLElement_Value(value(matchValue_36))), acc_6);
-                                                        continue loopRead;
-                                                      }
-                                                      default: {
-                                                        let matchResult_27 = void 0, rest_50 = void 0, v_26 = void 0;
-                                                        if (!isEmpty(restlist)) {
-                                                          const activePatternResult_39 = $007CYamlValue$007C_$007C(head(restlist));
-                                                          if (activePatternResult_39 != null) {
-                                                            if (v_25 = value(activePatternResult_39), v_25.Value === "" && v_25.Comment == null) {
-                                                              matchResult_27 = 0;
-                                                              rest_50 = tail(restlist);
-                                                              v_26 = value(activePatternResult_39);
-                                                            } else {
-                                                              matchResult_27 = 1;
-                                                            }
-                                                          } else {
-                                                            matchResult_27 = 1;
-                                                          }
-                                                        } else {
-                                                          matchResult_27 = 1;
-                                                        }
-                                                        switch (matchResult_27) {
-                                                          case 0: {
-                                                            handles_3_mut = handles_3;
-                                                            restlist_mut = rest_50;
-                                                            acc_6_mut = acc_6;
-                                                            continue loopRead;
-                                                          }
-                                                          default:
-                                                            if (isEmpty(restlist)) {
-                                                              return YAMLElement_Object$(reverse(acc_6));
-                                                            } else {
-                                                              const activePatternResult_40 = $007CYamlValue$007C_$007C(head(restlist));
-                                                              if (activePatternResult_40 != null) {
-                                                                const v_27 = value(activePatternResult_40);
-                                                                const c_13 = restoreCommentReplace(commentDict, v_27.Comment);
-                                                                const props_3 = extractProperties(handles_3, v_27.Value);
-                                                                const patternInput_14 = restoreScalarWithStyle(props_3.Value);
-                                                                handles_3_mut = handles_3;
-                                                                restlist_mut = tail(restlist);
-                                                                acc_6_mut = cons(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(patternInput_14[0], unwrap(c_13), unwrap(props_3.Anchor), unwrap(props_3.Tag), unwrap(patternInput_14[1]))), acc_6);
-                                                                continue loopRead;
-                                                              } else {
-                                                                return toFail(printf("Unknown pattern: %A"))(restlist);
-                                                              }
-                                                            }
-                                                        }
-                                                      }
-                                                    }
-                                                  }
-                                                }
-                                              }
-                                            }
-                                          }
-                                        }
-                                      }
-                                    }
-                                  }
-                                }
-                              }
-                            }
-                          }
-                        }
-                      }
-                    }
-                  }
-                }
-              }
-            }
-          }
-        }
-        break;
-      }
-  };
-  return loopRead(handles, yamlList, empty());
-}
-function read(yaml) {
-  const ast = read$1(yaml);
-  const matchValue = ast.AST;
-  if (matchValue.tag === /* Level */
-  0) {
-    return tokenize(matchValue.fields[0], ast.StringMap, ast.CommentMap, ast.TagHandles);
-  } else {
-    throw new Exception("Not a root!");
-  }
-}
-function readDocuments(yaml) {
-  const appendCurrentDocument = (currentDoc, docs) => {
-    if (isEmpty(currentDoc)) {
-      return docs;
-    } else {
-      return cons(reverse(currentDoc), docs);
-    }
-  };
-  const splitDocuments = (remaining_mut, currentDoc_1_mut, docs_1_mut, blockHeaderIndent_mut) => {
-    splitDocuments:
-      while (true) {
-        const remaining = remaining_mut, currentDoc_1 = currentDoc_1_mut, docs_1 = docs_1_mut, blockHeaderIndent = blockHeaderIndent_mut;
-        let matchValue = void 0;
-        if (!isEmpty(remaining)) {
-          const rest = tail(remaining);
-          const line = head(remaining);
-          if (blockHeaderIndent == null) {
-            if (Document_isTopLevelMarker(Document_isStart, line)) {
-              const inlineContent = Document_tryInlineContentAfterStartMarker(line);
-              if (isEmpty(currentDoc_1) ? true : Document_isDirectivePreludeOnly(currentDoc_1)) {
-                const preludeDirectives = filter((l) => trimStart(l).startsWith("%"), currentDoc_1);
-                remaining_mut = rest;
-                currentDoc_1_mut = inlineContent == null ? preludeDirectives : cons(value(inlineContent), preludeDirectives);
-                docs_1_mut = docs_1;
-                blockHeaderIndent_mut = void 0;
-                continue splitDocuments;
-              } else {
-                const docs$0027 = appendCurrentDocument(currentDoc_1, docs_1);
-                remaining_mut = rest;
-                currentDoc_1_mut = inlineContent == null ? empty() : singleton$1(value(inlineContent));
-                docs_1_mut = docs$0027;
-                blockHeaderIndent_mut = void 0;
-                continue splitDocuments;
-              }
-            } else if (Document_isTopLevelMarker(Document_isEnd, line)) {
-              remaining_mut = rest;
-              currentDoc_1_mut = empty();
-              docs_1_mut = appendCurrentDocument(currentDoc_1, docs_1);
-              blockHeaderIndent_mut = void 0;
-              continue splitDocuments;
-            } else {
-              remaining_mut = rest;
-              currentDoc_1_mut = cons(line, currentDoc_1);
-              docs_1_mut = docs_1;
-              blockHeaderIndent_mut = (matchValue = BlockScalar_tryDetectHeaderIndent(line), matchValue == null ? void 0 : value(matchValue));
-              continue splitDocuments;
-            }
-          } else {
-            const headerIndent = value(blockHeaderIndent) | 0;
-            if (line.trim() === "" ? true : Line_countLeadingSpaces(line) > headerIndent) {
-              remaining_mut = rest;
-              currentDoc_1_mut = cons(line, currentDoc_1);
-              docs_1_mut = docs_1;
-              blockHeaderIndent_mut = blockHeaderIndent;
-              continue splitDocuments;
-            } else {
-              remaining_mut = remaining;
-              currentDoc_1_mut = currentDoc_1;
-              docs_1_mut = docs_1;
-              blockHeaderIndent_mut = void 0;
-              continue splitDocuments;
-            }
-          }
-        } else {
-          return reverse(appendCurrentDocument(currentDoc_1, docs_1));
-        }
-        break;
-      }
-  };
-  return map((docLines) => read(join("\n", docLines)), filter((doc) => exists((l_1) => l_1.trim() !== "", doc), splitDocuments(ofArray(split(Line_normalizeNewlines(yaml), ["\n"], void 0, 0)), empty(), empty(), void 0)));
-}
-
-export { collectSequenceElements, isSequenceElement, read, readDocuments };