@nfdi4plants/arctrl 3.0.3 → 3.1.0

package/dist/ts/ts/fable_modules/{YAMLicious.1.0.0-alpha.5 → YAMLicious.1.0.0-alpha.7}/Reader.fs.js

@@ -1,14 +1,14 @@
 import { unescapeDoubleQuoted } from './Escapes.fs.js';
-import { BlockScalarStyle_Folded, BlockScalarStyle_Literal, ChompingMode_Clip, ChompingMode_Strip, ChompingMode_Keep, PreprocessorElement_Line, YAMLElement_Object, ScalarStyle_DoubleQuoted, ScalarStyle_SingleQuoted, YAMLElement_Value, YAMLContent_create_Z1C3A29C9, ScalarStyle_Block, YAMLElement_Comment, YAMLElement_Mapping, YAMLElement_Sequence, YAMLElement_Nil, YAMLElement_Alias } from './YAMLiciousTypes.fs.js';
+import { BlockScalarStyle_Folded, BlockScalarStyle_Literal, ChompingMode_Clip, ChompingMode_Strip, ChompingMode_Keep, PreprocessorElement_Line, YAMLContent, ScalarStyle_Plain, YAMLElement_Object, ScalarStyle_DoubleQuoted, ScalarStyle_SingleQuoted, YAMLElement_Value, YAMLContent_create_Z1C3A29C9, ScalarStyle_Block, YAMLElement_Comment, YAMLElement_Mapping, YAMLElement_Sequence, YAMLElement_Nil, YAMLElement_Alias } from './YAMLiciousTypes.fs.js';
 import { match, create, replace } from '../../../node_modules/@fable-org/fable-library-js/RegExp.js';
 import { parse } from '../../../node_modules/@fable-org/fable-library-js/Int32.js';
 import { value, map as map$1, unwrap } from '../../../node_modules/@fable-org/fable-library-js/Option.js';
 import { getItemFromDict } from '../../../node_modules/@fable-org/fable-library-js/MapUtil.js';
 import { equals, comparePrimitives } from '../../../node_modules/@fable-org/fable-library-js/Util.js';
 import { isNullOrWhiteSpace, trimEnd, substring, join, toFail, printf, trimStart, split, replace as replace$1 } from '../../../node_modules/@fable-org/fable-library-js/String.js';
-import { length, takeWhile, toList, delay, append, singleton, skipWhile, map as map$2, collect as collect$1 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { length, takeWhile, toList, delay, append, singleton, skipWhile, map as map$2 } from '../../../node_modules/@fable-org/fable-library-js/Seq.js';
 import { min } from '../../../node_modules/@fable-org/fable-library-js/Double.js';
-import { toArray, map, filter, min as min$1, isEmpty, head, tail, empty, singleton as singleton$1, cons, collect, reverse, append as append$1, ofArrayWithTail, exists, forAll, ofArray } from '../../../node_modules/@fable-org/fable-library-js/List.js';
+import { toArray, map, filter, min as min$1, isEmpty, head, tail, empty, singleton as singleton$1, cons, collect, reverse, length as length$1, append as append$1, choose, ofArrayWithTail, exists, forAll, ofArray } from '../../../node_modules/@fable-org/fable-library-js/List.js';
 import { StringBuffer_$ctor, StringBuffer__Append_244C7CD6, StringBuffer__Append_Z721C83C5 } from './StringBuffer.fs.js';
 import { item, tryHead } from '../../../node_modules/@fable-org/fable-library-js/Array.js';
 import { toString } from '../../../node_modules/@fable-org/fable-library-js/Types.js';
@@ -16,6 +16,7 @@ import { $007CSequenceMinusOpener$007C_$007C, $007CYamlComment$007C_$007C, $007C
 import { defaultContext, transformElements, TransformContext } from './FlowToBlock.fs.js';
 import { VerbatimTagPattern, AnchorPattern } from './Regex.fs.js';
 import { tryFind } from '../../../node_modules/@fable-org/fable-library-js/Map.js';
+import { Queue$1_$ctor_BB573A, Queue$1__Dequeue } from '../../../node_modules/@fable-org/fable-library-js/System.Collections.Generic.js';
 import { read as read$1, isDocumentStart, isDocumentEnd } from './Preprocessing.fs.js';
 
 function restoreScalarPlaceholderValue(entry) {
@@ -283,6 +284,7 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
         return empty();
     }
   }, eles_2);
+  const flattenBlockScalarContent = (eles_3) => flattenBlockScalarContentWithDepth(0, eles_3);
   const extractProperties = (handles_2, v) => {
     let shorthand, m_2, handle, suffix, matchValue_2;
     let current = v.trim();
@@ -337,7 +339,7 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
       const style_1 = value(matchValue_3)[0];
       const indent = value(matchValue_3)[1];
       const chomp = value(matchValue_3)[2];
-      const value_4 = buildBlockScalarContent(style_1, chomp, headerIndent, indent, flattenBlockScalarContentWithDepth(0, block));
+      const value_4 = buildBlockScalarContent(style_1, chomp, headerIndent, indent, flattenBlockScalarContent(block));
       return {
         Chomp: chomp,
         Comment: unwrap(restoreCommentReplace(commentDict, commentId)),
@@ -348,73 +350,156 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
       };
     }
   };
