@nfdi4plants/arctrl 3.0.0-beta.14 → 3.0.0-beta.16

package/dist/ts/ts/CWL/Encode.js

@@ -1,12 +1,12 @@
-import { YAMLElement_Value, YAMLContent, YAMLElement_Object, YAMLElement_Mapping, YAMLElement_Sequence, Config } from '../fable_modules/YAMLicious.0.0.3/YAMLiciousTypes.fs.js';
-import { map, isEmpty, tail, head, ofArray, append, singleton, choose, empty, ofSeq, reverse, cons, length } from '../../node_modules/@fable-org/fable-library-js/List.js';
-import { string, int, float } from '../fable_modules/YAMLicious.0.0.3/Encode.fs.js';
-import { value, map as map$1 } from '../../node_modules/@fable-org/fable-library-js/Option.js';
-import { toList, choose as choose$1, map as map$2, delay, append as append$1, singleton as singleton$1, empty as empty$1 } from '../../node_modules/@fable-org/fable-library-js/Seq.js';
+import { YAMLElement_Value, YAMLContent, YAMLElement_Object, YAMLElement_Mapping, YAMLElement_Sequence, Config } from '../fable_modules/YAMLicious.1.0.0-alpha.2/YAMLiciousTypes.fs.js';
+import { map, isEmpty, tail, head, ofArray, append, singleton, empty, ofSeq, choose, reverse, cons, length } from '../../node_modules/@fable-org/fable-library-js/List.js';
+import { trimEnd, replace, split, trimStart, join } from '../../node_modules/@fable-org/fable-library-js/String.js';
+import { string, int, float } from '../fable_modules/YAMLicious.1.0.0-alpha.2/Encode.fs.js';
+import { value, map as map$2 } from '../../node_modules/@fable-org/fable-library-js/Option.js';
+import { toList, map as map$1, choose as choose$1, delay, append as append$1, singleton as singleton$1, empty as empty$1 } from '../../node_modules/@fable-org/fable-library-js/Seq.js';
 import { toList as toList$1 } from '../../node_modules/@fable-org/fable-library-js/Map.js';
-import { split, trimEnd, replace, trimStart, join } from '../../node_modules/@fable-org/fable-library-js/String.js';
 import { item } from '../../node_modules/@fable-org/fable-library-js/Array.js';
-import { write } from '../fable_modules/YAMLicious.0.0.3/Writer.fs.js';
+import { write } from '../fable_modules/YAMLicious.1.0.0-alpha.2/Writer.fs.js';
 import { toString } from '../../node_modules/@fable-org/fable-library-js/Types.js';
 
 function yBool(b) {
@@ -19,6 +19,15 @@ function yMap(pairs) {
     3 ? !isEmpty(_arg.fields[0]) ? isEmpty(tail(_arg.fields[0])) ? (single = head(_arg.fields[0]), single) : _arg : _arg : _arg));
   }, pairs));
 }
