@nfdi4plants/arctrl 3.2.3 → 3.3.0

package/dist/ts/ts/fable_modules/Thoth.Json.Core.0.9.1/Decode.fs.js

@@ -1,13 +1,13 @@
 import { ErrorReason$1_BadPrimitive, ErrorReason$1_BadPrimitiveExtra, ErrorReason$1_BadType, ErrorReason$1_BadPath, ErrorReason$1_BadField, ErrorReason$1_TooSmallArray, ErrorReason$1_BadOneOf, Json_Boolean$, Json, Json_String$, Json_Number$, Json_Array$, Json_Object$, ErrorReason$1_FailMessage } from './Types.fs.js';
 import { tryParse as tryParse$1 } from '../../../node_modules/@fable-org/fable-library-ts/Int32.js';
-import { join } from '../../../node_modules/@fable-org/fable-library-ts/String.js';
+import { join, getCharAtIndex } from '../../../node_modules/@fable-org/fable-library-ts/String.js';
 import { map as map$1, tryLast, fold, empty, append, singleton, ofSeq, reverse as reverse$1, cons, isEmpty, head, tail, length } from '../../../node_modules/@fable-org/fable-library-ts/List.js';
 import { FSharpResult$2_Error$, FSharpResult$2_Ok, Result_MapError, Result_Map } from '../../../node_modules/@fable-org/fable-library-ts/Result.js';
-import { tryParse } from '../../../node_modules/@fable-org/fable-library-ts/Guid.js';
 import { FSharpRef, Record } from '../../../node_modules/@fable-org/fable-library-ts/Types.js';
+import { tryParse } from '../../../node_modules/@fable-org/fable-library-ts/Guid.js';
 import { toFloat64, toInt64_unchecked, fromFloat64, toUInt64_unchecked, fromInt32, tryParse as tryParse$3 } from '../../../node_modules/@fable-org/fable-library-ts/BigInt.js';
 import { tryParse as tryParse$2 } from '../../../node_modules/@fable-org/fable-library-ts/Long.js';
-import { tryParse as tryParse$4 } from '../../../node_modules/@fable-org/fable-library-ts/Decimal.js';
+import { fromFloat64 as fromFloat64$1, tryParse as tryParse$4 } from '../../../node_modules/@fable-org/fable-library-ts/Decimal.js';
 import { minValue, tryParse as tryParse$5, toUniversalTime } from '../../../node_modules/@fable-org/fable-library-ts/Date.js';
 import { minValue as minValue$1, tryParse as tryParse$6 } from '../../../node_modules/@fable-org/fable-library-ts/DateOffset.js';
 import { tryParse as tryParse$7 } from '../../../node_modules/@fable-org/fable-library-ts/TimeSpan.js';
@@ -103,7 +103,7 @@ const char = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       const str = helpers.asString(value_1);
-      return str.length === 1 ? FSharpResult$2_Ok(str[0]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a single character string", value_1)]);
+      return str.length === 1 ? FSharpResult$2_Ok(getCharAtIndex(str, 0)) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a single character string", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a char", value_1)]);
     }