-  const loopRead = (handles_3_mut, restlist_mut, acc_mut) => {
-    let c2_2, c1_2, c1_1, c2_1, s_3, s_4, v_25, block_3, block_1, v_10, v_8, yamlAstList_1, v_2;
+  const tryCollapsePlainScalarContent = (hasInlineFirstLine, block_1, parsed) => {
+    let matchValue_6;
+    const element = parsed;
+    const loop = (allowMetadata_1_mut, items_mut, acc_mut) => {
+      let content, matchValue_4;
+      loop:
+        while (true) {
+          const allowMetadata_1 = allowMetadata_1_mut, items = items_mut, acc = acc_mut;
+          let matchResult, content_2, rest_1;
+          if (!isEmpty(items)) {
+            if (head(items).tag === /* Value */
+            1) {
+              if (content = head(items).fields[0], (matchValue_4 = content.Style, matchValue_4 != null ? value(matchValue_4).tag === /* Plain */
+              0 : true) && (allowMetadata_1 ? true : content.Comment == null && content.Anchor == null && content.Tag == null)) {
+                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, firstSegment, segments_1;
+    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);
+        if ((hasInlineFirstLine ? length$1(segments_1) - 1 : length$1(segments_1)) !== length$1(filter((line_1) => line_1.trim() !== "", rawBlockLines))) {
+          return void 0;
+        } else {
+          const values = Queue$1_$ctor_BB573A(hasInlineFirstLine ? tail(segments_1) : segments_1);
+          const renderedBlockLines = map((rawLine) => {
+            if (rawLine.trim() === "") {
+              return "";
+            } else {
+              return Queue$1__Dequeue(values).Value;
+            }
+          }, rawBlockLines);
+          const rawValue = join("\n", hasInlineFirstLine ? cons(firstSegment.Value, renderedBlockLines) : renderedBlockLines);
+          return new YAMLContent(rawValue, firstSegment.Comment, firstSegment.Anchor, firstSegment.Tag, rawValue.indexOf("\n") >= 0 ? ScalarStyle_Plain() : firstSegment.Style);
+        }
+      }
+      default:
+        return void 0;
+    }
+  };
+  const loopRead = (handles_3_mut, restlist_mut, acc_1_mut) => {
+    let c2_2, c1_2, c1_1, c2_1, s_5, s_6, matchValue_15, single, v_27, block_5, block_2, v_10, v_8, yamlAstList_1, v_2;
     loopRead:
       while (true) {
-        const handles_3 = handles_3_mut, restlist = restlist_mut, acc = acc_mut;
-        let matchResult, alias, rest;
+        const handles_3 = handles_3_mut, restlist = restlist_mut, acc_1 = acc_1_mut;
+        let matchResult_2, alias, rest_2;
         if (!isEmpty(restlist)) {
           const activePatternResult = $007CAliasNode$007C_$007C(head(restlist));
           if (activePatternResult != null) {
-            matchResult = 0;
+            matchResult_2 = 0;
             alias = value(activePatternResult);
-            rest = tail(restlist);
+            rest_2 = tail(restlist);
           } else if ($007CDocumentEnd$007C_$007C(head(restlist)) != null) {
-            matchResult = 1;
+            matchResult_2 = 1;
           } else {
-            matchResult = 2;
+            matchResult_2 = 2;
           }
         } else {
-          matchResult = 2;
+          matchResult_2 = 2;
         }
-        switch (matchResult) {
+        switch (matchResult_2) {
           case 0: {
             handles_3_mut = handles_3;
-            restlist_mut = rest;
-            acc_mut = cons(YAMLElement_Alias(alias), acc);
+            restlist_mut = rest_2;
+            acc_1_mut = cons(YAMLElement_Alias(alias), acc_1);
             continue loopRead;
           }
           case 1:
-            return YAMLElement_Object(reverse(acc));
+            return YAMLElement_Object(reverse(acc_1));
           default: {
-            let matchResult_1, rest0, v_1, yamlAstList;
+            let matchResult_3, rest0, v_1, yamlAstList;
             if (!isEmpty(restlist)) {
               const activePatternResult_2 = $007CSchemaNamespace$007C_$007C(head(restlist));
               if (activePatternResult_2 != null) {
                 if (!isEmpty(tail(restlist))) {
                   if (head(tail(restlist)).tag === /* Intendation */
                   1) {
-                    matchResult_1 = 0;
+                    matchResult_3 = 0;
                     rest0 = tail(tail(restlist));
                     v_1 = value(activePatternResult_2);
                     yamlAstList = head(tail(restlist)).fields[0];
                   } else {
-                    matchResult_1 = 1;
+                    matchResult_3 = 1;
                   }
                 } else {
-                  matchResult_1 = 1;
+                  matchResult_3 = 1;
                 }
               } else {
-                matchResult_1 = 1;
+                matchResult_3 = 1;
               }
             } else {
-              matchResult_1 = 1;
+              matchResult_3 = 1;
             }
-            switch (matchResult_1) {
+            switch (matchResult_3) {
               case 0: {
                 const sequenceElements = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0)));
                 handles_3_mut = handles_3;
                 restlist_mut = toList(skipWhile(isSequenceElement, rest0));
-                acc_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, cons(PreprocessorElement_Line(v_1.Key), yamlAstList), empty())), delay(() => map$2((i) => loopRead(handles_3, i, empty()), sequenceElements)))))), acc);
+                acc_1_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, cons(PreprocessorElement_Line(v_1.Key), yamlAstList), empty())), delay(() => map$2((i) => loopRead(handles_3, i, empty()), sequenceElements)))))), acc_1);
                 continue loopRead;
               }
               default: {
-                let matchResult_2, rest0_2, v_3, rest0_3, v_4, yamlAstList_2;
+                let matchResult_4, rest0_2, v_3, rest0_3, v_4, yamlAstList_2;
                 if (!isEmpty(restlist)) {
                   const activePatternResult_3 = $007CSchemaNamespace$007C_$007C(head(restlist));
                   if (activePatternResult_3 != null) {
-                    matchResult_2 = 0;
+                    matchResult_4 = 0;
                     rest0_2 = tail(restlist);
                     v_3 = value(activePatternResult_3);
                   } else {
@@ -424,96 +509,99 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                         if (head(tail(restlist)).tag === /* Intendation */
                         1) {
                           if (yamlAstList_1 = head(tail(restlist)).fields[0], v_2 = value(activePatternResult_4), v_2.Value != null && isBlockScalarHeaderCandidate(value(v_2.Value))) {
-                            matchResult_2 = 1;
+                            matchResult_4 = 1;
                             rest0_3 = tail(tail(restlist));
                             v_4 = value(activePatternResult_4);
                             yamlAstList_2 = head(tail(restlist)).fields[0];
                           } else {
-                            matchResult_2 = 2;
+                            matchResult_4 = 2;
                           }
                         } else {
-                          matchResult_2 = 2;
+                          matchResult_4 = 2;
                         }
                       } else {
-                        matchResult_2 = 2;
+                        matchResult_4 = 2;
                       }
                     } else {
-                      matchResult_2 = 2;
+                      matchResult_4 = 2;
                     }
                   }
                 } else {
-                  matchResult_2 = 2;
+                  matchResult_4 = 2;
                 }
-                switch (matchResult_2) {
+                switch (matchResult_4) {
                   case 0: {
                     const sequenceElements_1 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_2)));
                     handles_3_mut = handles_3;
                     restlist_mut = toList(skipWhile(isSequenceElement, rest0_2));
-                    acc_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_3.Key)), empty())), delay(() => map$2((i_1) => loopRead(handles_3, i_1, empty()), sequenceElements_1)))))), acc);
+                    acc_1_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_3.Key)), empty())), delay(() => map$2((i_1) => loopRead(handles_3, i_1, empty()), sequenceElements_1)))))), acc_1);
                     continue loopRead;
                   }
                   case 1: {
-                    const matchValue_4 = tryReadBlockScalar(value(v_4.Value), v_4.Indent, void 0, yamlAstList_2);
-                    if (matchValue_4 == null) {
+                    const matchValue_7 = tryReadBlockScalar(value(v_4.Value), v_4.Indent, void 0, yamlAstList_2);
+                    if (matchValue_7 == null) {
                       const arg = value(v_4.Value);
                       return toFail(printf("Invalid sequence block scalar header: %s"))(arg);
                     } else {
-                      const blockScalar = value(matchValue_4);
+                      const blockScalar = value(matchValue_7);
                       const sequenceElements_2 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_3)));
-                      const rest_3 = toList(skipWhile(isSequenceElement, rest0_3));
+                      const rest_5 = 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_3;
-                      acc_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(firstItem), delay(() => map$2((i_2) => loopRead(handles_3, i_2, empty()), sequenceElements_2)))))), acc);
+                      restlist_mut = rest_5;
+                      acc_1_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(firstItem), delay(() => map$2((i_2) => loopRead(handles_3, i_2, empty()), sequenceElements_2)))))), acc_1);
                       continue loopRead;
                     }
                   }
                   default: {
-                    let matchResult_3, rest0_4, v_5, yamlAstList_3;
+                    let matchResult_5, rest0_4, v_5, yamlAstList_3;
                     if (!isEmpty(restlist)) {
                       const activePatternResult_5 = $007CSequenceMinusOpener$007C_$007C(head(restlist));
                       if (activePatternResult_5 != null) {
                         if (!isEmpty(tail(restlist))) {
                           if (head(tail(restlist)).tag === /* Intendation */
                           1) {
-                            matchResult_3 = 0;
+                            matchResult_5 = 0;
                             rest0_4 = tail(tail(restlist));
                             v_5 = value(activePatternResult_5);
                             yamlAstList_3 = head(tail(restlist)).fields[0];
                           } else {
-                            matchResult_3 = 1;
+                            matchResult_5 = 1;
                           }
                         } else {
-                          matchResult_3 = 1;
+                          matchResult_5 = 1;
                         }
                       } else {
-                        matchResult_3 = 1;
+                        matchResult_5 = 1;
                       }
                     } else {
-                      matchResult_3 = 1;
+                      matchResult_5 = 1;
                     }
-                    switch (matchResult_3) {
+                    switch (matchResult_5) {
                       case 0: {
-                        const objectList_1 = v_5.Value != null ? cons(PreprocessorElement_Line(value(v_5.Value)), yamlAstList_3) : yamlAstList_3;
+                        const parsedFirstItem = loopRead(handles_3, v_5.Value != null ? cons(PreprocessorElement_Line(value(v_5.Value)), yamlAstList_3) : yamlAstList_3, empty());
+                        let firstItem_1;
+                        const matchValue_8 = tryCollapsePlainScalarContent(v_5.Value != null, yamlAstList_3, parsedFirstItem);
+                        firstItem_1 = matchValue_8 == null ? parsedFirstItem : YAMLElement_Object(singleton$1(YAMLElement_Value(value(matchValue_8))));
                         const sequenceElements_3 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_4)));
                         handles_3_mut = handles_3;
                         restlist_mut = toList(skipWhile(isSequenceElement, rest0_4));
-                        acc_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, objectList_1, empty())), delay(() => map$2((i_3) => loopRead(handles_3, i_3, empty()), sequenceElements_3)))))), acc);
+                        acc_1_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(firstItem_1), delay(() => map$2((i_3) => loopRead(handles_3, i_3, empty()), sequenceElements_3)))))), acc_1);
                         continue loopRead;
                       }
                       default: {
-                        let matchResult_4, rest0_5, v_6, rest_6, v_7, closer, iList, opener, rest_7;
+                        let matchResult_6, rest0_5, v_6, rest_8, v_7, closer, iList, opener, rest_9;
                         if (!isEmpty(restlist)) {
                           const activePatternResult_6 = $007CSequenceMinusOpener$007C_$007C(head(restlist));
                           if (activePatternResult_6 != null) {
-                            matchResult_4 = 0;
+                            matchResult_6 = 0;
                             rest0_5 = tail(restlist);
                             v_6 = value(activePatternResult_6);
                           } else {
                             const activePatternResult_7 = $007CInlineSequence$007C_$007C(head(restlist));
                             if (activePatternResult_7 != null) {
-                              matchResult_4 = 1;
-                              rest_6 = tail(restlist);
+                              matchResult_6 = 1;
+                              rest_8 = tail(restlist);
                               v_7 = value(activePatternResult_7);
                             } else {
                               const activePatternResult_8 = $007CSequenceSquareOpener$007C_$007C(head(restlist));
@@ -524,39 +612,39 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                     if (!isEmpty(tail(tail(restlist)))) {
                                       const activePatternResult_9 = $007CSequenceSquareCloser$007C_$007C(head(tail(tail(restlist))));
                                       if (activePatternResult_9 != null) {
-                                        matchResult_4 = 2;
+                                        matchResult_6 = 2;
                                         closer = value(activePatternResult_9);
                                         iList = head(tail(restlist)).fields[0];
                                         opener = value(activePatternResult_8);
-                                        rest_7 = tail(tail(tail(restlist)));
+                                        rest_9 = tail(tail(tail(restlist)));
                                       } else {
-                                        matchResult_4 = 3;
+                                        matchResult_6 = 3;
                                       }
                                     } else {
-                                      matchResult_4 = 3;
+                                      matchResult_6 = 3;
                                     }
                                   } else {
-                                    matchResult_4 = 3;
+                                    matchResult_6 = 3;
                                   }
                                 } else {
-                                  matchResult_4 = 3;
+                                  matchResult_6 = 3;
                                 }
                               } else {
-                                matchResult_4 = 3;
+                                matchResult_6 = 3;
                               }
                             }
                           }
                         } else {
-                          matchResult_4 = 3;
+                          matchResult_6 = 3;
                         }
