@nfdi4plants/arctrl 3.1.1 → 3.2.0

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

@@ -1,25 +1,30 @@
-import { FSharpChoice$2_Choice1Of2, FSharpChoice$2_Choice2Of2 } from '../../node_modules/@fable-org/fable-library-js/Choice.js';
+import { FSharpChoice$2_Choice1Of2, FSharpChoice$2_Choice2Of2 } from '../../node_modules/@fable-org/fable-library-ts/Choice.js';
 import { FileInstance, DirectoryInstance, DirentInstance, InputRecordField, InputRecordSchema, InputEnumSchema, InputArraySchema, SchemaDefRequirementType, SoftwarePackage } from './CWLTypes.js';
-import { map, value, bind, filter } from '../../node_modules/@fable-org/fable-library-js/Option.js';
-import { toList, choose, fold, map as map$2, delay, append as append$1, singleton as singleton$1, empty as empty$2 } from '../../node_modules/@fable-org/fable-library-js/Seq.js';
-import { isEmpty, head, tail, map as map$1, append, singleton, ofArray, empty as empty$1, ofSeq, length, choose as choose$1, filter as filter$1, contains, tryFind, reverse, cons } from '../../node_modules/@fable-org/fable-library-js/List.js';
-import { YAMLElement_Value, YAMLContent_create_Z1C3A29C9, YAMLElement_Object, YAMLElement_Mapping, YAMLElement, YAMLElement_Sequence, ScalarStyle_Block, BlockScalarStyle_Literal, ChompingMode_Clip, ScalarStyle_DoubleQuoted, Config } from '../fable_modules/YAMLicious.1.0.0-alpha.11/YAMLiciousTypes.fs.js';
-import { equals, defaultOf, int64ToString, isIterable, comparePrimitives, curry2, stringHash } from '../../node_modules/@fable-org/fable-library-js/Util.js';
-import { string, int } from '../fable_modules/YAMLicious.1.0.0-alpha.11/Encode.fs.js';
-import { DynamicObj } from '../fable_modules/DynamicObj.7.1.0/DynamicObj.fs.js';
+import { value, defaultArg, toArray } from '../../node_modules/@fable-org/fable-library-ts/Option.js';
+import { toList, choose, fold, map as map$1, delay, append as append$1, singleton as singleton$1, empty as empty$2 } from '../../node_modules/@fable-org/fable-library-ts/Seq.js';
+import { isEmpty, head, tail, map, append, singleton, ofArray, empty as empty$1, ofSeq, length, choose as choose$1, filter, contains as contains$1, tryFind, reverse, cons } from '../../node_modules/@fable-org/fable-library-ts/List.js';
+import { YAMLElement_Value, YAMLContent_create_Z1C3A29C9, YAMLElement_Object$, YAMLElement_Mapping, YAMLElement, YAMLElement_Sequence, ScalarStyle_Block, BlockScalarStyle, ChompingMode, ScalarStyle, Config } from '../fable_modules/YAMLicious.1.0.0/YAMLiciousTypes.fs.js';
+import { equals, defaultOf, int64ToString, isIterable, comparePrimitives, curry2, stringHash } from '../../node_modules/@fable-org/fable-library-ts/Util.js';
+import { string, int } from '../fable_modules/YAMLicious.1.0.0/Encode.fs.js';
+import { DynamicObj } from '../fable_modules/DynamicObj.8.0.0/DynamicObj.fs.js';
 import { dynamicPropertiesExcept } from './DynamicObjHelpers.js';
-import { empty, ofSeq as ofSeq$1, ofList, FSharpSet__Contains } from '../../node_modules/@fable-org/fable-library-js/Set.js';
-import { trimEnd, replace, toText, interpolate, trimStart, join, split } from '../../node_modules/@fable-org/fable-library-js/String.js';
+import { empty, ofSeq as ofSeq$1, contains, ofList, FSharpSet__Contains } from '../../node_modules/@fable-org/fable-library-ts/Set.js';
+import { trimEnd, replace, interpolate, trimStart, join, split, concat } from '../../node_modules/@fable-org/fable-library-ts/String.js';
+import { Operators_IsNull } from '../../node_modules/@fable-org/fable-library-ts/FSharp.Core.js';
 import { LoadListingEnum_get_toCwlString, InlineJavascriptRequirementValue, InplaceUpdateRequirementValue, NetworkAccessRequirementValue, WorkReuseRequirementValue, ResourceRequirementInstance, EnvironmentDef, LoadListingRequirementValue, DockerRequirement } from './Requirements.js';
 import { OutputBinding, CWLOutput } from './Outputs.js';
+import { item } from '../../node_modules/@fable-org/fable-library-ts/Array.js';
+import { CWLParameterValueModule_floatToRoundTripString, CWLParameterValueModule_tryInferType } from './ParameterValue.js';
 import { InputBinding, CWLInput } from './Inputs.js';
 import { StepInput, StepOutputParameter, WorkflowStep } from './WorkflowSteps.js';
 import { WorkflowStepRunOps_tryGetOperation, WorkflowStepRunOps_tryGetExpressionTool, WorkflowStepRunOps_tryGetWorkflow, WorkflowStepRunOps_tryGetTool } from './CWLProcessingUnit.js';
 import { CWLToolDescription } from './ToolDescription.js';
+import { ArgumentException_$ctor_Z721C83C5 } from '../../node_modules/@fable-org/fable-library-ts/System.js';
 import { CWLWorkflowDescription } from './WorkflowDescription.js';
 import { CWLExpressionToolDescription } from './ExpressionToolDescription.js';
 import { CWLOperationDescription } from './OperationDescription.js';