+function normalizeDocString(doc) {
+  return trimEnd(trimEnd(replace(doc, "\r\n", "\n"), "\n"), "\r");
+}
+function encodeLabel(label) {
+  return ["label", string(label)];
+}
+function encodeDoc(doc) {
+  return ["doc", string(normalizeDocString(doc))];
+}
 function encodeCWLType(t) {
   let value_4, acc_3, value_2, acc_1;
   switch (t.tag) {
@@ -54,61 +63,312 @@ function encodeCWLType(t) {
     case /* Null */
     10:
       return string("null");
+    case /* Union */
+    14: {
+      const typesList = toList(t.fields[0]);
+      let matchResult, otherType;
+      if (!isEmpty(typesList)) {
+        if (head(typesList).tag === /* Null */
+        10) {
+          if (!isEmpty(tail(typesList))) {
+            if (isEmpty(tail(tail(typesList)))) {
+              matchResult = 0;
+              otherType = head(tail(typesList));
+            } else {
+              matchResult = 1;
+            }
+          } else {
+            matchResult = 1;
+          }
+        } else if (!isEmpty(tail(typesList))) {
+          if (head(tail(typesList)).tag === /* Null */
+          10) {
+            if (isEmpty(tail(tail(typesList)))) {
+              matchResult = 0;
+              otherType = head(typesList);
+            } else {
+              matchResult = 1;
+            }
+          } else {
+            matchResult = 1;
+          }
+        } else {
+          matchResult = 1;
+        }
+      } else {
+        matchResult = 1;
+      }
+      switch (matchResult) {
+        case 0:
+          switch (otherType.tag) {
+            case /* File */
+            0:
+              return string("File?");
+            case /* Directory */
+            1:
+              return string("Directory?");
+            case /* String */
+            3:
+              return string("string?");
+            case /* Int */
+            4:
+              return string("int?");
+            case /* Long */
+            5:
+              return string("long?");
+            case /* Float */
+            6:
+              return string("float?");
+            case /* Double */
+            7:
+              return string("double?");
+            case /* Boolean */
+            8:
+              return string("boolean?");
+            case /* Array */
+            11: {
+              const arraySchema = otherType.fields[0];
+              const matchValue = arraySchema.Items;
+              switch (matchValue.tag) {
+                case /* File */
+                0:
+                  return string("File[]?");
+                case /* Directory */
+                1:
+                  return string("Directory[]?");
+                case /* String */
+                3:
+                  return string("string[]?");
+                case /* Int */
+                4:
+                  return string("int[]?");
+                case /* Long */
+                5:
+                  return string("long[]?");
+                case /* Float */
+                6:
+                  return string("float[]?");
+                case /* Double */
+                7:
+                  return string("double[]?");
+                case /* Boolean */
+                8:
+                  return string("boolean[]?");
+                default:
+                  return YAMLElement_Sequence(ofArray([string("null"), encodeInputArraySchema(arraySchema)]));
+              }
+            }
+            default:
+              return YAMLElement_Sequence(map(encodeCWLType, typesList));
+          }
+        default:
+          return YAMLElement_Sequence(map(encodeCWLType, typesList));
+      }
+    }
     case /* Array */
     11: {
-      const inner = t.fields[0];
-      const shortForm = inner.tag === /* File */
-      0 ? "File[]" : inner.tag === /* Directory */
-      1 ? "Directory[]" : inner.tag === /* Dirent */
-      2 ? "Dirent[]" : inner.tag === /* String */
-      3 ? "string[]" : inner.tag === /* Int */
-      4 ? "int[]" : inner.tag === /* Long */
-      5 ? "long[]" : inner.tag === /* Float */
-      6 ? "float[]" : inner.tag === /* Double */
-      7 ? "double[]" : inner.tag === /* Boolean */
+      const arraySchema_1 = t.fields[0];
+      let shortForm;
+      const matchValue_1 = arraySchema_1.Items;
+      shortForm = matchValue_1.tag === /* File */
+      0 ? "File[]" : matchValue_1.tag === /* Directory */
+      1 ? "Directory[]" : matchValue_1.tag === /* Dirent */
+      2 ? "Dirent[]" : matchValue_1.tag === /* String */
+      3 ? "string[]" : matchValue_1.tag === /* Int */
+      4 ? "int[]" : matchValue_1.tag === /* Long */
+      5 ? "long[]" : matchValue_1.tag === /* Float */
+      6 ? "float[]" : matchValue_1.tag === /* Double */
+      7 ? "double[]" : matchValue_1.tag === /* Boolean */
       8 ? "boolean[]" : void 0;
       if (shortForm == null) {
-        return yMap(ofArray([["type", string("array")], ["items", encodeCWLType(inner)]]));
+        return encodeInputArraySchema(arraySchema_1);
       } else {
         return string(value(shortForm));
       }
     }
+    case /* Record */
+    12:
+      return encodeInputRecordSchema(t.fields[0]);
+    case /* Enum */
+    13:
+      return encodeInputEnumSchema(t.fields[0]);
     default:
       return string("File");
   }
 }
+function encodeInputRecordField(field) {
+  return [field.Name, yMap(singleton(["type", encodeCWLType(field.Type)]))];
+}
+function encodeInputRecordSchema(schema) {
+  let fieldsElement;
+  const matchValue = schema.Fields;
+  fieldsElement = matchValue == null ? yMap(empty()) : yMap(toList(map$1(encodeInputRecordField, value(matchValue))));
+  return yMap(ofArray([["type", string("record")], ["fields", fieldsElement]]));
+}
+function encodeInputEnumSchema(schema) {
+  return yMap(append(singleton(["type", string("enum")]), singleton(["symbols", YAMLElement_Sequence(ofSeq(map$1(string, schema.Symbols)))])));
+}
+function encodeInputArraySchema(schema) {
+  return yMap(ofArray([["type", string("array")], ["items", encodeCWLType(schema.Items)]]));
+}
 function encodeOutputBinding(ob) {
-  return yMap(choose((x) => x, singleton(map$1((g) => ["glob", string(g)], ob.Glob))));
+  return yMap(choose((x) => x, singleton(map$2((g) => ["glob", string(g)], ob.Glob))));
 }
 function encodeCWLOutput(o) {
   let pairs;
   let acc_4;
   let acc_2;
-  const value_1 = o.Type_;
+  const value$1 = map$2((t) => {
+    switch (t.tag) {
+      case /* Union */
+      14: {
+        const typesList = toList(t.fields[0]);
+        let matchResult, otherType;
+        if (!isEmpty(typesList)) {
+          if (head(typesList).tag === /* Null */
+          10) {
+            if (!isEmpty(tail(typesList))) {
+              if (isEmpty(tail(tail(typesList)))) {
+                matchResult = 0;
+                otherType = head(tail(typesList));
+              } else {
+                matchResult = 1;
+              }
+            } else {
+              matchResult = 1;
+            }
+          } else if (!isEmpty(tail(typesList))) {
+            if (head(tail(typesList)).tag === /* Null */
+            10) {
+              if (isEmpty(tail(tail(typesList)))) {
+                matchResult = 0;
+                otherType = head(typesList);
+              } else {
+                matchResult = 1;
+              }
+            } else {
+              matchResult = 1;
+            }
+          } else {
+            matchResult = 1;
+          }
+        } else {
+          matchResult = 1;
+        }
+        switch (matchResult) {
+          case 0:
+            switch (otherType.tag) {
+              case /* File */
+              0:
+              case /* Directory */
+              1:
+              case /* String */
+              3:
+              case /* Int */
+              4:
+              case /* Long */
+              5:
+              case /* Float */
+              6:
+              case /* Double */
+              7:
+              case /* Boolean */
+              8:
+                return encodeCWLType(t);
+              case /* Array */
+              11: {
+                const matchValue = otherType.fields[0].Items;
+                switch (matchValue.tag) {
+                  case /* File */
+                  0:
+                  case /* Directory */
+                  1:
+                  case /* String */
+                  3:
+                  case /* Int */
+                  4:
+                  case /* Long */
+                  5:
+                  case /* Float */
+                  6:
+                  case /* Double */
+                  7:
+                  case /* Boolean */
+                  8:
+                    return encodeCWLType(t);
+                  default:
+                    return encodeCWLType(t);
+                }
+              }
+              default:
+                return encodeCWLType(t);
+            }
+          default:
+            return encodeCWLType(t);
+        }
+      }
+      case /* Array */
+      11: {
+        const arraySchema_1 = t.fields[0];
+        const matchValue_1 = arraySchema_1.Items;
+        switch (matchValue_1.tag) {
+          case /* File */
+          0:
+          case /* Directory */
+          1:
+          case /* Dirent */
+          2:
+          case /* String */
+          3:
+          case /* Int */
+          4:
+          case /* Long */
+          5:
+          case /* Float */
+          6:
+          case /* Double */
+          7:
+          case /* Boolean */
+          8:
+            return encodeCWLType(t);
+          default:
+            return yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]));
+        }
+      }
+      case /* Record */
+      12:
+        return yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])]));
+      case /* Enum */
+      13:
+        return yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])]));
+      default:
+        return encodeCWLType(t);
+    }
+  }, o.Type_);
   const acc_1 = empty();