-                        switch (matchResult_4) {
+                        switch (matchResult_6) {
                           case 0: {
                             const sequenceElements_4 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_5)));
-                            const rest_5 = toList(skipWhile(isSequenceElement, rest0_5));
+                            const rest_7 = toList(skipWhile(isSequenceElement, rest0_5));
                             const objectList_2 = v_6.Value != null ? singleton$1(PreprocessorElement_Line(value(v_6.Value))) : empty();
                             handles_3_mut = handles_3;
-                            restlist_mut = rest_5;
-                            acc_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, objectList_2, empty())), delay(() => map$2((i_4) => loopRead(handles_3, i_4, empty()), sequenceElements_4)))))), acc);
+                            restlist_mut = rest_7;
+                            acc_1_mut = cons(YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, objectList_2, empty())), delay(() => map$2((i_4) => loopRead(handles_3, i_4, empty()), sequenceElements_4)))))), acc_1);
                             continue loopRead;
                           }
                           case 1: {
@@ -564,49 +652,63 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                             const split$1 = split(v_7.Value, [","], void 0, 1);
                             const current_6 = YAMLElement_Sequence(toList(delay(() => map$2((value_5) => loopRead(handles_3, singleton$1(PreprocessorElement_Line(value_5.trim())), empty()), split$1))));
                             handles_3_mut = handles_3;
-                            restlist_mut = rest_6;
-                            acc_mut = c != null ? ofArrayWithTail([current_6, YAMLElement_Comment(value(c))], acc) : cons(current_6, acc);
+                            restlist_mut = rest_8;
+                            acc_1_mut = c != null ? ofArrayWithTail([current_6, YAMLElement_Comment(value(c))], acc_1) : cons(current_6, acc_1);
                             continue loopRead;
                           }
                           case 2: {
                             const c1 = restoreCommentReplace(commentDict, opener.Comment);
                             const c2 = restoreCommentReplace(commentDict, closer.Comment);
-                            const current_7 = YAMLElement_Sequence(toList(delay(() => collect$1((i_5) => singleton(loopRead(handles_3, singleton$1(i_5.tag === /* Line */
-                            2 ? PreprocessorElement_Line(trimEnd(i_5.fields[0], ",")) : toFail(printf("Unexpected element in MultiLineSquareBrackets: %A"))(i_5)), empty())), iList))));
+                            const sequenceItems = choose((_arg_2) => {
+                              let s_2;
+                              if (_arg_2.tag === /* Line */
+                              2) {
+                                if (s_2 = _arg_2.fields[0], s_2.trim() === "") {
+                                  const s_3 = _arg_2.fields[0];
+                                  return void 0;
+                                } else {
+                                  const s_4 = _arg_2.fields[0];
+                                  return PreprocessorElement_Line(trimEnd(s_4, ","));
+                                }
+                              } else {
+                                return toFail(printf("Unexpected element in MultiLineSquareBrackets: %A"))(_arg_2);
+                              }
+                            }, iList);
+                            const current_7 = YAMLElement_Sequence(toList(delay(() => map$2((i$0027) => loopRead(handles_3, singleton$1(i$0027), empty()), sequenceItems))));
                             handles_3_mut = handles_3;
-                            restlist_mut = rest_7;
-                            acc_mut = c1 == null ? c2 == null ? cons(current_7, acc) : (c2_2 = value(c2), ofArrayWithTail([YAMLElement_Comment(c2_2), current_7], acc)) : c2 == null ? (c1_2 = value(c1), ofArrayWithTail([current_7, YAMLElement_Comment(c1_2)], acc)) : (c1_1 = value(c1), c2_1 = value(c2), ofArrayWithTail([YAMLElement_Comment(c2_1), current_7, YAMLElement_Comment(c1_1)], acc));
+                            restlist_mut = rest_9;
+                            acc_1_mut = c1 == null ? c2 == null ? cons(current_7, acc_1) : (c2_2 = value(c2), ofArrayWithTail([YAMLElement_Comment(c2_2), current_7], acc_1)) : c2 == null ? (c1_2 = value(c1), ofArrayWithTail([current_7, YAMLElement_Comment(c1_2)], acc_1)) : (c1_1 = value(c1), c2_1 = value(c2), ofArrayWithTail([YAMLElement_Comment(c2_1), current_7, YAMLElement_Comment(c1_1)], acc_1));
                             continue loopRead;
                           }
                           default: {
-                            let matchResult_5, rest_9, v_9;
+                            let matchResult_7, rest_11, v_9;
                             if (!isEmpty(restlist)) {
                               const activePatternResult_10 = $007CInlineJSON$007C_$007C(head(restlist));
                               if (activePatternResult_10 != null) {
                                 if (v_8 = value(activePatternResult_10), v_8.Value.trim() === "") {
-                                  matchResult_5 = 0;
-                                  rest_9 = tail(restlist);
+                                  matchResult_7 = 0;
+                                  rest_11 = tail(restlist);
                                   v_9 = value(activePatternResult_10);
                                 } else {
-                                  matchResult_5 = 1;
+                                  matchResult_7 = 1;
                                 }
                               } else {
-                                matchResult_5 = 1;
+                                matchResult_7 = 1;
                               }
                             } else {
-                              matchResult_5 = 1;
+                              matchResult_7 = 1;
                             }
-                            switch (matchResult_5) {
+                            switch (matchResult_7) {
                               case 0: {
                                 const c_1 = restoreCommentReplace(commentDict, v_9.Comment);
                                 const current_8 = empty();
                                 handles_3_mut = handles_3;
-                                restlist_mut = rest_9;
-                                acc_mut = c_1 != null ? append$1(current_8, cons(YAMLElement_Comment(value(c_1)), acc)) : append$1(current_8, acc);
+                                restlist_mut = rest_11;
+                                acc_1_mut = c_1 != null ? append$1(current_8, cons(YAMLElement_Comment(value(c_1)), acc_1)) : append$1(current_8, acc_1);
                                 continue loopRead;
                               }
                               default: {
-                                let matchResult_6, opener_1;
+                                let matchResult_8, opener_1;
                                 if (!isEmpty(restlist)) {
                                   const activePatternResult_11 = $007CJSONKeyOpener$007C_$007C(head(restlist));
                                   if (activePatternResult_11 != null) {
@@ -615,191 +717,191 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                       1) {
                                         if (!isEmpty(tail(tail(restlist)))) {
                                           if ($007CJSONCloser$007C_$007C(head(tail(tail(restlist)))) != null) {
-                                            matchResult_6 = 0;
+                                            matchResult_8 = 0;
                                             opener_1 = value(activePatternResult_11);
                                           } else {
-                                            matchResult_6 = 1;
+                                            matchResult_8 = 1;
                                           }
                                         } else {
-                                          matchResult_6 = 1;
+                                          matchResult_8 = 1;
                                         }
                                       } else {
-                                        matchResult_6 = 1;
+                                        matchResult_8 = 1;
                                       }
                                     } else {
-                                      matchResult_6 = 1;
+                                      matchResult_8 = 1;
                                     }
                                   } else {
-                                    matchResult_6 = 1;
+                                    matchResult_8 = 1;
                                   }
                                 } else {
-                                  matchResult_6 = 1;
+                                  matchResult_8 = 1;
                                 }
-                                switch (matchResult_6) {
+                                switch (matchResult_8) {
                                   case 0:
                                     return toFail(printf("Untransformed flow-style object detected. This is a bug in FlowToBlock transformation. Pattern: %A"))(opener_1);
                                   default: {
-                                    let matchResult_7, v_11;
+                                    let matchResult_9, v_11;
                                     if (!isEmpty(restlist)) {
                                       const activePatternResult_13 = $007CInlineJSON$007C_$007C(head(restlist));
                                       if (activePatternResult_13 != null) {
                                         if (v_10 = value(activePatternResult_13), v_10.Value.trim() !== "") {
-                                          matchResult_7 = 0;
+                                          matchResult_9 = 0;
                                           v_11 = value(activePatternResult_13);
                                         } else {
-                                          matchResult_7 = 1;
+                                          matchResult_9 = 1;
                                         }
                                       } else {
-                                        matchResult_7 = 1;
+                                        matchResult_9 = 1;
                                       }
                                     } else {
-                                      matchResult_7 = 1;
+                                      matchResult_9 = 1;
                                     }
-                                    switch (matchResult_7) {
+                                    switch (matchResult_9) {
                                       case 0:
                                         return toFail(printf("Untransformed non-empty flow-style object detected: {%s}. This is a bug in FlowToBlock transformation."))(v_11.Value);
                                       default: {
-                                        let matchResult_8, k, rest_10, rest_11, v_16, yamlAstList_4;
+                                        let matchResult_10, k, rest_12, rest_13, v_16, yamlAstList_4;
                                         if (!isEmpty(restlist)) {
                                           const activePatternResult_14 = $007CExplicitKey$007C_$007C(head(restlist));
                                           if (activePatternResult_14 != null) {
-                                            matchResult_8 = 0;
+                                            matchResult_10 = 0;
                                             k = value(activePatternResult_14);
-                                            rest_10 = tail(restlist);
+                                            rest_12 = tail(restlist);
                                           } else {
                                             const activePatternResult_15 = $007CKey$007C_$007C(head(restlist));
                                             if (activePatternResult_15 != null) {
                                               if (!isEmpty(tail(restlist))) {
                                                 if (head(tail(restlist)).tag === /* Intendation */
                                                 1) {
-                                                  matchResult_8 = 1;
-                                                  rest_11 = tail(tail(restlist));
+                                                  matchResult_10 = 1;
+                                                  rest_13 = tail(tail(restlist));
                                                   v_16 = value(activePatternResult_15);
                                                   yamlAstList_4 = head(tail(restlist)).fields[0];
                                                 } else {
-                                                  matchResult_8 = 2;
+                                                  matchResult_10 = 2;
                                                 }
                                               } else {
-                                                matchResult_8 = 2;
+                                                matchResult_10 = 2;
                                               }
                                             } else {
-                                              matchResult_8 = 2;
+                                              matchResult_10 = 2;
                                             }
                                           }
                                         } else {
-                                          matchResult_8 = 2;
+                                          matchResult_10 = 2;
                                         }
-                                        switch (matchResult_8) {
+                                        switch (matchResult_10) {
                                           case 0: {
                                             const parseValue = (vStr) => {
-                                              let matchValue_6;
-                                              return loopRead(handles_3, transformElements(new TransformContext(0, ctx.IndentStep, ctx.StringDict), (matchValue_6 = read$1(vStr).AST, matchValue_6.tag === /* Level */
-                                              0 ? matchValue_6.fields[0] : empty())), empty());
+                                              let matchValue_10;
+                                              return loopRead(handles_3, transformElements(new TransformContext(0, ctx.IndentStep, ctx.StringDict), (matchValue_10 = read$1(vStr).AST, matchValue_10.tag === /* Level */
+                                              0 ? matchValue_10.fields[0] : empty())), empty());
                                             };
-                                            let matchResult_9, iList_1, keyBody, tail$1, v_12;
-                                            if (!isEmpty(rest_10)) {
-                                              if (head(rest_10).tag === /* Intendation */
+                                            let matchResult_11, iList_1, keyBody, tail$1, v_12;
+                                            if (!isEmpty(rest_12)) {
+                                              if (head(rest_12).tag === /* Intendation */
                                               1) {
-                                                if (!isEmpty(tail(rest_10))) {
-                                                  const activePatternResult_16 = $007CExplicitValue$007C_$007C(head(tail(rest_10)));
+                                                if (!isEmpty(tail(rest_12))) {
+                                                  const activePatternResult_16 = $007CExplicitValue$007C_$007C(head(tail(rest_12)));
                                                   if (activePatternResult_16 != null) {
-                                                    if (!isEmpty(tail(tail(rest_10)))) {
-                                                      if (head(tail(tail(rest_10))).tag === /* Intendation */
+                                                    if (!isEmpty(tail(tail(rest_12)))) {
+                                                      if (head(tail(tail(rest_12))).tag === /* Intendation */
                                                       1) {
-                                                        matchResult_9 = 0;
-                                                        iList_1 = head(tail(tail(rest_10))).fields[0];
-                                                        keyBody = head(rest_10).fields[0];
-                                                        tail$1 = tail(tail(tail(rest_10)));
+                                                        matchResult_11 = 0;
+                                                        iList_1 = head(tail(tail(rest_12))).fields[0];
+                                                        keyBody = head(rest_12).fields[0];
+                                                        tail$1 = tail(tail(tail(rest_12)));
                                                         v_12 = value(activePatternResult_16);
                                                       } else {
-                                                        matchResult_9 = 1;
+                                                        matchResult_11 = 1;
                                                       }
                                                     } else {
-                                                      matchResult_9 = 1;
+                                                      matchResult_11 = 1;
                                                     }
                                                   } else {
-                                                    matchResult_9 = 1;
+                                                    matchResult_11 = 1;
                                                   }
                                                 } else {
-                                                  matchResult_9 = 1;
+                                                  matchResult_11 = 1;
                                                 }
                                               } else {
-                                                matchResult_9 = 1;
+                                                matchResult_11 = 1;
                                               }
                                             } else {
-                                              matchResult_9 = 1;
+                                              matchResult_11 = 1;
                                             }
-                                            switch (matchResult_9) {
+                                            switch (matchResult_11) {
                                               case 0: {
                                                 const simplifiedKey = join("\n", flattenBlockScalar(keyBody));
-                                                const kp = extractProperties(handles_3, k == null ? simplifiedKey : (s_3 = value(k), s_3 + (s_3 !== "" ? "\n" : "") + simplifiedKey));
+                                                const kp = extractProperties(handles_3, k == null ? simplifiedKey : (s_5 = value(k), s_5 + (s_5 !== "" ? "\n" : "") + simplifiedKey));
                                                 const separator = (trimStart(v_12).startsWith("[") ? true : trimStart(v_12).startsWith("{")) ? " " : "\n";
                                                 const valueElement = parseValue(v_12 + separator + join(separator, flattenBlockScalar(iList_1)));
                                                 handles_3_mut = handles_3;
                                                 restlist_mut = tail$1;
-                                                acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp.Value, void 0, unwrap(kp.Anchor), unwrap(kp.Tag)), valueElement), acc);
+                                                acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp.Value, void 0, unwrap(kp.Anchor), unwrap(kp.Tag)), valueElement), acc_1);
                                                 continue loopRead;
                                               }
                                               default: {
-                                                let matchResult_10, keyBody_1, tail_1, v_13, iList_2, tail_2, v_14;
-                                                if (!isEmpty(rest_10)) {
-                                                  if (head(rest_10).tag === /* Intendation */
+                                                let matchResult_12, keyBody_1, tail_1, v_13, iList_2, tail_2, v_14;
+                                                if (!isEmpty(rest_12)) {
+                                                  if (head(rest_12).tag === /* Intendation */
                                                   1) {
-                                                    if (!isEmpty(tail(rest_10))) {
-                                                      const activePatternResult_17 = $007CExplicitValue$007C_$007C(head(tail(rest_10)));
+                                                    if (!isEmpty(tail(rest_12))) {
+                                                      const activePatternResult_17 = $007CExplicitValue$007C_$007C(head(tail(rest_12)));
                                                       if (activePatternResult_17 != null) {
-                                                        matchResult_10 = 0;
-                                                        keyBody_1 = head(rest_10).fields[0];
-                                                        tail_1 = tail(tail(rest_10));
+                                                        matchResult_12 = 0;
+                                                        keyBody_1 = head(rest_12).fields[0];
+                                                        tail_1 = tail(tail(rest_12));
                                                         v_13 = value(activePatternResult_17);
-                                                      } else if (head(tail(rest_10)).tag === /* Intendation */
+                                                      } else if (head(tail(rest_12)).tag === /* Intendation */
                                                       1) {
-                                                        const activePatternResult_18 = $007CExplicitValue$007C_$007C(head(rest_10));
+                                                        const activePatternResult_18 = $007CExplicitValue$007C_$007C(head(rest_12));
                                                         if (activePatternResult_18 != null) {
-                                                          matchResult_10 = 1;
-                                                          iList_2 = head(tail(rest_10)).fields[0];
-                                                          tail_2 = tail(tail(rest_10));
+                                                          matchResult_12 = 1;
+                                                          iList_2 = head(tail(rest_12)).fields[0];
+                                                          tail_2 = tail(tail(rest_12));
                                                           v_14 = value(activePatternResult_18);
                                                         } else {
-                                                          matchResult_10 = 2;
+                                                          matchResult_12 = 2;
                                                         }
                                                       } else {
-                                                        matchResult_10 = 2;
+                                                        matchResult_12 = 2;
                                                       }
                                                     } else {
-                                                      matchResult_10 = 2;
+                                                      matchResult_12 = 2;
                                                     }
                                                   } else {
-                                                    const activePatternResult_19 = $007CExplicitValue$007C_$007C(head(rest_10));
+                                                    const activePatternResult_19 = $007CExplicitValue$007C_$007C(head(rest_12));
                                                     if (activePatternResult_19 != null) {
-                                                      if (!isEmpty(tail(rest_10))) {
-                                                        if (head(tail(rest_10)).tag === /* Intendation */
+                                                      if (!isEmpty(tail(rest_12))) {
+                                                        if (head(tail(rest_12)).tag === /* Intendation */
                                                         1) {
-                                                          matchResult_10 = 1;
-                                                          iList_2 = head(tail(rest_10)).fields[0];
-                                                          tail_2 = tail(tail(rest_10));
+                                                          matchResult_12 = 1;
+                                                          iList_2 = head(tail(rest_12)).fields[0];
+                                                          tail_2 = tail(tail(rest_12));
                                                           v_14 = value(activePatternResult_19);
                                                         } else {
-                                                          matchResult_10 = 2;
+                                                          matchResult_12 = 2;
                                                         }
                                                       } else {
-                                                        matchResult_10 = 2;
+                                                        matchResult_12 = 2;
                                                       }
                                                     } else {
-                                                      matchResult_10 = 2;
+                                                      matchResult_12 = 2;
                                                     }
                                                   }
                                                 } else {
-                                                  matchResult_10 = 2;
+                                                  matchResult_12 = 2;
                                                 }
-                                                switch (matchResult_10) {
+                                                switch (matchResult_12) {
                                                   case 0: {
                                                     const simplifiedKey_1 = join("\n", flattenBlockScalar(keyBody_1));
-                                                    const kp_1 = extractProperties(handles_3, k == null ? simplifiedKey_1 : (s_4 = value(k), s_4 + (s_4 !== "" ? "\n" : "") + simplifiedKey_1));
+                                                    const kp_1 = extractProperties(handles_3, k == null ? simplifiedKey_1 : (s_6 = value(k), s_6 + (s_6 !== "" ? "\n" : "") + simplifiedKey_1));
                                                     const valueElement_1 = parseValue(v_13);
                                                     handles_3_mut = handles_3;
                                                     restlist_mut = tail_1;
-                                                    acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_1.Value, void 0, unwrap(kp_1.Anchor), unwrap(kp_1.Tag)), valueElement_1), acc);
+                                                    acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_1.Value, void 0, unwrap(kp_1.Anchor), unwrap(kp_1.Tag)), valueElement_1), acc_1);
                                                     continue loopRead;
                                                   }
                                                   case 1: {
@@ -809,24 +911,24 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                                     const valueElement_2 = parseValue(v_14 + "\n" + join("\n", flattenBlockScalar(iList_2)));
                                                     handles_3_mut = handles_3;
                                                     restlist_mut = tail_2;
-                                                    acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_2.Value, void 0, unwrap(kp_2.Anchor), unwrap(kp_2.Tag)), valueElement_2), acc);
+                                                    acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_2.Value, void 0, unwrap(kp_2.Anchor), unwrap(kp_2.Tag)), valueElement_2), acc_1);
                                                     continue loopRead;
                                                   }
                                                   default: {
-                                                    let matchResult_11, tail_3, v_15;
-                                                    if (!isEmpty(rest_10)) {
-                                                      const activePatternResult_20 = $007CExplicitValue$007C_$007C(head(rest_10));
+                                                    let matchResult_13, tail_3, v_15;
+                                                    if (!isEmpty(rest_12)) {
+                                                      const activePatternResult_20 = $007CExplicitValue$007C_$007C(head(rest_12));
                                                       if (activePatternResult_20 != null) {
-                                                        matchResult_11 = 0;
-                                                        tail_3 = tail(rest_10);
+                                                        matchResult_13 = 0;
+                                                        tail_3 = tail(rest_12);
                                                         v_15 = value(activePatternResult_20);
                                                       } else {
-                                                        matchResult_11 = 1;
+                                                        matchResult_13 = 1;
                                                       }
                                                     } else {
-                                                      matchResult_11 = 1;
+                                                      matchResult_13 = 1;
                                                     }
-                                                    switch (matchResult_11) {
+                                                    switch (matchResult_13) {
                                                       case 0: {
                                                         const kp_3 = k == null ? {
                                                           Value: ""
@@ -834,7 +936,7 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                                         const valueElement_3 = parseValue(v_15);
                                                         handles_3_mut = handles_3;
                                                         restlist_mut = tail_3;
-                                                        acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_3.Value, void 0, unwrap(kp_3.Anchor), unwrap(kp_3.Tag)), valueElement_3), acc);
+                                                        acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_3.Value, void 0, unwrap(kp_3.Anchor), unwrap(kp_3.Tag)), valueElement_3), acc_1);
                                                         continue loopRead;
                                                       }
                                                       default: {
@@ -842,8 +944,8 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                                           Value: ""
                                                         } : extractProperties(handles_3, value(k));
                                                         handles_3_mut = handles_3;
-                                                        restlist_mut = rest_10;
-                                                        acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_4.Value, void 0, unwrap(kp_4.Anchor), unwrap(kp_4.Tag)), YAMLElement_Nil()), acc);
+                                                        restlist_mut = rest_12;
+                                                        acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(kp_4.Value, void 0, unwrap(kp_4.Anchor), unwrap(kp_4.Tag)), YAMLElement_Nil()), acc_1);
                                                         continue loopRead;
                                                       }
                                                     }