@@ -113,10 +113,8 @@ const guid = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = "00000000-0000-0000-0000-000000000000";
-      matchValue = [tryParse(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef("00000000-0000-0000-0000-000000000000");
+      matchValue = [tryParse(helpers.asString(value_1), cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a guid", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a guid", value_1)]);
@@ -133,16 +131,15 @@ const sbyte = {
     if (helpers.isNumber(value_2)) {
       if (helpers.isIntegralValue(value_2)) {
         const floatValue = helpers.asFloat(value_2);
-        return -128 <= floatValue && floatValue <= 127 ? FSharpResult$2_Ok((floatValue + 128 & 255) - 128) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a sbyte", value_2, "Value was either too large or too small for a sbyte")]);
+        return -128 <= floatValue && floatValue <= 127 ? FSharpResult$2_Ok((~~floatValue + 128 & 255) - 128) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a sbyte", value_2, "Value was either too large or too small for a sbyte")]);
       } else {
         return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a sbyte", value_2, "Value is not an integral value")]);
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, false, 8, new FSharpRef(() => outArg | 0, (v) => {
-        outArg = v | 0;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, false, 8, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a sbyte", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a sbyte", value_2)]);
@@ -154,16 +151,15 @@ const byte = {
     if (helpers.isNumber(value_2)) {
       if (helpers.isIntegralValue(value_2)) {
         const floatValue = helpers.asFloat(value_2);
-        return 0 <= floatValue && floatValue <= 255 ? FSharpResult$2_Ok(floatValue & 255) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a byte", value_2, "Value was either too large or too small for a byte")]);
+        return 0 <= floatValue && floatValue <= 255 ? FSharpResult$2_Ok(~~floatValue & 255) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a byte", value_2, "Value was either too large or too small for a byte")]);
       } else {
         return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("a byte", value_2, "Value is not an integral value")]);
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, true, 8, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, true, 8, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a byte", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a byte", value_2)]);
@@ -175,16 +171,15 @@ const int16 = {
     if (helpers.isNumber(value_2)) {
       if (helpers.isIntegralValue(value_2)) {
         const floatValue = helpers.asFloat(value_2);
-        return -32768 <= floatValue && floatValue <= 32767 ? FSharpResult$2_Ok((floatValue + 32768 & 65535) - 32768) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an int16", value_2, "Value was either too large or too small for an int16")]);
+        return -32768 <= floatValue && floatValue <= 32767 ? FSharpResult$2_Ok((~~floatValue + 32768 & 65535) - 32768) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an int16", value_2, "Value was either too large or too small for an int16")]);
       } else {
         return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an int16", value_2, "Value is not an integral value")]);
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, false, 16, new FSharpRef(() => outArg | 0, (v) => {
-        outArg = v | 0;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, false, 16, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int16", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int16", value_2)]);
@@ -196,16 +191,15 @@ const uint16 = {
     if (helpers.isNumber(value_2)) {
       if (helpers.isIntegralValue(value_2)) {
         const floatValue = helpers.asFloat(value_2);
-        return 0 <= floatValue && floatValue <= 65535 ? FSharpResult$2_Ok(floatValue & 65535) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an uint16", value_2, "Value was either too large or too small for an uint16")]);
+        return 0 <= floatValue && floatValue <= 65535 ? FSharpResult$2_Ok(~~floatValue & 65535) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an uint16", value_2, "Value was either too large or too small for an uint16")]);
       } else {
         return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitiveExtra("an uint16", value_2, "Value is not an integral value")]);
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, true, 16, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, true, 16, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint16", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint16", value_2)]);
@@ -223,10 +217,9 @@ const int = {
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, false, 32, new FSharpRef(() => outArg | 0, (v) => {
-        outArg = v | 0;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, false, 32, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int", value_2)]);
@@ -244,10 +237,9 @@ const uint32 = {
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$1(helpers.asString(value_2), 511, true, 32, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$1(arg, 511, true, 32, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint32", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint32", value_2)]);
@@ -265,10 +257,9 @@ const int64 = {
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0n;
-      matchValue = [tryParse$2(helpers.asString(value_2), 511, false, 64, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0n);
+      matchValue = [tryParse$2(arg, 511, false, 64, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int64", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an int64", value_2)]);
@@ -286,10 +277,9 @@ const uint64 = {
       }
     } else if (helpers.isString(value_2)) {
       let matchValue;
-      let outArg = 0n;
-      matchValue = [tryParse$2(helpers.asString(value_2), 511, true, 64, new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const arg = helpers.asString(value_2);
+      const cell = new FSharpRef(0n);
+      matchValue = [tryParse$2(arg, 511, true, 64, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint64", value_2)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("an uint64", value_2)]);
@@ -302,10 +292,8 @@ const bigint = {
       return FSharpResult$2_Ok(fromInt32(helpers.asInt(value_1)));
     } else if (helpers.isString(value_1)) {
       let parseResult;
-      let outArg = 0n;
-      parseResult = [tryParse$3(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(0n);
+      parseResult = [tryParse$3(helpers.asString(value_1), cell), cell.contents];
       return parseResult[0] ? FSharpResult$2_Ok(parseResult[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a bigint", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a bigint", value_1)]);
@@ -330,13 +318,11 @@ const float32 = {
 const decimal = {
   Decode(helpers, value_1) {
     if (helpers.isNumber(value_1)) {
-      return FSharpResult$2_Ok(new Big(helpers.asFloat(value_1)));
+      return FSharpResult$2_Ok(fromFloat64$1(helpers.asFloat(value_1)));
     } else if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = new Big("0");
-      matchValue = [tryParse$4(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(new Big("0"));
+      matchValue = [tryParse$4(helpers.asString(value_1), 111, cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a decimal", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a decimal", value_1)]);
@@ -347,10 +333,8 @@ const datetimeUtc = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = minValue();
-      matchValue = [tryParse$5(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(minValue());
+      matchValue = [tryParse$5(helpers.asString(value_1), cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(toUniversalTime(matchValue[1])) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetime", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetime", value_1)]);
@@ -361,10 +345,8 @@ const datetimeLocal = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = minValue();
-      matchValue = [tryParse$5(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(minValue());
+      matchValue = [tryParse$5(helpers.asString(value_1), cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetime", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetime", value_1)]);
@@ -375,10 +357,8 @@ const datetimeOffset = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = minValue$1();
-      matchValue = [tryParse$6(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(minValue$1());
+      matchValue = [tryParse$6(helpers.asString(value_1), cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetimeoffset", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a datetime", value_1)]);
@@ -389,10 +369,8 @@ const timespan = {
   Decode(helpers, value_1) {
     if (helpers.isString(value_1)) {
       let matchValue;
-      let outArg = 0;
-      matchValue = [tryParse$7(helpers.asString(value_1), new FSharpRef(() => outArg, (v) => {
-        outArg = v;
-      })), outArg];
+      const cell = new FSharpRef(0);
+      matchValue = [tryParse$7(helpers.asString(value_1), cell), cell.contents];
       return matchValue[0] ? FSharpResult$2_Ok(matchValue[1]) : FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a timespan", value_1)]);
     } else {
       return FSharpResult$2_Error$(["", ErrorReason$1_BadPrimitive("a timespan", value_1)]);
@@ -469,7 +447,7 @@ function optionalAt(fieldNames, decoder) {
         const lastValue = _arg[1];
         return helpers.isNullValue(lastValue) ? FSharpResult$2_Ok(void 0) : decodeMaybeNull(helpers, _arg[0], decoder, lastValue);
       } else {
-        return value$1(_arg[2]);
+        return _arg[2];
       }
     }
   };
@@ -514,7 +492,7 @@ function at(fieldNames, decoder) {
           return [curPath, curValue, res];
         }
       }, ["", firstValue, void 0], fieldNames);
-      return _arg[2] == null ? Result_MapError((tupledArg_1) => Helpers_prependPath(_arg[0], tupledArg_1[0], tupledArg_1[1]), decoder.Decode(helpers, _arg[1])) : value$1(_arg[2]);
+      return _arg[2] == null ? Result_MapError((tupledArg_1) => Helpers_prependPath(_arg[0], tupledArg_1[0], tupledArg_1[1]), decoder.Decode(helpers, _arg[1])) : _arg[2];
     }
   };
 }

package/dist/ts/ts/fable_modules/Thoth.Json.Core.0.9.1/Encode.fs.js

@@ -177,7 +177,7 @@ function lossyOption(encoder) {
     let option_3;
     const option_1 = arg;
     option_3 = option_1 != null ? encoder(value$1(option_1)) : void 0;
-    return option_3 != null ? value$1(option_3) : {
+    return option_3 != null ? option_3 : {
       Encode(helpers) {
         return helpers.encodeNull();
       }

package/dist/ts/ts/fable_modules/Thoth.Json.JavaScript.0.5.0/Decode.fs.js

@@ -1,4 +1,3 @@
-import { Operators_IsNull } from '../../../node_modules/@fable-org/fable-library-ts/FSharp.Core.js';
 import { Exception } from '../../../node_modules/@fable-org/fable-library-ts/Util.js';
 import { Advanced_fromValue, Helpers_prependPath, errorToString } from '../Thoth.Json.Core.0.9.1/Decode.fs.js';
 import { FSharpResult$2_Error$, FSharpResult$2_Ok } from '../../../node_modules/@fable-org/fable-library-ts/Result.js';
@@ -14,7 +13,7 @@ const helpers = {
     return typeof jsonValue_2 === "boolean";
   },
   isNullValue(jsonValue_3) {
-    return Operators_IsNull(jsonValue_3);
+    return jsonValue_3 == null;
   },
   isArray(jsonValue_4) {
     return Array.isArray(jsonValue_4);