-  acc_2 = value_1 == null ? acc_1 : append(acc_1, singleton(["type", encodeCWLType(value(value_1))]));
-  const value_3 = o.OutputBinding;
+  acc_2 = value$1 == null ? acc_1 : append(acc_1, singleton(["type", value(value$1)]));
+  const value_2 = o.OutputBinding;
   const acc_3 = acc_2;
-  acc_4 = value_3 == null ? acc_3 : append(acc_3, singleton(["outputBinding", encodeOutputBinding(value(value_3))]));
-  const value_6 = o.OutputSource;
+  acc_4 = value_2 == null ? acc_3 : append(acc_3, singleton(["outputBinding", encodeOutputBinding(value(value_2))]));
+  const value_5 = o.OutputSource;
   const acc_5 = acc_4;
-  pairs = value_6 == null ? acc_5 : append(acc_5, singleton(["outputSource", string(value(value_6))]));
-  let matchResult, t_1;
+  pairs = value_5 == null ? acc_5 : append(acc_5, singleton(["outputSource", string(value(value_5))]));
+  let matchResult_1, t_1;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult = 0;
+        matchResult_1 = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult = 1;
+        matchResult_1 = 1;
       }
     } else {
-      matchResult = 1;
+      matchResult_1 = 1;
     }
   } else {
-    matchResult = 1;
+    matchResult_1 = 1;
   }