@@ -855,13 +957,17 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                           case 1: {
                                             const c_2 = restoreCommentReplace(commentDict, v_16.Comment);
                                             const props_2 = extractProperties(handles_3, v_16.Key);
+                                            const parsedValue = loopRead(handles_3, yamlAstList_4, empty());
+                                            let valueElement_4;
+                                            const matchValue_11 = tryCollapsePlainScalarContent(false, yamlAstList_4, parsedValue);
+                                            valueElement_4 = matchValue_11 == null ? parsedValue : YAMLElement_Object(singleton$1(YAMLElement_Value(value(matchValue_11))));
                                             handles_3_mut = handles_3;
-                                            restlist_mut = rest_11;
-                                            acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_2.Value, unwrap(c_2), unwrap(props_2.Anchor), unwrap(props_2.Tag)), loopRead(handles_3, yamlAstList_4, empty())), acc);
+                                            restlist_mut = rest_13;
+                                            acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_2.Value, unwrap(c_2), unwrap(props_2.Anchor), unwrap(props_2.Tag)), valueElement_4), acc_1);
                                             continue loopRead;
                                           }
                                           default: {
-                                            let matchResult_12, rest0_6, v_17, w, yamlAstList_5;
+                                            let matchResult_14, rest0_6, v_17, w, yamlAstList_5;
                                             if (!isEmpty(restlist)) {
                                               const activePatternResult_21 = $007CKey$007C_$007C(head(restlist));
                                               if (activePatternResult_21 != null) {
@@ -871,240 +977,313 @@ function tokenize(yamlList, stringDict, commentDict, handles) {
                                                     if (!isEmpty(tail(tail(restlist)))) {
                                                       if (head(tail(tail(restlist))).tag === /* Intendation */
                                                       1) {
-                                                        matchResult_12 = 0;
+                                                        matchResult_14 = 0;
                                                         rest0_6 = tail(tail(tail(restlist)));
                                                         v_17 = value(activePatternResult_21);
                                                         w = value(activePatternResult_22);
                                                         yamlAstList_5 = head(tail(tail(restlist))).fields[0];
                                                       } else {
-                                                        matchResult_12 = 1;
+                                                        matchResult_14 = 1;
                                                       }
                                                     } else {
-                                                      matchResult_12 = 1;
+                                                      matchResult_14 = 1;
                                                     }
                                                   } else {
-                                                    matchResult_12 = 1;
+                                                    matchResult_14 = 1;
                                                   }
                                                 } else {
-                                                  matchResult_12 = 1;
+                                                  matchResult_14 = 1;
                                                 }
                                               } else {
-                                                matchResult_12 = 1;
+                                                matchResult_14 = 1;
                                               }
                                             } else {
-                                              matchResult_12 = 1;
+                                              matchResult_14 = 1;
                                             }