-import { write } from '../fable_modules/YAMLicious.1.0.0-alpha.11/Writer.fs.js';
+import { write } from '../fable_modules/YAMLicious.1.0.0/Writer.fs.js';
+import { CWLParameterReference } from './ParameterReference.js';
 
 function $007CPrimitiveType$007CComplexType$007C(t) {
   switch (t.tag) {
@@ -76,7 +81,7 @@ function $007CPrimitiveType$007CComplexType$007C(t) {
   }
 }
 function tryGetArrayShorthand(cwlType) {
-  let matchResult, name_1, arraySchema;
+  let matchResult = void 0, name_1 = void 0, arraySchema = void 0;
   const activePatternResult = $007CPrimitiveType$007CComplexType$007C(cwlType);
   if (activePatternResult.tag === /* Choice1Of2 */
   0) {
@@ -100,8 +105,14 @@ function tryGetArrayShorthand(cwlType) {
   switch (matchResult) {
     case 0:
       return name_1;
-    case 1:
-      return map((s) => s + "[]", tryGetArrayShorthand(arraySchema.Items));
+    case 1: {
+      const option_1 = tryGetArrayShorthand(arraySchema.Items);
+      if (option_1 != null) {
+        return value(option_1) + "[]";
+      } else {
+        return void 0;
+      }
+    }
     default:
       return void 0;
   }
@@ -124,7 +135,7 @@ function isComplexType(t_mut) {
         case /* Union */
         14: {
           const typesList = toList(t.fields[0]);
-          let matchResult, otherType;
+          let matchResult = void 0, otherType = void 0;
           if (!isEmpty(typesList)) {
             if (head(typesList).tag === /* Null */
             10) {
@@ -178,8 +189,8 @@ function yFloat(value) {
   return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(value.toString()));
 }
 function yMap(pairs) {
-  return YAMLElement_Object(map$1((tupledArg) => {
-    let _arg, single;
+  return YAMLElement_Object$(map((tupledArg) => {
+    let _arg = void 0, single = void 0;
     return YAMLElement_Mapping(YAMLContent_create_Z1C3A29C9(tupledArg[0]), (_arg = tupledArg[1], _arg.tag === /* Object */
     3 ? !isEmpty(_arg.fields[0]) ? head(_arg.fields[0]).tag === /* Value */
     1 ? isEmpty(tail(_arg.fields[0])) ? _arg : _arg : head(_arg.fields[0]).tag === /* Alias */
@@ -218,24 +229,38 @@ function encodeDynamicValue(value) {
   }
 }
 function encodeDynamicObj(dynObj) {
-  return yMap(toList(choose((kvp) => map((encoded) => [kvp[0], encoded], encodeDynamicValue(kvp[1])), dynamicPropertiesExcept(empty({
-    Compare: comparePrimitives
+  return yMap(toList(choose((kvp) => {
+    const option_1 = encodeDynamicValue(kvp[1]);
+    if (option_1 != null) {
+      return [kvp[0], value(option_1)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(empty({
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   }), dynObj))));
 }
 function appendDynamicPropertiesExcept(knownFieldNames, dynObj, acc) {
-  return fold((pairs, pair) => append(pairs, singleton(pair)), acc, choose((kvp) => map((encoded) => [kvp[0], encoded], encodeDynamicValue(kvp[1])), dynamicPropertiesExcept(knownFieldNames, dynObj)));
+  return fold((pairs, pair) => append(pairs, singleton(pair)), acc, choose((kvp) => {
+    const option_1 = encodeDynamicValue(kvp[1]);
+    if (option_1 != null) {
+      return [kvp[0], value(option_1)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(knownFieldNames, dynObj)));
 }
 function appendDynamicProperties(dynObj, acc) {
   return appendDynamicPropertiesExcept(empty({
-    Compare: comparePrimitives
+    Compare: (x, y) => comparePrimitives(x, y) | 0
   }), dynObj, acc);
 }
 function normalizeDocString(doc) {
   return trimEnd(trimEnd(replace(doc, "\r\n", "\n"), "\n"), "\r");
 }
 function encodeExpressionScalar(expression) {
-  const normalized = expression == null ? "" : replace(replace(expression, "\r\n", "\n"), "\r", "\n");
-  return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(normalized, void 0, void 0, void 0, normalized.indexOf("\n") >= 0 ? ScalarStyle_Block(BlockScalarStyle_Literal(), ChompingMode_Clip(), void 0) : ScalarStyle_DoubleQuoted()));
+  const normalized = Operators_IsNull(expression) ? "" : replace(replace(expression, "\r\n", "\n"), "\r", "\n");
+  return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(normalized, void 0, void 0, void 0, normalized.indexOf("\n") >= 0 ? ScalarStyle_Block(BlockScalarStyle.Literal, ChompingMode.Clip, void 0) : ScalarStyle.DoubleQuoted));
 }
 function encodeSchemaSaladString(value) {
   switch (value.tag) {
@@ -257,13 +282,13 @@ function normalizeEnvValueForEncode(envValue) {
   }
 }
 function encodeEnvVarRequirementCompactMap(envs) {
-  const envDefMap = yMap(toList(map$2((env) => [env.EnvName, string(normalizeEnvValueForEncode(env.EnvValue))], envs)));
+  const envDefMap = yMap(toList(map$1((env) => [env.EnvName, string(normalizeEnvValueForEncode(env.EnvValue))], envs)));
   return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", envDefMap]]));
 }
 function encodeSoftwareRequirementCompactMap(packages) {
-  const packagesMap = yMap(toList(map$2((package$_1) => {
-    let package$, matchValue, matchValue_1, acc_2, value_3, acc_1, value_6, acc_3;
-    return [package$_1.Package, (package$ = package$_1, matchValue = package$.Version, matchValue_1 = package$.Specs, matchValue == null ? matchValue_1 != null ? YAMLElement_Sequence(toList(map$2(string, value(matchValue_1)))) : yMap(empty$1()) : yMap((acc_2 = (value_3 = package$.Version, acc_1 = empty$1(), value_3 == null ? acc_1 : append(acc_1, singleton(["version", YAMLElement_Sequence(toList(map$2(string, value(value_3))))]))), value_6 = package$.Specs, acc_3 = acc_2, value_6 == null ? acc_3 : append(acc_3, singleton(["specs", YAMLElement_Sequence(toList(map$2(string, value(value_6))))])))))];
+  const packagesMap = yMap(toList(map$1((package$_1) => {
+    let package$ = void 0, matchValue = void 0, matchValue_1 = void 0, acc_2 = void 0, value_3 = void 0, acc_1 = void 0, value_6 = void 0, acc_3 = void 0;
+    return [package$_1.Package, (package$ = package$_1, matchValue = package$.Version, matchValue_1 = package$.Specs, matchValue == null ? matchValue_1 != null ? YAMLElement_Sequence(toList(map$1(string, value(matchValue_1)))) : yMap(empty$1()) : yMap((acc_2 = (value_3 = package$.Version, acc_1 = empty$1(), value_3 == null ? acc_1 : append(acc_1, singleton(["version", YAMLElement_Sequence(toList(map$1(string, value(value_3))))]))), value_6 = package$.Specs, acc_3 = acc_2, value_6 == null ? acc_3 : append(acc_3, singleton(["specs", YAMLElement_Sequence(toList(map$1(string, value(value_6))))])))))];
   }, packages)));
   return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", packagesMap]]));
 }
@@ -274,7 +299,7 @@ function encodeDoc(doc) {
   return ["doc", string(normalizeDocString(doc))];
 }
 function encodeIntent(intent) {
-  return ["intent", YAMLElement_Sequence(ofSeq(map$2(string, intent)))];
+  return ["intent", YAMLElement_Sequence(ofSeq(map$1(string, intent)))];
 }
 function encodeFilePairs(discriminatorKey, discriminatorValue, file) {
   let acc_22;
@@ -345,7 +370,7 @@ function encodeDirectoryPairs(discriminatorKey, discriminatorValue, directory) {
   return appendDynamicPropertiesExcept(DirectoryInstance.KnownFieldNames, directory, acc_8);
 }
 function encodeCWLType(t) {
-  let acc_4, acc_2, acc, value_2, acc_1, value_4, acc_3;
+  let acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_4 = void 0, acc_3 = void 0;
   switch (t.tag) {
     case /* Directory */
     1:
@@ -388,7 +413,7 @@ function encodeCWLType(t) {
     14: {
       const types = t.fields[0];
       const typesList = toList(types);
-      let matchResult, otherType;
+      let matchResult = void 0, otherType = void 0;
       if (!isEmpty(typesList)) {
         if (head(typesList).tag === /* Null */
         10) {
@@ -458,10 +483,10 @@ function encodeCWLType(t) {
               }
             }
             default:
-              return YAMLElement_Sequence(map$1(encodeCWLType, typesList));
+              return YAMLElement_Sequence(map(encodeCWLType, typesList));
           }
         default:
-          return YAMLElement_Sequence(map$1(encodeCWLType, typesList));
+          return YAMLElement_Sequence(map(encodeCWLType, typesList));
       }
     }
     case /* Array */
@@ -508,184 +533,138 @@ function encodeInputRecordField(field) {
   return [field.Name, yMap(pairs)];
 }
 function encodeInputRecordSchema(schema) {
-  let acc_6, acc_4, acc_2, acc, value_2, acc_1, value_5, acc_3, value_8, acc_5;
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_5 = void 0, acc_3 = void 0, value_8 = void 0, acc_5 = void 0;
   let fieldsElement;
   const matchValue = schema.Fields;
-  fieldsElement = matchValue == null ? yMap(empty$1()) : yMap(toList(map$2(encodeInputRecordField, value(matchValue))));
+  fieldsElement = matchValue == null ? yMap(empty$1()) : yMap(toList(map$1(encodeInputRecordField, value(matchValue))));
   return yMap((acc_6 = (acc_4 = (acc_2 = (acc = ofArray([["type", string("record")], ["fields", fieldsElement]]), value_2 = schema.Label, acc_1 = acc, value_2 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_2))]))), value_5 = schema.Doc, acc_3 = acc_2, value_5 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_5))]))), value_8 = schema.Name, acc_5 = acc_4, value_8 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_8))]))), appendDynamicPropertiesExcept(InputRecordSchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeInputEnumSchema(schema) {
-  let acc_6, acc_4, acc_2, value_3, acc_1, value_6, acc_3, value_9, acc_5;
-  const pairs = append(singleton(["type", string("enum")]), singleton(["symbols", YAMLElement_Sequence(ofSeq(map$2(string, schema.Symbols)))]));
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, value_3 = void 0, acc_1 = void 0, value_6 = void 0, acc_3 = void 0, value_9 = void 0, acc_5 = void 0;
+  const pairs = append(singleton(["type", string("enum")]), singleton(["symbols", YAMLElement_Sequence(ofSeq(map$1(string, schema.Symbols)))]));
   return yMap((acc_6 = (acc_4 = (acc_2 = (value_3 = schema.Label, acc_1 = pairs, value_3 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_3))]))), value_6 = schema.Doc, acc_3 = acc_2, value_6 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_6))]))), value_9 = schema.Name, acc_5 = acc_4, value_9 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_9))]))), appendDynamicPropertiesExcept(InputEnumSchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeInputArraySchema(schema) {
-  let acc_6, acc_4, acc_2, acc, value_2, acc_1, value_5, acc_3, value_8, acc_5;
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, value_2 = void 0, acc_1 = void 0, value_5 = void 0, acc_3 = void 0, value_8 = void 0, acc_5 = void 0;
   return yMap((acc_6 = (acc_4 = (acc_2 = (acc = ofArray([["type", string("array")], ["items", encodeCWLType(schema.Items)]]), value_2 = schema.Label, acc_1 = acc, value_2 == null ? acc_1 : append(acc_1, singleton(["label", string(value(value_2))]))), value_5 = schema.Doc, acc_3 = acc_2, value_5 == null ? acc_3 : append(acc_3, singleton(["doc", string(value(value_5))]))), value_8 = schema.Name, acc_5 = acc_4, value_8 == null ? acc_5 : append(acc_5, singleton(["name", string(value(value_8))]))), appendDynamicPropertiesExcept(InputArraySchema.KnownFieldNames, schema, acc_6)));
 }
 function encodeOutputBinding(ob) {
-  let acc_6, acc_4, acc_2, acc, value_1, acc_1, encoder_1, f1, value_4, acc_3, value_7, acc_5;
-  return yMap((acc_6 = (acc_4 = (acc_2 = (acc = choose$1((x) => x, singleton(map((g) => ["glob", string(g)], ob.Glob))), value_1 = ob.LoadContents, acc_1 = acc, value_1 == null ? acc_1 : append(acc_1, singleton(["loadContents", yBool(value(value_1))]))), encoder_1 = (f1 = LoadListingEnum_get_toCwlString(), (arg) => string(f1(arg))), value_4 = ob.LoadListing, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["loadListing", encoder_1(value(value_4))]))), value_7 = ob.OutputEval, acc_5 = acc_4, value_7 == null ? acc_5 : append(acc_5, singleton(["outputEval", string(value(value_7))]))), appendDynamicPropertiesExcept(OutputBinding.KnownFieldNames, ob, acc_6)));
+  let acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, acc = void 0, option_1 = void 0, value_1 = void 0, acc_1 = void 0, encoder_1 = void 0, f1 = void 0, value_4 = void 0, acc_3 = void 0, value_7 = void 0, acc_5 = void 0;
+  return yMap((acc_6 = (acc_4 = (acc_2 = (acc = choose$1((x) => x, singleton((option_1 = ob.Glob, option_1 != null ? ["glob", string(value(option_1))] : void 0))), value_1 = ob.LoadContents, acc_1 = acc, value_1 == null ? acc_1 : append(acc_1, singleton(["loadContents", yBool(value(value_1))]))), encoder_1 = (f1 = LoadListingEnum_get_toCwlString(), (arg) => string(f1(arg))), value_4 = ob.LoadListing, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["loadListing", encoder_1(value(value_4))]))), value_7 = ob.OutputEval, acc_5 = acc_4, value_7 == null ? acc_5 : append(acc_5, singleton(["outputEval", string(value(value_7))]))), appendDynamicPropertiesExcept(OutputBinding.KnownFieldNames, ob, acc_6)));
 }
 function encodeStringArrayOrScalar(values) {
   if (values.length === 1) {
-    return string(values[0]);
+    return string(item(0, values));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2(string, values)));
+    return YAMLElement_Sequence(ofSeq(map$1(string, values)));
+  }
+}
+function encodeCWLParameterValue(value) {
+  switch (value.tag) {
+    case /* String */
+    1:
+      return string(value.fields[0]);
+    case /* Int */
+    2:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(int64ToString(value.fields[0])));
+    case /* Float */
+    3:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9(CWLParameterValueModule_floatToRoundTripString(value.fields[0])));
+    case /* Boolean */
+    4:
+      return yBool(value.fields[0]);
+    case /* File */
+    5:
+      return yMap(encodeFilePairs("class", "File", value.fields[0]));
+    case /* Directory */
+    6:
+      return yMap(encodeDirectoryPairs("class", "Directory", value.fields[0]));
+    case /* Array */
+    7:
+      return YAMLElement_Sequence(toList(map$1(encodeCWLParameterValue, value.fields[0])));
+    case /* Record */
+    8:
+      return yMap(toList(map$1((field) => [field.Name, encodeCWLParameterValue(field.Value)], value.fields[0])));
+    default:
+      return YAMLElement_Value(YAMLContent_create_Z1C3A29C9("null"));
   }
 }
 function encodeCWLOutput(o) {
-  let values;
-  const typeElement = map((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 arraySchema = otherType.fields[0];
-                const matchValue = arraySchema.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_);
+  let t = void 0, typesList = void 0, arraySchema = void 0, matchValue = void 0, arraySchema_1 = void 0, matchValue_1 = void 0, values = void 0;
+  let typeElement;
+  const option_1 = o.Type_;
+  typeElement = option_1 != null ? (t = value(option_1), t.tag === /* Union */
+  14 ? (typesList = toList(t.fields[0]), !isEmpty(typesList) ? head(typesList).tag === /* Null */
+  10 ? !isEmpty(tail(typesList)) ? isEmpty(tail(tail(typesList))) ? head(tail(typesList)).tag === /* File */
+  0 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(tail(typesList)).tag === /* String */
+  3 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Int */
+  4 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Long */
+  5 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Float */
+  6 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Double */
+  7 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Array */
+  11 ? (arraySchema = head(tail(typesList)).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : !isEmpty(tail(typesList)) ? head(tail(typesList)).tag === /* Null */
+  10 ? isEmpty(tail(tail(typesList))) ? head(typesList).tag === /* File */
+  0 ? encodeCWLType(t) : head(typesList).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(typesList).tag === /* String */
+  3 ? encodeCWLType(t) : head(typesList).tag === /* Int */
+  4 ? encodeCWLType(t) : head(typesList).tag === /* Long */
+  5 ? encodeCWLType(t) : head(typesList).tag === /* Float */
+  6 ? encodeCWLType(t) : head(typesList).tag === /* Double */
+  7 ? encodeCWLType(t) : head(typesList).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(typesList).tag === /* Array */
+  11 ? (arraySchema = head(typesList).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t)) : t.tag === /* Array */
+  11 ? (arraySchema_1 = t.fields[0], matchValue_1 = arraySchema_1.Items, matchValue_1.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue_1.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue_1.tag === /* Dirent */
+  2 ? encodeCWLType(t) : matchValue_1.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue_1.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue_1.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue_1.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue_1.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue_1.tag === /* Boolean */
+  8 ? encodeCWLType(t) : yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]))) : t.tag === /* Record */
+  12 ? yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])])) : t.tag === /* Enum */
+  13 ? yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])])) : encodeCWLType(t)) : void 0;
   let pairs;
   let acc_16;
   let value_17;
   const matchValue_2 = o.OutputSource;