-  switch (matchResult) {
+  switch (matchResult_1) {
     case 0:
       return [o.Name, t_1];
     default:
@@ -123,31 +383,157 @@ function encodeCWLInput(i) {
   let pairs;
   let acc_4;
   let acc_2;
-  const value_1 = i.Type_;
+  const value$1 = map$2((t) => {
+    switch (t.tag) {
+      case /* Union */
+      14: {
+        const typesList = toList(t.fields[0]);
+        let matchResult, otherType;
+        if (!isEmpty(typesList)) {
+          if (head(typesList).tag === /* Null */
+          10) {
+            if (!isEmpty(tail(typesList))) {
+              if (isEmpty(tail(tail(typesList)))) {
+                matchResult = 0;
+                otherType = head(tail(typesList));
+              } else {
+                matchResult = 1;
+              }
+            } else {
+              matchResult = 1;
+            }
+          } else if (!isEmpty(tail(typesList))) {
+            if (head(tail(typesList)).tag === /* Null */
+            10) {
+              if (isEmpty(tail(tail(typesList)))) {
+                matchResult = 0;
+                otherType = head(typesList);
+              } else {
+                matchResult = 1;
+              }
+            } else {
+              matchResult = 1;
+            }
+          } else {
+            matchResult = 1;
+          }
+        } else {
+          matchResult = 1;
+        }
+        switch (matchResult) {
+          case 0:
+            switch (otherType.tag) {
+              case /* File */
+              0:
+              case /* Directory */
+              1:
+              case /* String */
+              3:
+              case /* Int */
+              4:
+              case /* Long */
+              5:
+              case /* Float */
+              6:
+              case /* Double */
+              7:
+              case /* Boolean */
+              8:
+                return encodeCWLType(t);
+              case /* Array */
+              11: {
+                const matchValue = otherType.fields[0].Items;
+                switch (matchValue.tag) {
+                  case /* File */
+                  0:
+                  case /* Directory */
+                  1:
+                  case /* String */
+                  3:
+                  case /* Int */
+                  4:
+                  case /* Long */
+                  5:
+                  case /* Float */
+                  6:
+                  case /* Double */
+                  7:
+                  case /* Boolean */
+                  8:
+                    return encodeCWLType(t);
+                  default:
+                    return encodeCWLType(t);
+                }
+              }
+              default:
+                return encodeCWLType(t);
+            }
+          default:
+            return encodeCWLType(t);
+        }
+      }
+      case /* Array */
+      11: {
+        const arraySchema_1 = t.fields[0];
+        const matchValue_1 = arraySchema_1.Items;
+        switch (matchValue_1.tag) {
+          case /* File */
+          0:
+          case /* Directory */
+          1:
+          case /* Dirent */
+          2:
+          case /* String */
+          3:
+          case /* Int */
+          4:
+          case /* Long */
+          5:
+          case /* Float */
+          6:
+          case /* Double */
+          7:
+          case /* Boolean */
+          8:
+            return encodeCWLType(t);
+          default:
+            return yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]));
+        }
+      }
+      case /* Record */
+      12:
+        return yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])]));
+      case /* Enum */
+      13:
+        return yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])]));
+      default:
+        return encodeCWLType(t);
+    }
+  }, i.Type_);
   const acc_1 = empty();