-                                            switch (matchResult_12) {
+                                            switch (matchResult_14) {
                                               case 0: {
                                                 const c_3 = restoreCommentReplace(commentDict, v_17.Comment);
                                                 const props_3 = extractProperties(handles_3, v_17.Key);
                                                 const objectList_3 = w.Value != null ? cons(PreprocessorElement_Line(value(w.Value)), yamlAstList_5) : yamlAstList_5;
                                                 const sequenceElements_5 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_6)));
-                                                const rest_12 = toList(skipWhile(isSequenceElement, rest0_6));
-                                                const seq = YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, objectList_3, empty())), delay(() => map$2((i_6) => loopRead(handles_3, i_6, empty()), sequenceElements_5))))));
+                                                const rest_14 = toList(skipWhile(isSequenceElement, rest0_6));
+                                                const seq = YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, objectList_3, empty())), delay(() => map$2((i_5) => loopRead(handles_3, i_5, empty()), sequenceElements_5))))));
                                                 handles_3_mut = handles_3;
-                                                restlist_mut = rest_12;
-                                                acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_3.Value, unwrap(c_3), unwrap(props_3.Anchor), unwrap(props_3.Tag)), YAMLElement_Object(singleton$1(seq))), acc);
+                                                restlist_mut = rest_14;
+                                                acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_3.Value, unwrap(c_3), unwrap(props_3.Anchor), unwrap(props_3.Tag)), YAMLElement_Object(singleton$1(seq))), acc_1);
                                                 continue loopRead;
                                               }
                                               default: {
-                                                let matchResult_13, rest0_7, v_18, w_1;
+                                                let matchResult_15, rest0_7, v_18, w_1;
                                                 if (!isEmpty(restlist)) {
                                                   const activePatternResult_23 = $007CKey$007C_$007C(head(restlist));
                                                   if (activePatternResult_23 != null) {
                                                     if (!isEmpty(tail(restlist))) {
                                                       const activePatternResult_24 = $007CSequenceMinusOpener$007C_$007C(head(tail(restlist)));
                                                       if (activePatternResult_24 != null) {
-                                                        matchResult_13 = 0;
+                                                        matchResult_15 = 0;
                                                         rest0_7 = tail(tail(restlist));
                                                         v_18 = value(activePatternResult_23);
                                                         w_1 = value(activePatternResult_24);
                                                       } else {
-                                                        matchResult_13 = 1;
+                                                        matchResult_15 = 1;
                                                       }
                                                     } else {
-                                                      matchResult_13 = 1;
+                                                      matchResult_15 = 1;
                                                     }
                                                   } else {
-                                                    matchResult_13 = 1;
+                                                    matchResult_15 = 1;
                                                   }
                                                 } else {
-                                                  matchResult_13 = 1;
+                                                  matchResult_15 = 1;
                                                 }
-                                                switch (matchResult_13) {
+                                                switch (matchResult_15) {
                                                   case 0: {
                                                     const c_4 = restoreCommentReplace(commentDict, v_18.Comment);
                                                     const props_4 = extractProperties(handles_3, v_18.Key);
                                                     const sequenceElements_6 = collectSequenceElements(toList(takeWhile(isSequenceElement, rest0_7)));
-                                                    const rest_13 = toList(skipWhile(isSequenceElement, rest0_7));
-                                                    const seq_1 = YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, singleton$1(PreprocessorElement_Line(value(w_1.Value))), empty())), delay(() => map$2((i_7) => loopRead(handles_3, i_7, empty()), sequenceElements_6))))));
+                                                    const rest_15 = toList(skipWhile(isSequenceElement, rest0_7));
+                                                    const seq_1 = YAMLElement_Sequence(toList(delay(() => append(singleton(loopRead(handles_3, singleton$1(PreprocessorElement_Line(value(w_1.Value))), empty())), delay(() => map$2((i_6) => loopRead(handles_3, i_6, empty()), sequenceElements_6))))));
                                                     handles_3_mut = handles_3;