-  let matchResult_1, value$1, values_1;
+  let matchResult = void 0, value$1 = void 0, values_1 = void 0;
   if (matchValue_2 != null) {
     if (value(matchValue_2).tag === /* Multiple */
     1) {
       if (values = value(matchValue_2).fields[0], values.length > 0) {
-        matchResult_1 = 1;
+        matchResult = 1;
         values_1 = value(matchValue_2).fields[0];
       } else {
-        matchResult_1 = 2;
+        matchResult = 2;
       }
     } else {
-      matchResult_1 = 0;
+      matchResult = 0;
       value$1 = value(matchValue_2).fields[0];
     }
   } else {
-    matchResult_1 = 2;
+    matchResult = 2;
   }
-  switch (matchResult_1) {
+  switch (matchResult) {
     case 0: {
       value_17 = string(value$1);
       break;
@@ -727,22 +706,22 @@ function encodeCWLOutput(o) {
   acc_15 = value_16 == null ? acc_13 : append(acc_13, singleton(["outputBinding", encodeOutputBinding(value(value_16))]));
   acc_16 = value_17 == null ? acc_15 : append(acc_15, singleton(["outputSource", value(value_17)]));
   pairs = appendDynamicPropertiesExcept(CWLOutput.KnownFieldNames, o, acc_16);
-  let matchResult_2, t_1;
+  let matchResult_1 = void 0, t_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult_2 = 0;
+        matchResult_1 = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult_2 = 1;
+        matchResult_1 = 1;
       }
     } else {
-      matchResult_2 = 1;
+      matchResult_1 = 1;
     }
   } else {
-    matchResult_2 = 1;
+    matchResult_1 = 1;
   }
-  switch (matchResult_2) {
+  switch (matchResult_1) {
     case 0:
       return [o.Name, t_1];
     default:
@@ -750,10 +729,11 @@ function encodeCWLOutput(o) {
   }
 }
 function encodeInputBinding(ib) {
-  let acc_14, acc_12, acc_10, acc_8, acc_6, acc_4, acc_2, value_1, acc_1, value_4, acc_3, value_6, acc_5, value_9, acc_7, value_11, acc_9, value_14, acc_11, value_16, acc_13;
+  let acc_14 = void 0, acc_12 = void 0, acc_10 = void 0, acc_8 = void 0, acc_6 = void 0, acc_4 = void 0, acc_2 = void 0, value_1 = void 0, acc_1 = void 0, value_4 = void 0, acc_3 = void 0, value_6 = void 0, acc_5 = void 0, value_9 = void 0, acc_7 = void 0, value_11 = void 0, acc_9 = void 0, value_14 = void 0, acc_11 = void 0, value_16 = void 0, acc_13 = void 0;
   return yMap((acc_14 = (acc_12 = (acc_10 = (acc_8 = (acc_6 = (acc_4 = (acc_2 = (value_1 = ib.LoadContents, acc_1 = empty$1(), value_1 == null ? acc_1 : append(acc_1, singleton(["loadContents", yBool(value(value_1))]))), value_4 = ib.Prefix, acc_3 = acc_2, value_4 == null ? acc_3 : append(acc_3, singleton(["prefix", string(value(value_4))]))), value_6 = ib._position, acc_5 = acc_4, value_6 == null ? acc_5 : append(acc_5, singleton(["position", int(value(value_6))]))), value_9 = ib.ItemSeparator, acc_7 = acc_6, value_9 == null ? acc_7 : append(acc_7, singleton(["itemSeparator", string(value(value_9))]))), value_11 = ib.Separate, acc_9 = acc_8, value_11 == null ? acc_9 : append(acc_9, singleton(["separate", yBool(value(value_11))]))), value_14 = ib.ValueFrom, acc_11 = acc_10, value_14 == null ? acc_11 : append(acc_11, singleton(["valueFrom", string(value(value_14))]))), value_16 = ib.ShellQuote, acc_13 = acc_12, value_16 == null ? acc_13 : append(acc_13, singleton(["shellQuote", yBool(value(value_16))]))), appendDynamicPropertiesExcept(InputBinding.KnownFieldNames, ib, acc_14)));
 }
 function encodeCWLInput(i) {
+  let t = void 0, typesList = void 0, arraySchema = void 0, matchValue = void 0, arraySchema_1 = void 0, matchValue_1 = void 0;
   let pairs;
   let acc_20;
   let acc_18;
@@ -765,134 +745,58 @@ function encodeCWLInput(i) {
   let acc_6;
   let acc_4;
   let acc_2;
-  const value$1 = map((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 arraySchema = otherType.fields[0];
-                const matchValue = arraySchema.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_);
+  let value$1;
+  const option_1 = i.Type_;
+  value$1 = option_1 != null ? (t = value(option_1), t.tag === /* Union */
+  14 ? (typesList = toList(t.fields[0]), !isEmpty(typesList) ? head(typesList).tag === /* Null */
+  10 ? !isEmpty(tail(typesList)) ? isEmpty(tail(tail(typesList))) ? head(tail(typesList)).tag === /* File */
+  0 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(tail(typesList)).tag === /* String */
+  3 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Int */
+  4 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Long */
+  5 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Float */
+  6 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Double */
+  7 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(tail(typesList)).tag === /* Array */
+  11 ? (arraySchema = head(tail(typesList)).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : !isEmpty(tail(typesList)) ? head(tail(typesList)).tag === /* Null */
+  10 ? isEmpty(tail(tail(typesList))) ? head(typesList).tag === /* File */
+  0 ? encodeCWLType(t) : head(typesList).tag === /* Directory */
+  1 ? encodeCWLType(t) : head(typesList).tag === /* String */
+  3 ? encodeCWLType(t) : head(typesList).tag === /* Int */
+  4 ? encodeCWLType(t) : head(typesList).tag === /* Long */
+  5 ? encodeCWLType(t) : head(typesList).tag === /* Float */
+  6 ? encodeCWLType(t) : head(typesList).tag === /* Double */
+  7 ? encodeCWLType(t) : head(typesList).tag === /* Boolean */
+  8 ? encodeCWLType(t) : head(typesList).tag === /* Array */
+  11 ? (arraySchema = head(typesList).fields[0], matchValue = arraySchema.Items, matchValue.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue.tag === /* Boolean */
+  8 ? encodeCWLType(t) : encodeCWLType(t)) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t) : encodeCWLType(t)) : t.tag === /* Array */
+  11 ? (arraySchema_1 = t.fields[0], matchValue_1 = arraySchema_1.Items, matchValue_1.tag === /* File */
+  0 ? encodeCWLType(t) : matchValue_1.tag === /* Directory */
+  1 ? encodeCWLType(t) : matchValue_1.tag === /* Dirent */
+  2 ? encodeCWLType(t) : matchValue_1.tag === /* String */
+  3 ? encodeCWLType(t) : matchValue_1.tag === /* Int */
+  4 ? encodeCWLType(t) : matchValue_1.tag === /* Long */
+  5 ? encodeCWLType(t) : matchValue_1.tag === /* Float */
+  6 ? encodeCWLType(t) : matchValue_1.tag === /* Double */
+  7 ? encodeCWLType(t) : matchValue_1.tag === /* Boolean */
+  8 ? encodeCWLType(t) : yMap(singleton(["type", encodeInputArraySchema(arraySchema_1)]))) : t.tag === /* Record */
+  12 ? yMap(singleton(["type", encodeInputRecordSchema(t.fields[0])])) : t.tag === /* Enum */
+  13 ? yMap(singleton(["type", encodeInputEnumSchema(t.fields[0])])) : encodeCWLType(t)) : void 0;
   const acc_1 = empty$1();
   acc_2 = value$1 == null ? acc_1 : append(acc_1, singleton(["type", value(value$1)]));
   const value_3 = i.Label;
@@ -926,22 +830,22 @@ function encodeCWLInput(i) {
   const acc_19 = acc_18;
   acc_20 = value_22 == null ? acc_19 : append(acc_19, singleton(["inputBinding", encodeInputBinding(value(value_22))]));
   pairs = appendDynamicPropertiesExcept(CWLInput.KnownFieldNames, i, acc_20);
-  let matchResult_1, t_1;
+  let matchResult = void 0, t_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "type") {
       if (isEmpty(tail(pairs))) {
-        matchResult_1 = 0;
+        matchResult = 0;
         t_1 = head(pairs)[1];
       } else {
-        matchResult_1 = 1;
+        matchResult = 1;
       }
     } else {
-      matchResult_1 = 1;
+      matchResult = 1;
     }
   } else {
-    matchResult_1 = 1;
+    matchResult = 1;
   }
-  switch (matchResult_1) {
+  switch (matchResult) {
     case 0:
       return [i.Name, t_1];
     default:
@@ -949,28 +853,28 @@ function encodeCWLInput(i) {
   }
 }
 function encodeSchemaDefRequirementType(s) {
-  let acc;
+  let acc = void 0;
   return yMap((acc = ofArray([["name", string(s.Name)], ["type", encodeCWLType(s.Type_)]]), appendDynamicPropertiesExcept(SchemaDefRequirementType.KnownFieldNames, s, acc)));
 }
 function encodeRequirement(r) {
-  let acc_17, acc_15, acc_13, acc_11, acc_9, acc_7, acc_5, acc_3, value_5, acc_4, value_8, acc_6, value_11, acc_8, value_14, acc_10, value_17, acc_12, value_20, acc_14, value_23, acc_16, acc_24, acc_32, acc_33, acc_34, acc_2, value_2, acc_1;
+  let acc_17 = void 0, acc_15 = void 0, acc_13 = void 0, acc_11 = void 0, acc_9 = void 0, acc_7 = void 0, acc_5 = void 0, acc_3 = void 0, value_5 = void 0, acc_4 = void 0, value_8 = void 0, acc_6 = void 0, value_11 = void 0, acc_8 = void 0, value_14 = void 0, acc_10 = void 0, value_17 = void 0, acc_12 = void 0, value_20 = void 0, acc_14 = void 0, value_23 = void 0, acc_16 = void 0, acc_24 = void 0, acc_32 = void 0, acc_33 = void 0, acc_34 = void 0, acc_2 = void 0, value_2 = void 0, option_1 = void 0, entries = void 0, acc_1 = void 0;
   switch (r.tag) {
     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: {
       const dr = r.fields[0];
-      return yMap((acc_17 = (acc_15 = (acc_13 = (acc_11 = (acc_9 = (acc_7 = (acc_5 = (acc_3 = singleton(["class", string("DockerRequirement")]), value_5 = dr.DockerPull, acc_4 = acc_3, value_5 == null ? acc_4 : append(acc_4, singleton(["dockerPull", string(value(value_5))]))), value_8 = dr.DockerFile, acc_6 = acc_5, value_8 == null ? acc_6 : append(acc_6, singleton(["dockerFile", encodeSchemaSaladString(value(value_8))]))), value_11 = dr.DockerImageId, acc_8 = acc_7, value_11 == null ? acc_8 : append(acc_8, singleton(["dockerImageId", string(value(value_11))]))), value_14 = dr.DockerLoad, acc_10 = acc_9, value_14 == null ? acc_10 : append(acc_10, singleton(["dockerLoad", string(value(value_14))]))), value_17 = dr.DockerImport, acc_12 = acc_11, value_17 == null ? acc_12 : append(acc_12, singleton(["dockerImport", string(value(value_17))]))), value_20 = dr.DockerOutputDirectory, acc_14 = acc_13, value_20 == null ? acc_14 : append(acc_14, singleton(["dockerOutputDirectory", string(value(value_20))]))), value_23 = dr.DockerRunOptions, acc_16 = acc_15, value_23 == null ? acc_16 : append(acc_16, singleton(["cwltool:dockerRunOptions", YAMLElement_Sequence(ofSeq(map$2(string, value(value_23))))]))), appendDynamicPropertiesExcept(DockerRequirement.KnownFieldNames, dr, acc_17)));
+      return yMap((acc_17 = (acc_15 = (acc_13 = (acc_11 = (acc_9 = (acc_7 = (acc_5 = (acc_3 = singleton(["class", string("DockerRequirement")]), value_5 = dr.DockerPull, acc_4 = acc_3, value_5 == null ? acc_4 : append(acc_4, singleton(["dockerPull", string(value(value_5))]))), value_8 = dr.DockerFile, acc_6 = acc_5, value_8 == null ? acc_6 : append(acc_6, singleton(["dockerFile", encodeSchemaSaladString(value(value_8))]))), value_11 = dr.DockerImageId, acc_8 = acc_7, value_11 == null ? acc_8 : append(acc_8, singleton(["dockerImageId", string(value(value_11))]))), value_14 = dr.DockerLoad, acc_10 = acc_9, value_14 == null ? acc_10 : append(acc_10, singleton(["dockerLoad", string(value(value_14))]))), value_17 = dr.DockerImport, acc_12 = acc_11, value_17 == null ? acc_12 : append(acc_12, singleton(["dockerImport", string(value(value_17))]))), value_20 = dr.DockerOutputDirectory, acc_14 = acc_13, value_20 == null ? acc_14 : append(acc_14, singleton(["dockerOutputDirectory", string(value(value_20))]))), value_23 = dr.DockerRunOptions, acc_16 = acc_15, value_23 == null ? acc_16 : append(acc_16, singleton(["cwltool:dockerRunOptions", YAMLElement_Sequence(ofSeq(map$1(string, value(value_23))))]))), appendDynamicPropertiesExcept(DockerRequirement.KnownFieldNames, dr, acc_17)));
     }
     case /* SoftwareRequirement */
     3: {
       const pkgs = r.fields[0];
-      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$2((p) => {
-        let acc_23, acc_21, acc_19, value_26, acc_20, value_29, acc_22;
-        return yMap((acc_23 = (acc_21 = (acc_19 = append(empty$1(), singleton(["package", string(p.Package)])), value_26 = p.Version, acc_20 = acc_19, value_26 == null ? acc_20 : append(acc_20, singleton(["version", YAMLElement_Sequence(ofSeq(map$2(string, value(value_26))))]))), value_29 = p.Specs, acc_22 = acc_21, value_29 == null ? acc_22 : append(acc_22, singleton(["specs", YAMLElement_Sequence(ofSeq(map$2(string, value(value_29))))]))), appendDynamicPropertiesExcept(SoftwarePackage.KnownFieldNames, p, acc_23)));
+      return yMap(ofArray([["class", string("SoftwareRequirement")], ["packages", YAMLElement_Sequence(ofSeq(map$1((p) => {
+        let acc_23 = void 0, acc_21 = void 0, acc_19 = void 0, value_26 = void 0, acc_20 = void 0, value_29 = void 0, acc_22 = void 0;
+        return yMap((acc_23 = (acc_21 = (acc_19 = append(empty$1(), singleton(["package", string(p.Package)])), value_26 = p.Version, acc_20 = acc_19, value_26 == null ? acc_20 : append(acc_20, singleton(["version", YAMLElement_Sequence(ofSeq(map$1(string, value(value_26))))]))), value_29 = p.Specs, acc_22 = acc_21, value_29 == null ? acc_22 : append(acc_22, singleton(["specs", YAMLElement_Sequence(ofSeq(map$1(string, value(value_29))))]))), appendDynamicPropertiesExcept(SoftwarePackage.KnownFieldNames, p, acc_23)));
       }, pkgs)))]]));
     }
     case /* LoadListingRequirement */
@@ -981,8 +885,8 @@ function encodeRequirement(r) {
     case /* InitialWorkDirRequirement */
     5: {
       const listing = r.fields[0];
-      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$2((_arg) => {
-        let acc_30, acc_28, value_32, acc_26, value_34, acc_29;
+      return yMap(ofArray([["class", string("InitialWorkDirRequirement")], ["listing", YAMLElement_Sequence(ofSeq(map$1((_arg) => {
+        let acc_30 = void 0, acc_28 = void 0, value_32 = void 0, acc_26 = void 0, value_34 = void 0, acc_29 = void 0;
         switch (_arg.tag) {
           case /* StringEntry */
           1:
@@ -1003,8 +907,8 @@ function encodeRequirement(r) {
     case /* EnvVarRequirement */
     6: {
       const envs = r.fields[0];
-      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$2((e) => {
-        let acc_31;
+      return yMap(ofArray([["class", string("EnvVarRequirement")], ["envDef", YAMLElement_Sequence(ofSeq(map$1((e) => {
+        let acc_31 = void 0;
         const v_12 = normalizeEnvValueForEncode(e.EnvValue);
         return yMap((acc_31 = ofArray([["envName", string(e.EnvName)], ["envValue", string(v_12)]]), appendDynamicPropertiesExcept(EnvironmentDef.KnownFieldNames, e, acc_31)));
       }, envs)))]]));
@@ -1030,12 +934,20 @@ function encodeRequirement(r) {
           return void 0;
         }
       };
-      const knownPairs = choose$1((tupledArg) => bind(curry2(tryEncodeScalar)(tupledArg[0]), tupledArg[1]), rr.KnownFieldValues);
+      const knownPairs = choose$1((tupledArg) => {
+        const binder_2 = curry2(tryEncodeScalar)(tupledArg[0]);
+        const option_3 = tupledArg[1];
+        if (option_3 != null) {
+          return binder_2(value(option_3));
+        } else {
+          return void 0;
+        }
+      }, rr.KnownFieldValues);
       const dynamicPairs = toList(choose((kvp) => {
         const matchValue = kvp[1];
         return tryEncodeScalar(kvp[0], matchValue);
-      }, dynamicPropertiesExcept(ofSeq$1(map$2((x) => x, ResourceRequirementInstance.KnownFieldNames), {
-        Compare: comparePrimitives
+      }, dynamicPropertiesExcept(ofSeq$1(map$1((x) => x, ResourceRequirementInstance.KnownFieldNames), {
+        Compare: (x_1, y) => comparePrimitives(x_1, y) | 0
       }), rr)));
       return yMap(append(singleton(["class", string("ResourceRequirement")]), append(knownPairs, dynamicPairs)));
     }
@@ -1085,13 +997,7 @@ function encodeRequirement(r) {
       return yMap(singleton(["class", string("StepInputExpressionRequirement")]));
     default: {
       const value$1 = r.fields[0];
-      return yMap((acc_2 = (value_2 = bind((entries) => {
-        if (entries.length > 0) {
-          return entries;
-        } else {
-          return void 0;
-        }
-      }, value$1.ExpressionLib), acc_1 = singleton(["class", string("InlineJavascriptRequirement")]), value_2 == null ? acc_1 : append(acc_1, singleton(["expressionLib", YAMLElement_Sequence(ofSeq(map$2(string, value(value_2))))]))), appendDynamicPropertiesExcept(InlineJavascriptRequirementValue.KnownFieldNames, value$1, acc_2)));
+      return yMap((acc_2 = (value_2 = (option_1 = value$1.ExpressionLib, option_1 != null ? (entries = value(option_1), entries.length > 0 ? entries : void 0) : void 0), acc_1 = singleton(["class", string("InlineJavascriptRequirement")]), value_2 == null ? acc_1 : append(acc_1, singleton(["expressionLib", YAMLElement_Sequence(ofSeq(map$1(string, value(value_2))))]))), appendDynamicPropertiesExcept(InlineJavascriptRequirementValue.KnownFieldNames, value$1, acc_2)));
     }
   }
 }
@@ -1106,9 +1012,9 @@ function encodeHintEntry(hint) {
 }
 function encodeSourceArray(sources) {
   if (sources.length === 1) {
-    return string(sources[0]);
+    return string(item(0, sources));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2((s) => YAMLElement_Object(singleton(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(s)))), sources)));
+    return YAMLElement_Sequence(ofSeq(map$1((s) => YAMLElement_Object$(singleton(YAMLElement_Value(YAMLContent_create_Z1C3A29C9(s)))), sources)));
   }
 }
 function encodeLinkMergeMethod(linkMerge) {
@@ -1159,7 +1065,7 @@ function encodeStepInput(si) {
   const acc_17 = acc_16;
   acc_18 = value_21 == null ? acc_17 : append(acc_17, singleton(["label", string(value(value_21))]));
   pairs = appendDynamicPropertiesExcept(StepInput.KnownFieldNames, si, acc_18);
-  let matchResult, s_1;
+  let matchResult = void 0, s_1 = void 0;
   if (!isEmpty(pairs)) {
     if (head(pairs)[0] === "source") {
       if (isEmpty(tail(pairs))) {
@@ -1186,14 +1092,14 @@ function encodeStepInput(si) {
   }
 }
 function encodeStepInputs(inputs) {
-  return yMap(toList(map$2(encodeStepInput, inputs)));
+  return yMap(toList(map$1(encodeStepInput, inputs)));
 }
 function encodeStepOutputParameter(so) {
-  let acc;
+  let acc = void 0;
   return yMap((acc = singleton(["id", string(so.Id)]), appendDynamicPropertiesExcept(StepOutputParameter.KnownFieldNames, so, acc)));
 }
 function encodeStepOutputs(outputs) {
-  return YAMLElement_Sequence(ofSeq(map$2((output) => {
+  return YAMLElement_Sequence(ofSeq(map$1((output) => {
     if (output.tag === /* StepOutputRecord */
     1) {
       return encodeStepOutputParameter(output.fields[0]);
@@ -1204,9 +1110,9 @@ function encodeStepOutputs(outputs) {
 }
 function encodeScatter(scatter) {
   if (scatter.length === 1) {
-    return string(scatter[0]);
+    return string(item(0, scatter));
   } else {
-    return YAMLElement_Sequence(ofSeq(map$2(string, scatter)));
+    return YAMLElement_Sequence(ofSeq(map$1(string, scatter)));
   }
 }
 function encodeWorkflowStepRun(run) {
@@ -1216,7 +1122,7 @@ function encodeWorkflowStepRun(run) {
       const toolObj = run.fields[0];
       const matchValue = WorkflowStepRunOps_tryGetTool(run);
       if (matchValue == null) {
-        throw new Error(toText(interpolate("RunCommandLineTool must contain CWLToolDescription but got %A%P()", [toolObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunCommandLineTool must contain CWLToolDescription but got ${interpolate("%A%P()", [toolObj])}`);
       } else {
         return encodeToolDescriptionElement(value(matchValue));
       }
@@ -1226,7 +1132,7 @@ function encodeWorkflowStepRun(run) {
       const workflowObj = run.fields[0];
       const matchValue_1 = WorkflowStepRunOps_tryGetWorkflow(run);
       if (matchValue_1 == null) {
-        throw new Error(toText(interpolate("RunWorkflow must contain CWLWorkflowDescription but got %A%P()", [workflowObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunWorkflow must contain CWLWorkflowDescription but got ${interpolate("%A%P()", [workflowObj])}`);
       } else {
         return encodeWorkflowDescriptionElement(value(matchValue_1));
       }
@@ -1236,7 +1142,7 @@ function encodeWorkflowStepRun(run) {
       const expressionToolObj = run.fields[0];
       const matchValue_2 = WorkflowStepRunOps_tryGetExpressionTool(run);
       if (matchValue_2 == null) {
-        throw new Error(toText(interpolate("RunExpressionTool must contain CWLExpressionToolDescription but got %A%P()", [expressionToolObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunExpressionTool must contain CWLExpressionToolDescription but got ${interpolate("%A%P()", [expressionToolObj])}`);
       } else {
         return encodeExpressionToolDescriptionElement(value(matchValue_2));
       }
@@ -1246,7 +1152,7 @@ function encodeWorkflowStepRun(run) {
       const operationObj = run.fields[0];
       const matchValue_3 = WorkflowStepRunOps_tryGetOperation(run);
       if (matchValue_3 == null) {
-        throw new Error(toText(interpolate("RunOperation must contain CWLOperationDescription but got %A%P()", [operationObj])));
+        throw ArgumentException_$ctor_Z721C83C5(`RunOperation must contain CWLOperationDescription but got ${interpolate("%A%P()", [operationObj])}`);
       } else {
         return encodeOperationDescriptionElement(value(matchValue_3));
       }
@@ -1256,27 +1162,37 @@ function encodeWorkflowStepRun(run) {
   }
 }
 function encodeToolDescriptionElement(td) {
-  let h, r, bc, matchValue_3, i, i_1;
+  let intent = void 0, h = void 0, r = void 0, bc = void 0, matchValue_3 = void 0, i = void 0, i_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(td.CWLVersion)], ["class", string("CommandLineTool")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], td.Id);
+  let pairOpt_1;
+  const option_1 = td.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, td.Label);
+  let pairOpt_3;
+  const option_3 = td.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, td.Doc);
+  let pairOpt_5;
+  const option_5 = td.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, td.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = td.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = td.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1289,7 +1205,7 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1297,7 +1213,7 @@ function encodeToolDescriptionElement(td) {
   }
   let withRequirements;
   const matchValue_1 = td.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1310,7 +1226,7 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult_1) {
     case 0: {
-      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
@@ -1318,7 +1234,7 @@ function encodeToolDescriptionElement(td) {
   }
   let withBaseCommand;
   const matchValue_2 = td.BaseCommand;
-  let matchResult_2, bc_1;
+  let matchResult_2 = void 0, bc_1 = void 0;
   if (matchValue_2 != null) {
     if (bc = value(matchValue_2), bc.length > 0) {
       matchResult_2 = 0;
@@ -1331,7 +1247,7 @@ function encodeToolDescriptionElement(td) {
   }
   switch (matchResult_2) {
     case 0: {
-      withBaseCommand = append(withRequirements, singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$2(string, bc_1)))]));
+      withBaseCommand = append(withRequirements, singleton(["baseCommand", YAMLElement_Sequence(ofSeq(map$1(string, bc_1)))]));
       break;
     }
     default:
@@ -1358,41 +1274,51 @@ function encodeToolDescriptionElement(td) {
   acc_16 = value_11 == null ? acc_15 : append(acc_15, singleton(["stdout", string(value(value_11))]));
   const value_14 = td.SuccessCodes;
   const acc_17 = acc_16;
-  acc_18 = value_14 == null ? acc_17 : append(acc_17, singleton(["successCodes", YAMLElement_Sequence(ofSeq(map$2(int, value(value_14))))]));
+  acc_18 = value_14 == null ? acc_17 : append(acc_17, singleton(["successCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_14))))]));
   const value_17 = td.TemporaryFailCodes;
   const acc_19 = acc_18;
-  acc_20 = value_17 == null ? acc_19 : append(acc_19, singleton(["temporaryFailCodes", YAMLElement_Sequence(ofSeq(map$2(int, value(value_17))))]));
+  acc_20 = value_17 == null ? acc_19 : append(acc_19, singleton(["temporaryFailCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_17))))]));
   const value_20 = td.PermanentFailCodes;
   const acc_21 = acc_20;
-  withCommandFields = value_20 == null ? acc_21 : append(acc_21, singleton(["permanentFailCodes", YAMLElement_Sequence(ofSeq(map$2(int, value(value_20))))]));
-  const withOutputs = append((matchValue_3 = td.Inputs, matchValue_3 != null ? (i = value(matchValue_3), i.length > 0) ? (i_1 = value(matchValue_3), append(withCommandFields, singleton(["inputs", yMap(toList(map$2(encodeCWLInput, i_1)))]))) : withCommandFields : withCommandFields), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, td.Outputs)))]));
+  withCommandFields = value_20 == null ? acc_21 : append(acc_21, singleton(["permanentFailCodes", YAMLElement_Sequence(ofSeq(map$1(int, value(value_20))))]));
+  const withOutputs = append((matchValue_3 = td.Inputs, matchValue_3 != null ? (i = value(matchValue_3), i.length > 0) ? (i_1 = value(matchValue_3), append(withCommandFields, singleton(["inputs", yMap(toList(map$1(encodeCWLInput, i_1)))]))) : withCommandFields : withCommandFields), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, td.Outputs)))]));
   let withMetadata;
   const matchValue_4 = td.Metadata;
   withMetadata = matchValue_4 == null ? withOutputs : appendDynamicProperties(value(matchValue_4), withOutputs);
   return yMap(appendDynamicPropertiesExcept(CWLToolDescription.KnownFieldNames, td, withMetadata));
 }
 function encodeExpressionToolDescriptionElement(et) {
-  let h, r, matchValue_2, i, i_1;
+  let intent = void 0, h = void 0, r = void 0, matchValue_2 = void 0, i = void 0, i_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(et.CWLVersion)], ["class", string("ExpressionTool")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], et.Id);
+  let pairOpt_1;
+  const option_1 = et.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, et.Label);
+  let pairOpt_3;
+  const option_3 = et.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, et.Doc);
+  let pairOpt_5;
+  const option_5 = et.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, et.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = et.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = et.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1405,7 +1331,7 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1413,7 +1339,7 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   let withRequirements;
   const matchValue_1 = et.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1426,40 +1352,50 @@ function encodeExpressionToolDescriptionElement(et) {
   }
   switch (matchResult_1) {
     case 0: {
-      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withRequirements = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
       withRequirements = withHints;
   }
-  const withExpression = append(append((matchValue_2 = et.Inputs, matchValue_2 != null ? (i = value(matchValue_2), i.length > 0) ? (i_1 = value(matchValue_2), append(withRequirements, singleton(["inputs", yMap(toList(map$2(encodeCWLInput, i_1)))]))) : withRequirements : withRequirements), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, et.Outputs)))])), singleton(["expression", encodeExpressionScalar(et.Expression)]));
+  const withExpression = append(append((matchValue_2 = et.Inputs, matchValue_2 != null ? (i = value(matchValue_2), i.length > 0) ? (i_1 = value(matchValue_2), append(withRequirements, singleton(["inputs", yMap(toList(map$1(encodeCWLInput, i_1)))]))) : withRequirements : withRequirements), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, et.Outputs)))])), singleton(["expression", encodeExpressionScalar(et.Expression)]));
   let withMetadata;
   const matchValue_3 = et.Metadata;
   withMetadata = matchValue_3 == null ? withExpression : appendDynamicProperties(value(matchValue_3), withExpression);
   return yMap(appendDynamicPropertiesExcept(CWLExpressionToolDescription.KnownFieldNames, et, withMetadata));
 }
 function encodeOperationDescriptionElement(op) {
-  let h, matchValue_1, r, r_1;
+  let intent = void 0, h = void 0, matchValue_1 = void 0, r = void 0, r_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(op.CWLVersion)], ["class", string("Operation")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], op.Id);
+  let pairOpt_1;
+  const option_1 = op.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, op.Label);
+  let pairOpt_3;
+  const option_3 = op.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, op.Doc);
+  let pairOpt_5;
+  const option_5 = op.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, op.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = op.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = op.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1472,40 +1408,50 @@ function encodeOperationDescriptionElement(op) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
       withHints = basePairs;
   }
-  const withOutputs = append(append((matchValue_1 = op.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$2(encodeCWLInput, op.Inputs)))])), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, op.Outputs)))]));
+  const withOutputs = append(append((matchValue_1 = op.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$1(encodeCWLInput, op.Inputs)))])), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, op.Outputs)))]));
   let withMetadata;
   const matchValue_2 = op.Metadata;
   withMetadata = matchValue_2 == null ? withOutputs : appendDynamicProperties(value(matchValue_2), withOutputs);
   return yMap(appendDynamicPropertiesExcept(CWLOperationDescription.KnownFieldNames, op, withMetadata));
 }
 function encodeWorkflowDescriptionElement(wd) {
-  let h, matchValue_1, r, r_1;
+  let intent = void 0, h = void 0, matchValue_1 = void 0, r = void 0, r_1 = void 0;
   let basePairs;
   let acc_6;
   let acc_4;
   let acc_2;
   const acc = ofArray([["cwlVersion", string(wd.CWLVersion)], ["class", string("Workflow")]]);
-  const pairOpt_1 = map((id) => ["id", string(id)], wd.Id);
+  let pairOpt_1;
+  const option_1 = wd.Id;
+  pairOpt_1 = option_1 != null ? ["id", string(value(option_1))] : void 0;
   const acc_1 = acc;
   acc_2 = pairOpt_1 == null ? acc_1 : append(acc_1, singleton(value(pairOpt_1)));
-  const pairOpt_3 = map(encodeLabel, wd.Label);
+  let pairOpt_3;
+  const option_3 = wd.Label;
+  pairOpt_3 = option_3 != null ? encodeLabel(value(option_3)) : void 0;
   const acc_3 = acc_2;
   acc_4 = pairOpt_3 == null ? acc_3 : append(acc_3, singleton(value(pairOpt_3)));
-  const pairOpt_5 = map(encodeDoc, wd.Doc);
+  let pairOpt_5;
+  const option_5 = wd.Doc;
+  pairOpt_5 = option_5 != null ? encodeDoc(value(option_5)) : void 0;
   const acc_5 = acc_4;
   acc_6 = pairOpt_5 == null ? acc_5 : append(acc_5, singleton(value(pairOpt_5)));
-  const pairOpt_7 = map(encodeIntent, filter((intent) => intent.length > 0, wd.Intent));
+  let pairOpt_7;
+  let option_9;
+  const option_7 = wd.Intent;
+  option_9 = option_7 != null ? (intent = value(option_7), intent.length > 0) ? option_7 : void 0 : void 0;
+  pairOpt_7 = option_9 != null ? encodeIntent(value(option_9)) : void 0;
   const acc_7 = acc_6;
   basePairs = pairOpt_7 == null ? acc_7 : append(acc_7, singleton(value(pairOpt_7)));
   let withHints;
   const matchValue = wd.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1518,20 +1464,20 @@ function encodeWorkflowDescriptionElement(wd) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
       withHints = basePairs;
   }
-  const withOutputs = append(append(append((matchValue_1 = wd.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$2(encodeCWLInput, wd.Inputs)))])), singleton(["steps", yMap(toList(map$2(encodeWorkflowStep, wd.Steps)))])), singleton(["outputs", yMap(toList(map$2(encodeCWLOutput, wd.Outputs)))]));
+  const withOutputs = append(append(append((matchValue_1 = wd.Requirements, matchValue_1 != null ? (r = value(matchValue_1), r.length > 0) ? (r_1 = value(matchValue_1), append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]))) : withHints : withHints), singleton(["inputs", yMap(toList(map$1(encodeCWLInput, wd.Inputs)))])), singleton(["steps", yMap(toList(map$1(encodeWorkflowStep, wd.Steps)))])), singleton(["outputs", yMap(toList(map$1(encodeCWLOutput, wd.Outputs)))]));
   let withMetadata;
   const matchValue_2 = wd.Metadata;
   withMetadata = matchValue_2 == null ? withOutputs : appendDynamicProperties(value(matchValue_2), withOutputs);
   return yMap(appendDynamicPropertiesExcept(CWLWorkflowDescription.KnownFieldNames, wd, withMetadata));
 }
 function encodeWorkflowStep(ws) {
-  let h, r;
+  let h = void 0, r = void 0;
   let basePairs;
   let acc_10;
   let acc_8;
@@ -1557,7 +1503,7 @@ function encodeWorkflowStep(ws) {
   basePairs = appendDynamicPropertiesExcept(WorkflowStep.KnownFieldNames, ws, acc_10);
   let withHints;
   const matchValue = ws.Hints;
-  let matchResult, h_1;
+  let matchResult = void 0, h_1 = void 0;
   if (matchValue != null) {
     if (h = value(matchValue), h.length > 0) {
       matchResult = 0;
@@ -1570,7 +1516,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult) {
     case 0: {
-      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$2(encodeHintEntry, h_1)))]));
+      withHints = append(basePairs, singleton(["hints", YAMLElement_Sequence(ofSeq(map$1(encodeHintEntry, h_1)))]));
       break;
     }
     default:
@@ -1578,7 +1524,7 @@ function encodeWorkflowStep(ws) {
   }
   let withReq;
   const matchValue_1 = ws.Requirements;
-  let matchResult_1, r_1;
+  let matchResult_1 = void 0, r_1 = void 0;
   if (matchValue_1 != null) {
     if (r = value(matchValue_1), r.length > 0) {
       matchResult_1 = 0;
@@ -1591,7 +1537,7 @@ function encodeWorkflowStep(ws) {
   }
   switch (matchResult_1) {
     case 0: {
-      withReq = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$2(encodeRequirement, r_1)))]));
+      withReq = append(withHints, singleton(["requirements", YAMLElement_Sequence(ofSeq(map$1(encodeRequirement, r_1)))]));
       break;
     }
     default:
@@ -1602,6 +1548,89 @@ function encodeWorkflowStep(ws) {
 function writeYaml(element) {
   return write(element, (c) => new Config(2, c.Level));
 }
+function encodeCWLParameterReference(reference) {
+  let option_1 = void 0;
+  const encodedValue = defaultArg((option_1 = reference.Value, option_1 != null ? encodeCWLParameterValue(value(option_1)) : void 0), YAMLElement_Sequence(empty$1()));
+  const dynamicPairs = toList(choose((property) => {
+    const option_4 = encodeDynamicValue(property[1]);
+    if (option_4 != null) {
+      return [property[0], value(option_4)];
+    } else {
+      return void 0;
+    }
+  }, dynamicPropertiesExcept(CWLParameterReference.KnownFieldNames, reference)));
+  let inferredType;
+  const option_6 = reference.Value;
+  inferredType = option_6 != null ? CWLParameterValueModule_tryInferType(value(option_6)) : void 0;
+  let explicitTypePair;
+  const matchValue = reference.Type;
+  let matchResult = void 0, type__1 = void 0;
+  if (matchValue != null) {
+    if (!equals(inferredType, value(matchValue))) {
+      matchResult = 0;
+      type__1 = value(matchValue);
+    } else {
+      matchResult = 1;
+    }
+  } else {
+    matchResult = 1;
+  }
+  switch (matchResult) {
+    case 0: {
+      explicitTypePair = ["type", encodeCWLType(type__1)];
+      break;
+    }
+    default:
+      explicitTypePair = void 0;
+  }
+  let encodedReference;
+  let matchResult_1 = void 0, overflow_1 = void 0, typePair = void 0, value_5 = void 0;
+  if (explicitTypePair == null) {
+    if (isEmpty(dynamicPairs)) {
+      matchResult_1 = 0;
+    } else if (encodedValue.tag === /* Object */
+    3) {
+      matchResult_1 = 1;
+    } else {
+      matchResult_1 = 2;
+      overflow_1 = dynamicPairs;
+      typePair = explicitTypePair;
+      value_5 = encodedValue;
+    }
+  } else {
+    matchResult_1 = 2;
+    overflow_1 = dynamicPairs;
+    typePair = explicitTypePair;
+    value_5 = encodedValue;
+  }
+  switch (matchResult_1) {
+    case 0: {
+      encodedReference = encodedValue;
+      break;
+    }
+    case 1: {
+      const valuePairs = choose$1((_arg) => {
+        if (_arg.tag === /* Mapping */
+        0) {
+          return [_arg.fields[0].Value, _arg.fields[1]];
+        } else {
+          return void 0;
+        }
+      }, encodedValue.fields[0]);
+      const valueKeys = ofSeq$1(map$1((tuple) => tuple[0], valuePairs), {
+        Compare: (x, y) => comparePrimitives(x, y) | 0
+      });
+      encodedReference = yMap(append(valuePairs, filter((tupledArg) => !contains(tupledArg[0], valueKeys), dynamicPairs)));
+      break;
+    }
+    default:
+      encodedReference = yMap(toList(delay(() => append$1(ofArray(toArray(typePair)), delay(() => append$1(singleton$1(["value", value_5]), delay(() => overflow_1)))))));
+  }
+  return [reference.Key, encodedReference];
+}
+function encodeYAMLParameterFile(references) {
+  return writeYaml(yMap(toList(map$1(encodeCWLParameterReference, references))));
+}
 function getObjectPairs(element) {
   if (element.tag === /* Object */
   3) {
@@ -1620,20 +1649,27 @@ function getObjectPairs(element) {
 function renderTopLevelElement(baseKeys, orderedSectionKeys, element) {
   const section = (pairs) => trimEnd(replace(writeYaml(yMap(pairs)), "\r\n", "\n"), "\n");
   const pairs_2 = getObjectPairs(element);
-  const basePairs = filter$1((tupledArg) => contains(tupledArg[0], baseKeys, {
+  const basePairs = filter((tupledArg) => contains$1(tupledArg[0], baseKeys, {
     Equals: (x, y) => x === y,
-    GetHashCode: stringHash
+    GetHashCode: (x) => stringHash(x) | 0
   }), pairs_2);
-  const knownSections = choose$1((sectionKey) => map(singleton, tryFind((tupledArg_1) => tupledArg_1[0] === sectionKey, pairs_2)), orderedSectionKeys);
+  const knownSections = choose$1((sectionKey) => {
+    const option_1 = tryFind((tupledArg_1) => tupledArg_1[0] === sectionKey, pairs_2);
+    if (option_1 != null) {
+      return singleton(value(option_1));
+    } else {
+      return void 0;
+    }
+  }, orderedSectionKeys);
   const reservedKeys = ofList(append(baseKeys, orderedSectionKeys), {
-    Compare: comparePrimitives
+    Compare: (x_1, y_1) => comparePrimitives(x_1, y_1) | 0
   });
-  const metadataPairs = filter$1((tupledArg_2) => !FSharpSet__Contains(reservedKeys, tupledArg_2[0]), pairs_2);
+  const metadataPairs = filter((tupledArg_2) => !FSharpSet__Contains(reservedKeys, tupledArg_2[0]), pairs_2);
   const merge = (acc_mut, remaining_mut) => {
     merge:
       while (true) {
         const acc = acc_mut, remaining = remaining_mut;
-        let matchResult, a_1, b_1, rest_1, l, rest_2;
+        let matchResult = void 0, a_1 = void 0, b_1 = void 0, rest_1 = void 0, l = void 0, rest_2 = void 0;
         if (isEmpty(remaining)) {
           matchResult = 2;
         } else if (!isEmpty(tail(remaining))) {
@@ -1669,7 +1705,7 @@ function renderTopLevelElement(baseKeys, orderedSectionKeys, element) {
         break;
       }
   };
-  return join("\r\n", merge(empty$1(), ofArray(split(join("\r\n\r\n", toList(delay(() => append$1(length(basePairs) > 0 ? singleton$1(section(basePairs)) : empty$2(), delay(() => append$1(map$1(section, knownSections), delay(() => length(metadataPairs) > 0 ? singleton$1(section(metadataPairs)) : empty$2()))))))), ["\r\n"], void 0, 0))));
+  return join("\r\n", merge(empty$1(), ofArray(split(join("\r\n\r\n", toList(delay(() => append$1(length(basePairs) > 0 ? singleton$1(section(basePairs)) : empty$2(), delay(() => append$1(map(section, knownSections), delay(() => length(metadataPairs) > 0 ? singleton$1(section(metadataPairs)) : empty$2()))))))), ["\r\n"], void 0, 0))));
 }
 function encodeToolDescription(td) {
   return renderTopLevelElement(ofArray(["cwlVersion", "class", "id", "label", "doc", "intent"]), ofArray(["hints", "requirements", "baseCommand", "inputs", "outputs"]), encodeToolDescriptionElement(td));
@@ -1702,7 +1738,7 @@ function encodeCWLTypeYaml(t) {
   switch (t.tag) {
     case /* Union */
     14:
-      return "[" + join(", ", map$2(encodeCWLTypeYaml, t.fields[0])) + "]";
+      return "[" + join(", ", map$1(encodeCWLTypeYaml, t.fields[0])) + "]";
     case /* Array */
     11:
       return encodeInputArraySchemaYaml(t.fields[0]);
@@ -1726,10 +1762,10 @@ function encodeInputRecordFieldYaml(field) {
   return `{name: ${field.Name}, type: ${typeYaml}}`;
 }
 function encodeInputRecordSchemaYaml(schema) {
-  let fs;
+  let fs = void 0;
   let fieldsYaml;
   const matchValue = schema.Fields;
-  let matchResult, fs_1;
+  let matchResult = void 0, fs_1 = void 0;
   if (matchValue != null) {
     if (fs = value(matchValue), fs.length > 0) {
       matchResult = 0;
@@ -1742,7 +1778,7 @@ function encodeInputRecordSchemaYaml(schema) {
   }
   switch (matchResult) {
     case 0: {
-      fieldsYaml = join(", ", map$2(encodeInputRecordFieldYaml, fs_1));
+      fieldsYaml = join(", ", map$1(encodeInputRecordFieldYaml, fs_1));
       break;
     }
     default:
@@ -1751,17 +1787,21 @@ function encodeInputRecordSchemaYaml(schema) {
   if (fieldsYaml === "") {
     return "{type: record, fields: []}";
   } else {
-    return `{type: record, fields: [${fieldsYaml}]}`;
+    return concat("{type: record, fields: [", fieldsYaml, "]}");
   }
 }
 function encodeInputEnumSchemaYaml(schema) {
-  return `{type: enum, symbols: [${join(", ", schema.Symbols)}]}`;
+  return concat("{type: enum, symbols: [", join(", ", schema.Symbols), "]}");
 }
 function encodeInputArraySchemaYaml(schema) {
-  return `{type: array, items: ${encodeCWLTypeYaml(schema.Items)}}`;
+  return concat("{type: array, items: ", encodeCWLTypeYaml(schema.Items), "}");
 }
 function cwlTypeToYamlString(t) {
   return encodeCWLTypeYaml(t);
 }
+function formatCWLType(type_) {
+  const s = writeYaml(encodeCWLType(type_));
+  return s.trim();
+}
 
-export { $007CPrimitiveType$007CComplexType$007C, appendDynamicProperties, appendDynamicPropertiesExcept, cwlTypeToYamlString, encodeCWLInput, encodeCWLOutput, encodeCWLType, encodeCWLTypeYaml, encodeDirectoryPairs, encodeDoc, encodeDynamicObj, encodeDynamicValue, encodeEnvVarRequirementCompactMap, encodeExpressionScalar, encodeExpressionToolDescription, encodeExpressionToolDescriptionElement, encodeFilePairs, encodeHintEntry, encodeInputArraySchema, encodeInputArraySchemaYaml, encodeInputBinding, encodeInputEnumSchema, encodeInputEnumSchemaYaml, encodeInputRecordField, encodeInputRecordFieldYaml, encodeInputRecordSchema, encodeInputRecordSchemaYaml, encodeIntent, encodeLabel, encodeLinkMergeMethod, encodeOperationDescription, encodeOperationDescriptionElement, encodeOutputBinding, encodePickValueMethod, encodeProcessingUnit, encodeRequirement, encodeScatter, encodeScatterMethod, encodeSchemaDefRequirementType, encodeSchemaSaladString, encodeSoftwareRequirementCompactMap, encodeSourceArray, encodeStepInput, encodeStepInputs, encodeStepOutputParameter, encodeStepOutputs, encodeStringArrayOrScalar, encodeToolDescription, encodeToolDescriptionElement, encodeWorkflowDescription, encodeWorkflowDescriptionElement, encodeWorkflowStep, encodeWorkflowStepRun, getObjectPairs, isComplexType, normalizeDocString, normalizeEnvValueForEncode, renderTopLevelElement, tryGetArrayShorthand, writeYaml, yBool, yFloat, yMap };
+export { $007CPrimitiveType$007CComplexType$007C, appendDynamicProperties, appendDynamicPropertiesExcept, cwlTypeToYamlString, encodeCWLInput, encodeCWLOutput, encodeCWLParameterReference, encodeCWLParameterValue, encodeCWLType, encodeCWLTypeYaml, encodeDirectoryPairs, encodeDoc, encodeDynamicObj, encodeDynamicValue, encodeEnvVarRequirementCompactMap, encodeExpressionScalar, encodeExpressionToolDescription, encodeExpressionToolDescriptionElement, encodeFilePairs, encodeHintEntry, encodeInputArraySchema, encodeInputArraySchemaYaml, encodeInputBinding, encodeInputEnumSchema, encodeInputEnumSchemaYaml, encodeInputRecordField, encodeInputRecordFieldYaml, encodeInputRecordSchema, encodeInputRecordSchemaYaml, encodeIntent, encodeLabel, encodeLinkMergeMethod, encodeOperationDescription, encodeOperationDescriptionElement, encodeOutputBinding, encodePickValueMethod, encodeProcessingUnit, encodeRequirement, encodeScatter, encodeScatterMethod, encodeSchemaDefRequirementType, encodeSchemaSaladString, encodeSoftwareRequirementCompactMap, encodeSourceArray, encodeStepInput, encodeStepInputs, encodeStepOutputParameter, encodeStepOutputs, encodeStringArrayOrScalar, encodeToolDescription, encodeToolDescriptionElement, encodeWorkflowDescription, encodeWorkflowDescriptionElement, encodeWorkflowStep, encodeWorkflowStepRun, encodeYAMLParameterFile, formatCWLType, getObjectPairs, isComplexType, normalizeDocString, normalizeEnvValueForEncode, renderTopLevelElement, tryGetArrayShorthand, writeYaml, yBool, yFloat, yMap };