-  acc_2 = value_1 == null ? acc_1 : append(acc_1, singleton(["type", encodeCWLType(value(value_1))]));
-  const value_3 = i.InputBinding;
+  acc_2 = value$1 == null ? acc_1 : append(acc_1, singleton(["type", value(value$1)]));
+  const value_2 = i.InputBinding;
   const acc_3 = acc_2;
-  acc_4 = value_3 == null ? acc_3 : append(acc_3, singleton(["inputBinding", encodeInputBinding(value(value_3))]));
-  const value_5 = i.Optional;
+  acc_4 = value_2 == null ? acc_3 : append(acc_3, singleton(["inputBinding", encodeInputBinding(value(value_2))]));
+  const value_4 = i.Optional;
   const acc_5 = acc_4;
-  pairs = value_5 == null ? acc_5 : append(acc_5, singleton(["optional", yBool(value(value_5))]));
-  let matchResult, t_1;
+  pairs = value_4 == null ? acc_5 : append(acc_5, singleton(["optional", yBool(value(value_4))]));
+  let matchResult_1, t_1;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult = 0;
+        matchResult_1 = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult = 1;
+        matchResult_1 = 1;
       }
     } else {
-      matchResult = 1;
+      matchResult_1 = 1;
     }
   } else {
-    matchResult = 1;
+    matchResult_1 = 1;
   }