-                                                    restlist_mut = rest_13;
-                                                    acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_4.Value, unwrap(c_4), unwrap(props_4.Anchor), unwrap(props_4.Tag)), YAMLElement_Object(singleton$1(seq_1))), acc);
+                                                    restlist_mut = rest_15;
+                                                    acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_4.Value, unwrap(c_4), unwrap(props_4.Anchor), unwrap(props_4.Tag)), YAMLElement_Object(singleton$1(seq_1))), acc_1);
                                                     continue loopRead;
                                                   }
                                                   default: {
-                                                    let matchResult_14, block_2, rest_15, v_20;
+                                                    let matchResult_16, block_3, rest_17, v_20;
                                                     if (!isEmpty(restlist)) {
                                                       const activePatternResult_25 = $007CKeyValue$007C_$007C(head(restlist));
                                                       if (activePatternResult_25 != null) {
                                                         if (!isEmpty(tail(restlist))) {
                                                           if (head(tail(restlist)).tag === /* Intendation */
                                                           1) {
-                                                            if (block_1 = head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_25).Value)) {
-                                                              matchResult_14 = 0;
-                                                              block_2 = head(tail(restlist)).fields[0];
-                                                              rest_15 = tail(tail(restlist));
+                                                            if (block_2 = head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_25).Value)) {
+                                                              matchResult_16 = 0;
+                                                              block_3 = head(tail(restlist)).fields[0];
+                                                              rest_17 = tail(tail(restlist));
                                                               v_20 = value(activePatternResult_25);
                                                             } else {
-                                                              matchResult_14 = 1;
+                                                              matchResult_16 = 1;
                                                             }
                                                           } else {
-                                                            matchResult_14 = 1;
+                                                            matchResult_16 = 1;
                                                           }
                                                         } else {
-                                                          matchResult_14 = 1;
+                                                          matchResult_16 = 1;
                                                         }
                                                       } else {
-                                                        matchResult_14 = 1;
+                                                        matchResult_16 = 1;
                                                       }
                                                     } else {
-                                                      matchResult_14 = 1;
+                                                      matchResult_16 = 1;
                                                     }
-                                                    switch (matchResult_14) {
+                                                    switch (matchResult_16) {
                                                       case 0: {
-                                                        const matchValue_7 = tryReadBlockScalar(v_20.Value, v_20.Indent, void 0, block_2);
-                                                        if (matchValue_7 == null) {
+                                                        const matchValue_12 = tryReadBlockScalar(v_20.Value, v_20.Indent, void 0, block_3);
+                                                        if (matchValue_12 == null) {
                                                           return toFail(printf("Invalid block scalar header: %s"))(v_20.Value);
                                                         } else {
-                                                          const blockScalar_1 = value(matchValue_7);
+                                                          const blockScalar_1 = value(matchValue_12);
                                                           const keyProps = extractProperties(handles_3, v_20.Key);
                                                           handles_3_mut = handles_3;
-                                                          restlist_mut = rest_15;
-                                                          acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(keyProps.Value, void 0, unwrap(keyProps.Anchor), unwrap(keyProps.Tag)), 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);
+                                                          restlist_mut = rest_17;
+                                                          acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(keyProps.Value, void 0, unwrap(keyProps.Anchor), unwrap(keyProps.Tag)), 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_1);
                                                           continue loopRead;
                                                         }
                                                       }
                                                       default: {
-                                                        let matchResult_15, rest_17, v_22, rest_18, v_23, block_4, rest_19, v_24;
+                                                        let matchResult_17, block_4, rest_18, v_21;
                                                         if (!isEmpty(restlist)) {
                                                           const activePatternResult_26 = $007CKeyValue$007C_$007C(head(restlist));
                                                           if (activePatternResult_26 != null) {
-                                                            matchResult_15 = 0;
-                                                            rest_17 = tail(restlist);
-                                                            v_22 = value(activePatternResult_26);
-                                                          } else {
-                                                            const activePatternResult_27 = $007CYamlComment$007C_$007C(head(restlist));
-                                                            if (activePatternResult_27 != null) {
-                                                              matchResult_15 = 1;
-                                                              rest_18 = tail(restlist);
-                                                              v_23 = value(activePatternResult_27);
-                                                            } else {
-                                                              const activePatternResult_28 = $007CYamlValue$007C_$007C(head(restlist));
-                                                              if (activePatternResult_28 != null) {
-                                                                if (!isEmpty(tail(restlist))) {
-                                                                  if (head(tail(restlist)).tag === /* Intendation */
-                                                                  1) {
-                                                                    if (block_3 = head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_28).Value)) {
-                                                                      matchResult_15 = 2;
-                                                                      block_4 = head(tail(restlist)).fields[0];
-                                                                      rest_19 = tail(tail(restlist));
-                                                                      v_24 = value(activePatternResult_28);
-                                                                    } else {
-                                                                      matchResult_15 = 3;
-                                                                    }
-                                                                  } else {
-                                                                    matchResult_15 = 3;
-                                                                  }
-                                                                } else {
-                                                                  matchResult_15 = 3;
-                                                                }
+                                                            if (!isEmpty(tail(restlist))) {
+                                                              if (head(tail(restlist)).tag === /* Intendation */
+                                                              1) {
+                                                                matchResult_17 = 0;
+                                                                block_4 = head(tail(restlist)).fields[0];
+                                                                rest_18 = tail(tail(restlist));
+                                                                v_21 = value(activePatternResult_26);
                                                               } else {
-                                                                matchResult_15 = 3;
+                                                                matchResult_17 = 1;
                                                               }
+                                                            } else {
+                                                              matchResult_17 = 1;
                                                             }
+                                                          } else {
+                                                            matchResult_17 = 1;
                                                           }
                                                         } else {
-                                                          matchResult_15 = 3;
+                                                          matchResult_17 = 1;
                                                         }
-                                                        switch (matchResult_15) {
+                                                        switch (matchResult_17) {
                                                           case 0: {
-                                                            const props_5 = extractProperties(handles_3, v_22.Key);
-                                                            handles_3_mut = handles_3;
-                                                            restlist_mut = rest_17;
-                                                            acc_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_5.Value, void 0, unwrap(props_5.Anchor), unwrap(props_5.Tag)), loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_22.Value)), empty())), acc);
-                                                            continue loopRead;
-                                                          }
-                                                          case 1: {
+                                                            const keyProps_1 = extractProperties(handles_3, v_21.Key);
+                                                            const parsedValue_1 = loopRead(handles_3, cons(PreprocessorElement_Line(v_21.Value), block_4), empty());
+                                                            let valueElement_5;
+                                                            const matchValue_13 = tryCollapsePlainScalarContent(true, block_4, parsedValue_1);
+                                                            valueElement_5 = matchValue_13 == null ? parsedValue_1 : YAMLElement_Object(singleton$1(YAMLElement_Value(value(matchValue_13))));
                                                             handles_3_mut = handles_3;
                                                             restlist_mut = rest_18;
-                                                            acc_mut = cons(YAMLElement_Comment(getItemFromDict(commentDict, v_23.Comment)), acc);
+                                                            acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(keyProps_1.Value, void 0, unwrap(keyProps_1.Anchor), unwrap(keyProps_1.Tag)), valueElement_5), acc_1);
                                                             continue loopRead;
                                                           }