-  switch (matchResult) {
+  switch (matchResult_1) {
     case 0:
       return [i.Name, t_1];
     default:
@@ -171,7 +557,7 @@ function encodeRequirement(r) {
     case /* SchemaDefRequirement */
     1: {
       const types = r.fields[0];
-      return yMap(ofArray([["class", string("SchemaDefRequirement")], ["types", YAMLElement_Sequence(ofSeq(map$2(encodeSchemaDefRequirementType, types)))]]));
+      return yMap(ofArray([["class", string("SchemaDefRequirement")], ["types", YAMLElement_Sequence(ofSeq(map$1(encodeSchemaDefRequirementType, types)))]]));
     }
     case /* DockerRequirement */
     2: {
@@ -181,15 +567,15 @@ function encodeRequirement(r) {
     case /* SoftwareRequirement */
     3: {
       const pkgs = r.fields[0];
-      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$2((p) => {
+      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$1((p) => {
         let value_13, acc_10, value_10, acc_8;
-        return yMap((value_13 = p.Specs, acc_10 = (value_10 = p.Version, acc_8 = append(empty(), singleton(["package", string(p.Package)])), value_10 == null ? acc_8 : append(acc_8, singleton(["version", YAMLElement_Sequence(ofSeq(map$2(string, value(value_10))))]))), value_13 == null ? acc_10 : append(acc_10, singleton(["specs", YAMLElement_Sequence(ofSeq(map$2(string, value(value_13))))]))));
+        return yMap((value_13 = p.Specs, acc_10 = (value_10 = p.Version, acc_8 = append(empty(), singleton(["package", string(p.Package)])), value_10 == null ? acc_8 : append(acc_8, singleton(["version", YAMLElement_Sequence(ofSeq(map$1(string, value(value_10))))]))), value_13 == null ? acc_10 : append(acc_10, singleton(["specs", YAMLElement_Sequence(ofSeq(map$1(string, value(value_13))))]))));
       }, pkgs)))]]));
     }
     case /* InitialWorkDirRequirement */
     4: {
       const listing = r.fields[0];
-      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$2((_arg) => {
+      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$1((_arg) => {
         let value_18, acc_15, value_16, acc_12;
         if (_arg.tag === /* Dirent */
         2) {
@@ -210,7 +596,7 @@ function encodeRequirement(r) {
     case /* EnvVarRequirement */
     5: {
       const envs = r.fields[0];
-      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$2((e) => {
+      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$1((e) => {
         const v_8 = (e.EnvValue === "true" ? true : e.EnvValue === "false") ? '"' + e.EnvValue + '"' : e.EnvValue;
         return yMap(ofArray([["envName", string(e.EnvName)], ["envValue", string(v_8)]]));
       }, envs)))]]));
@@ -267,22 +653,32 @@ function encodeRequirement(r) {
       return yMap(singleton(["class", string("InlineJavascriptRequirement")]));
   }
 }
+function encodeSourceArray(sources) {
+  if (sources.length === 1) {
+    return string(sources[0]);
+  } else {
+    return YAMLElement_Sequence(ofSeq(map$1((s) => YAMLElement_Object(singleton(YAMLElement_Value(new YAMLContent(s, void 0)))), sources)));
+  }
+}
 function encodeStepInput(si) {
   let pairs;
-  const value_8 = si.ValueFrom;
+  const value_10 = si.LinkMerge;
+  let acc_7;
+  const value_7 = si.ValueFrom;
   let acc_5;
-  const value_5 = si.DefaultValue;
+  const value_4 = si.DefaultValue;
   let acc_3;
-  const value_2 = si.Source;
+  const value_1 = si.Source;
   const acc_1 = empty();
-  acc_3 = value_2 == null ? acc_1 : append(acc_1, singleton(["source", string(value(value_2))]));
-  acc_5 = value_5 == null ? acc_3 : append(acc_3, singleton(["default", string(value(value_5))]));
-  pairs = value_8 == null ? acc_5 : append(acc_5, singleton(["valueFrom", string(value(value_8))]));
+  acc_3 = value_1 == null ? acc_1 : append(acc_1, singleton(["source", encodeSourceArray(value(value_1))]));
+  acc_5 = value_4 == null ? acc_3 : append(acc_3, singleton(["default", string(value(value_4))]));
+  acc_7 = value_7 == null ? acc_5 : append(acc_5, singleton(["valueFrom", string(value(value_7))]));
+  pairs = value_10 == null ? acc_7 : append(acc_7, singleton(["linkMerge", string(value(value_10))]));
   let matchResult, s_1;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "source") {
       if (isEmpty(tail(pairs))) {
-        if (si.DefaultValue == null && si.ValueFrom == null) {
+        if (si.DefaultValue == null && si.ValueFrom == null && si.LinkMerge == null) {
           matchResult = 0;
           s_1 = head(pairs)[1];
         } else {
@@ -305,10 +701,10 @@ function encodeStepInput(si) {
   }
 }
 function encodeStepInputs(inputs) {
-  return yMap(toList(map$2(encodeStepInput, inputs)));
+  return yMap(toList(map$1(encodeStepInput, inputs)));
 }
 function encodeStepOutput(so) {
-  return YAMLElement_Sequence(ofSeq(map$2(string, so.Id)));
+  return YAMLElement_Sequence(ofSeq(map$1(string, so.Id)));
 }
 function encodeWorkflowStep(ws) {
   let r, h;
@@ -328,7 +724,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult) {
     case 0: {
-      withReq = append(basePairs, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withReq = append(basePairs, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
@@ -349,7 +745,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult_1) {
     case 0: {
-      withHints = append(withReq, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, h_1)))]));
+      withHints = append(withReq, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, h_1)))]));
       break;
     }
     default:
@@ -361,27 +757,28 @@ function writeYaml(element) {
   return write(element, (c) => new Config(2, c.Level));
 }
 function encodeToolDescription(td) {
+  let acc_2, acc, pairOpt_1, acc_1, pairOpt_3, acc_3;
   const section = (pairs) => {
     const s = writeYaml(yMap(pairs));
     return ofArray(trimEnd(replace(s, "\r\n", "\n"), "\n").split("\n"));
   };
-  const baseLines = section(ofArray([["cwlVersion", string(td.CWLVersion)], ["class", string("CommandLineTool")]]));
-  const hintsLines = map$1((h) => section(singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, h)))])), td.Hints);
-  const reqLines = map$1((r_1) => section(singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))])), td.Requirements);
-  const baseCommandLines = map$1((bc) => section(singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$2(string, bc)))])), td.BaseCommand);
-  const inputsLines = map$1((i) => section(singleton(["inputs", yMap(toList(map$2(encodeCWLInput, i)))])), td.Inputs);
-  const outputsLines = section(singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, td.Outputs)))]));
-  const metadataLines = map$1((md) => {
-    const s_2 = writeYaml(yMap(toList(map$2((kvp) => {
+  const baseLines = section((acc_2 = (acc = ofArray([["cwlVersion", string(td.CWLVersion)], ["class", string("CommandLineTool")]]), pairOpt_1 = map$2(encodeLabel, td.Label), acc_1 = acc, pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)))), pairOpt_3 = map$2(encodeDoc, td.Doc), acc_3 = acc_2, pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)))));
+  const hintsLines = map$2((h) => section(singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, h)))])), td.Hints);
+  const reqLines = map$2((r_1) => section(singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))])), td.Requirements);
+  const baseCommandLines = map$2((bc) => section(singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$1(string, bc)))])), td.BaseCommand);
+  const inputsLines = map$2((i) => section(singleton(["inputs", yMap(toList(map$1(encodeCWLInput, i)))])), td.Inputs);
+  const outputsLines = section(singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, td.Outputs)))]));
+  const metadataLines = map$2((md) => {
+    const s_2 = writeYaml(yMap(toList(map$1((kvp) => {
       let matchValue, s_1;
       return [kvp[0], (matchValue = kvp[1], typeof matchValue === "string" ? (s_1 = matchValue, string(s_1)) : string(toString(kvp[1])))];
     }, md.GetProperties(false)))));
     return ofArray(trimEnd(replace(s_2, "\r\n", "\n"), "\n").split("\n"));
   }, td.Metadata);