-                                                          case 2: {
-                                                            const matchValue_8 = tryReadBlockScalar(v_24.Value, v_24.Indent, v_24.Comment, block_4);
-                                                            if (matchValue_8 == null) {
-                                                              return toFail(printf("Invalid block scalar header: %s"))(v_24.Value);
-                                                            } else {
-                                                              const blockScalar_2 = value(matchValue_8);
-                                                              handles_3_mut = handles_3;
-                                                              restlist_mut = rest_19;
-                                                              acc_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);
-                                                              continue loopRead;
-                                                            }
-                                                          }
                                                           default: {
-                                                            let matchResult_16, rest_21, v_26;
+                                                            let matchResult_18, rest_20, v_23, rest_21, v_24, block_6, rest_22, v_25;
                                                             if (!isEmpty(restlist)) {
-                                                              const activePatternResult_29 = $007CYamlValue$007C_$007C(head(restlist));
-                                                              if (activePatternResult_29 != null) {
-                                                                if (v_25 = value(activePatternResult_29), v_25.Value === "" && v_25.Comment == null) {
-                                                                  matchResult_16 = 0;
+                                                              const activePatternResult_27 = $007CKeyValue$007C_$007C(head(restlist));
+                                                              if (activePatternResult_27 != null) {
+                                                                matchResult_18 = 0;
+                                                                rest_20 = tail(restlist);
+                                                                v_23 = value(activePatternResult_27);
+                                                              } else {
+                                                                const activePatternResult_28 = $007CYamlComment$007C_$007C(head(restlist));
+                                                                if (activePatternResult_28 != null) {
+                                                                  matchResult_18 = 1;
                                                                   rest_21 = tail(restlist);
-                                                                  v_26 = value(activePatternResult_29);
+                                                                  v_24 = value(activePatternResult_28);
                                                                 } else {
-                                                                  matchResult_16 = 1;
+                                                                  const activePatternResult_29 = $007CYamlValue$007C_$007C(head(restlist));
+                                                                  if (activePatternResult_29 != null) {
+                                                                    if (!isEmpty(tail(restlist))) {
+                                                                      if (head(tail(restlist)).tag === /* Intendation */
+                                                                      1) {
+                                                                        if (block_5 = head(tail(restlist)).fields[0], isBlockScalarHeaderCandidate(value(activePatternResult_29).Value)) {
+                                                                          matchResult_18 = 2;
+                                                                          block_6 = head(tail(restlist)).fields[0];
+                                                                          rest_22 = tail(tail(restlist));
+                                                                          v_25 = value(activePatternResult_29);
+                                                                        } else {
+                                                                          matchResult_18 = 3;
+                                                                        }
+                                                                      } else {
+                                                                        matchResult_18 = 3;
+                                                                      }
+                                                                    } else {
+                                                                      matchResult_18 = 3;
+                                                                    }
+                                                                  } else {
+                                                                    matchResult_18 = 3;
+                                                                  }
                                                                 }
-                                                              } else {
-                                                                matchResult_16 = 1;
                                                               }
                                                             } else {
-                                                              matchResult_16 = 1;
+                                                              matchResult_18 = 3;
                                                             }
-                                                            switch (matchResult_16) {
+                                                            switch (matchResult_18) {
                                                               case 0: {
+                                                                const props_5 = extractProperties(handles_3, v_23.Key);
+                                                                handles_3_mut = handles_3;
+                                                                restlist_mut = rest_20;
+                                                                acc_1_mut = cons(YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(props_5.Value, void 0, unwrap(props_5.Anchor), unwrap(props_5.Tag)), loopRead(handles_3, singleton$1(PreprocessorElement_Line(v_23.Value)), empty())), acc_1);
+                                                                continue loopRead;
+                                                              }
+                                                              case 1: {
                                                                 handles_3_mut = handles_3;
                                                                 restlist_mut = rest_21;
-                                                                acc_mut = acc;
+                                                                acc_1_mut = cons(YAMLElement_Comment(getItemFromDict(commentDict, v_24.Comment)), acc_1);
                                                                 continue loopRead;
                                                               }
-                                                              default:
-                                                                if (isEmpty(restlist)) {
-                                                                  return YAMLElement_Object(reverse(acc));
+                                                              case 2: {
+                                                                const matchValue_14 = tryReadBlockScalar(v_25.Value, v_25.Indent, v_25.Comment, block_6);
+                                                                if (matchValue_14 == null) {
+                                                                  return toFail(printf("Invalid block scalar header: %s"))(v_25.Value);
                                                                 } else {
+                                                                  const blockScalar_2 = value(matchValue_14);
+                                                                  handles_3_mut = handles_3;
+                                                                  restlist_mut = rest_22;
+                                                                  acc_1_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_1);
+                                                                  continue loopRead;
+                                                                }
+                                                              }
+                                                              default: {
+                                                                let matchResult_19, block_7, rest_23, v_26;
+                                                                if (!isEmpty(restlist)) {
                                                                   const activePatternResult_30 = $007CYamlValue$007C_$007C(head(restlist));
                                                                   if (activePatternResult_30 != null) {
-                                                                    const v_27 = value(activePatternResult_30);
-                                                                    const c_6 = restoreCommentReplace(commentDict, v_27.Comment);
-                                                                    const props_6 = extractProperties(handles_3, v_27.Value);
-                                                                    let patternInput_2;
-                                                                    const raw = props_6.Value;
-                                                                    const matchValue = tryParseExactPlaceholderIndex(raw);
-                                                                    if (matchValue == null) {
-                                                                      patternInput_2 = [restoreStringReplace(stringDict, raw), void 0];
+                                                                    if (!isEmpty(tail(restlist))) {
+                                                                      if (head(tail(restlist)).tag === /* Intendation */
+                                                                      1) {
+                                                                        matchResult_19 = 0;
+                                                                        block_7 = head(tail(restlist)).fields[0];
+                                                                        rest_23 = tail(tail(restlist));
+                                                                        v_26 = value(activePatternResult_30);
+                                                                      } else {
+                                                                        matchResult_19 = 1;
+                                                                      }
                                                                     } else {
-                                                                      const entry = getItemFromDict(stringDict, value(matchValue));
-                                                                      patternInput_2 = [restoreScalarPlaceholderValue(entry), entry.Kind.tag === /* DoubleQuotedString */
-                                                                      1 ? ScalarStyle_DoubleQuoted() : ScalarStyle_SingleQuoted()];
+                                                                      matchResult_19 = 1;
                                                                     }
+                                                                  } else {
+                                                                    matchResult_19 = 1;
+                                                                  }
+                                                                } else {
+                                                                  matchResult_19 = 1;
+                                                                }
+                                                                switch (matchResult_19) {
+                                                                  case 0: {
+                                                                    const parsedValue_2 = loopRead(handles_3, cons(PreprocessorElement_Line(v_26.Value), block_7), empty());
                                                                     handles_3_mut = handles_3;
-                                                                    restlist_mut = tail(restlist);
-                                                                    acc_mut = cons(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(patternInput_2[0], unwrap(c_6), unwrap(props_6.Anchor), unwrap(props_6.Tag), unwrap(patternInput_2[1]))), acc);
+                                                                    restlist_mut = rest_23;
+                                                                    acc_1_mut = cons((matchValue_15 = tryCollapsePlainScalarContent(true, block_7, parsedValue_2), matchValue_15 == 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_26.Value), block_7)) : toFail(printf("Unknown pattern: %A"))(cons(PreprocessorElement_Line(v_26.Value), block_7)) : toFail(printf("Unknown pattern: %A"))(cons(PreprocessorElement_Line(v_26.Value), block_7)) : YAMLElement_Value(value(matchValue_15))), acc_1);
                                                                     continue loopRead;
-                                                                  } else {
-                                                                    return toFail(printf("Unknown pattern: %A"))(restlist);
+                                                                  }
+                                                                  default: {
+                                                                    let matchResult_20, rest_25, v_28;
+                                                                    if (!isEmpty(restlist)) {
+                                                                      const activePatternResult_31 = $007CYamlValue$007C_$007C(head(restlist));
+                                                                      if (activePatternResult_31 != null) {
+                                                                        if (v_27 = value(activePatternResult_31), v_27.Value === "" && v_27.Comment == null) {
+                                                                          matchResult_20 = 0;
+                                                                          rest_25 = tail(restlist);
+                                                                          v_28 = value(activePatternResult_31);
+                                                                        } else {
+                                                                          matchResult_20 = 1;
+                                                                        }
+                                                                      } else {
+                                                                        matchResult_20 = 1;
+                                                                      }
+                                                                    } else {
+                                                                      matchResult_20 = 1;
+                                                                    }
+                                                                    switch (matchResult_20) {
+                                                                      case 0: {
+                                                                        handles_3_mut = handles_3;
+                                                                        restlist_mut = rest_25;
+                                                                        acc_1_mut = acc_1;
+                                                                        continue loopRead;
+                                                                      }
+                                                                      default:
+                                                                        if (isEmpty(restlist)) {
+                                                                          return YAMLElement_Object(reverse(acc_1));
+                                                                        } else {
+                                                                          const activePatternResult_32 = $007CYamlValue$007C_$007C(head(restlist));
+                                                                          if (activePatternResult_32 != null) {
+                                                                            const v_29 = value(activePatternResult_32);
+                                                                            const c_6 = restoreCommentReplace(commentDict, v_29.Comment);
+                                                                            const props_6 = extractProperties(handles_3, v_29.Value);
+                                                                            let patternInput_2;
+                                                                            const raw = props_6.Value;
+                                                                            const matchValue = tryParseExactPlaceholderIndex(raw);
+                                                                            if (matchValue == null) {
+                                                                              patternInput_2 = [restoreStringReplace(stringDict, raw), void 0];
+                                                                            } else {
+                                                                              const entry = getItemFromDict(stringDict, value(matchValue));
+                                                                              patternInput_2 = [restoreScalarPlaceholderValue(entry), entry.Kind.tag === /* DoubleQuotedString */
+                                                                              1 ? ScalarStyle_DoubleQuoted() : ScalarStyle_SingleQuoted()];
+                                                                            }
+                                                                            handles_3_mut = handles_3;
+                                                                            restlist_mut = tail(restlist);
+                                                                            acc_1_mut = cons(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(patternInput_2[0], unwrap(c_6), unwrap(props_6.Anchor), unwrap(props_6.Tag), unwrap(patternInput_2[1]))), acc_1);
+                                                                            continue loopRead;
+                                                                          } else {
+                                                                            return toFail(printf("Unknown pattern: %A"))(restlist);
+                                                                          }
+                                                                        }
+                                                                    }
                                                                   }
                                                                 }
+                                                              }
                                                             }
                                                           }
                                                         }