-  const merge = (acc_mut, remaining_mut) => {
+  const merge = (acc_4_mut, remaining_mut) => {
     merge:
       while (true) {
-        const acc = acc_mut, remaining = remaining_mut;
+        const acc_4 = acc_4_mut, remaining = remaining_mut;
         let matchResult, a_1, b_1, rest_1, l_6, rest_2;
         if (isEmpty(remaining)) {
           matchResult = 2;
@@ -403,17 +800,17 @@ function encodeToolDescription(td) {
         }
         switch (matchResult) {
           case 0: {
-            acc_mut = cons(a_1 + " " + b_1.trim(), acc);
+            acc_4_mut = cons(a_1 + " " + b_1.trim(), acc_4);
             remaining_mut = rest_1;
             continue merge;
           }
           case 1: {
-            acc_mut = cons(l_6, acc);
+            acc_4_mut = cons(l_6, acc_4);
             remaining_mut = rest_2;
             continue merge;
           }
           default:
-            return reverse(acc);
+            return reverse(acc_4);
         }
         break;
       }
@@ -453,26 +850,27 @@ function encodeToolDescription(td) {
   }))))))), ["\r\n"], void 0, 0))));
 }
 function encodeWorkflowDescription(wd) {
+  let acc_2, acc, pairOpt_1, acc_1, pairOpt_3, acc_3;
   const section = (pairs) => {
     const s = writeYaml(yMap(pairs));
     return ofArray(trimEnd(replace(s, "\r\n", "\n"), "\n").split("\n"));
   };
-  const baseLines = section(ofArray([["cwlVersion", string(wd.CWLVersion)], ["class", string("Workflow")]]));
-  const reqLines = map$1((r) => section(singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r)))])), wd.Requirements);
-  const inputsLines = section(singleton(["inputs", yMap(toList(map$2(encodeCWLInput, wd.Inputs)))]));
-  const stepsLines = section(singleton(["steps", yMap(toList(map$2(encodeWorkflowStep, wd.Steps)))]));
-  const outputsLines = section(singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, wd.Outputs)))]));
-  const metadataLines = map$1((md) => {
-    const s_2 = writeYaml(yMap(toList(map$2((kvp) => {
+  const baseLines = section((acc_2 = (acc = ofArray([["cwlVersion", string(wd.CWLVersion)], ["class", string("Workflow")]]), pairOpt_1 = map$2(encodeLabel, wd.Label), acc_1 = acc, pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)))), pairOpt_3 = map$2(encodeDoc, wd.Doc), acc_3 = acc_2, pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)))));
+  const reqLines = map$2((r) => section(singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r)))])), wd.Requirements);
+  const inputsLines = section(singleton(["inputs", yMap(toList(map$1(encodeCWLInput, wd.Inputs)))]));
+  const stepsLines = section(singleton(["steps", yMap(toList(map$1(encodeWorkflowStep, wd.Steps)))]));
+  const outputsLines = section(singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, wd.Outputs)))]));
+  const metadataLines = map$2((md) => {
+    const s_2 = writeYaml(yMap(toList(map$1((kvp) => {
       let matchValue, s_1;
       return [kvp[0], (matchValue = kvp[1], typeof matchValue === "string" ? (s_1 = matchValue, string(s_1)) : string(toString(kvp[1])))];
     }, md.GetProperties(false)))));
     return ofArray(trimEnd(replace(s_2, "\r\n", "\n"), "\n").split("\n"));
   }, wd.Metadata);
-  const merge = (acc_mut, remaining_mut) => {
+  const merge = (acc_4_mut, remaining_mut) => {
     merge:
       while (true) {
-        const acc = acc_mut, remaining = remaining_mut;
+        const acc_4 = acc_4_mut, remaining = remaining_mut;
         let matchResult, a_1, b_1, rest_1, l_3, rest_2;
         if (isEmpty(remaining)) {
           matchResult = 2;
@@ -494,17 +892,17 @@ function encodeWorkflowDescription(wd) {
         }
         switch (matchResult) {
           case 0: {
-            acc_mut = cons(a_1 + " " + b_1.trim(), acc);
+            acc_4_mut = cons(a_1 + " " + b_1.trim(), acc_4);
             remaining_mut = rest_1;
             continue merge;
           }
           case 1: {
-            acc_mut = cons(l_3, acc);
+            acc_4_mut = cons(l_3, acc_4);
             remaining_mut = rest_2;
             continue merge;
           }
           default:
-            return reverse(acc);
+            return reverse(acc_4);
         }
         break;
       }
@@ -543,4 +941,4 @@ function encodeProcessingUnit(pu) {
   }
 }
 
-export { encodeCWLInput, encodeCWLOutput, encodeCWLType, encodeInputBinding, encodeOutputBinding, encodeProcessingUnit, encodeRequirement, encodeSchemaDefRequirementType, encodeStepInput, encodeStepInputs, encodeStepOutput, encodeToolDescription, encodeWorkflowDescription, encodeWorkflowStep, writeYaml, yBool, yMap };
+export { encodeCWLInput, encodeCWLOutput, encodeCWLType, encodeDoc, encodeInputArraySchema, encodeInputBinding, encodeInputEnumSchema, encodeInputRecordField, encodeInputRecordSchema, encodeLabel, encodeOutputBinding, encodeProcessingUnit, encodeRequirement, encodeSchemaDefRequirementType, encodeSourceArray, encodeStepInput, encodeStepInputs, encodeStepOutput, encodeToolDescription, encodeWorkflowDescription, encodeWorkflowStep, normalizeDocString, writeYaml, yBool, yMap };