@fable-org/fable-library-js 2.0.0-beta.4 → 2.0.0-beta.5

package/FSharp.Core.js

@@ -1,22 +1,22 @@
-import { disposeSafe, structuralHash, nullableEquals } from "./Util.js";
+import { disposeSafe, defaultOf, Exception, structuralHash, equals } from "./Util.js";
 import { HashIdentity_Structural, ComparisonIdentity_Structural } from "./FSharp.Collections.js";
 import { nonNullValue } from "./Option.js";
+import { NullReferenceException_$ctor, ArgumentNullException_$ctor_Z721C83C5 } from "./System.js";
 import { FSharpChoice$2_Choice2Of2, FSharpChoice$2_Choice1Of2 } from "./Choice.js";
-import { concat } from "./String.js";
 import { StringBuilder__Append_Z721C83C5 } from "./System.Text.js";
 export const LanguagePrimitives_GenericEqualityComparer = {
-    "System.Collections.IEqualityComparer.Equals541DA560"(x, y) {
-        return nullableEquals(x, y);
+    Equals(x, y) {
+        return equals(x, y);
     },
-    "System.Collections.IEqualityComparer.GetHashCode4E60E31B"(x_1) {
+    GetHashCode(x_1) {
         return structuralHash(x_1) | 0;
     },
 };
 export const LanguagePrimitives_GenericEqualityERComparer = {
-    "System.Collections.IEqualityComparer.Equals541DA560"(x, y) {
-        return nullableEquals(x, y);
+    Equals(x, y) {
+        return equals(x, y);
     },
-    "System.Collections.IEqualityComparer.GetHashCode4E60E31B"(x_1) {
+    GetHashCode(x_1) {
         return structuralHash(x_1) | 0;
     },
 };
@@ -33,20 +33,20 @@ export function LanguagePrimitives_FastGenericEqualityComparerFromTable() {
     return HashIdentity_Structural();
 }
 export function Operators_Failure(message) {
-    return new Error(message);
+    return new Exception(message);
 }
 export function Operators_FailurePattern(exn) {
     return exn.message;
 }
-export function Operators_NullArg(x) {
-    throw new Error(x);
+export function Operators_NullArg(argumentName) {
+    throw ArgumentNullException_$ctor_Z721C83C5(argumentName);
 }
 export function Operators_Using(resource, action) {
     try {
         return action(resource);
     }
     finally {
-        if (resource == null) {
+        if (equals(resource, defaultOf())) {
         }
         else {
             let copyOfStruct = resource;
@@ -58,7 +58,7 @@ export function Operators_Lock(_lockObj, action) {
     return action();
 }
 export function Operators_IsNull(value) {
-    if (value == null) {
+    if (equals(value, defaultOf())) {
         return true;
     }
     else {
@@ -66,7 +66,7 @@ export function Operators_IsNull(value) {
     }
 }
 export function Operators_IsNotNull(value) {
-    if (value == null) {
+    if (equals(value, defaultOf())) {
         return false;
     }
     else {
@@ -77,8 +77,8 @@ export function Operators_IsNullV(value) {
     return !(value != null);
 }
 export function Operators_NonNull(value) {
-    if (value == null) {
-        throw new Error();
+    if (equals(value, defaultOf())) {
+        throw NullReferenceException_$ctor();
     }
     else {
         return value;
@@ -89,11 +89,11 @@ export function Operators_NonNullV(value) {
         return nonNullValue(value);
     }
     else {
-        throw new Error();
+        throw NullReferenceException_$ctor();
     }
 }
 export function Operators_NullMatchPattern(value) {
-    if (value == null) {
+    if (equals(value, defaultOf())) {
         return FSharpChoice$2_Choice1Of2(undefined);
     }
     else {
@@ -109,8 +109,8 @@ export function Operators_NullValueMatchPattern(value) {
     }
 }
 export function Operators_NonNullQuickPattern(value) {
-    if (value == null) {
-        throw new Error();
+    if (equals(value, defaultOf())) {
+        throw NullReferenceException_$ctor();
     }
     else {
         return value;
@@ -121,7 +121,7 @@ export function Operators_NonNullQuickValuePattern(value) {
         return nonNullValue(value);
     }
     else {
-        throw new Error();
+        throw NullReferenceException_$ctor();
     }
 }
 export function Operators_WithNull(value) {
@@ -134,8 +134,8 @@ export function Operators_NullV() {
     return null;
 }
 export function Operators_NullArgCheck(argumentName, value) {
-    if (value == null) {
-        throw new Error(concat("Value cannot be null. (Parameter \'", argumentName, ..."\')"));
+    if (equals(value, defaultOf())) {
+        throw ArgumentNullException_$ctor_Z721C83C5(argumentName);
     }
     else {
         return value;

package/Global.js

@@ -6,3 +6,24 @@ export const SR_inputSequenceTooLong = "The input sequence contains more than on
 export const SR_keyNotFoundAlt = "An index satisfying the predicate was not found in the collection.";
 export const SR_differentLengths = "The collections had different lengths.";
 export const SR_notEnoughElements = "The input sequence has an insufficient number of elements.";
+export const SR_Arg_ApplicationException = "Error in the application.";
+export const SR_Arg_ArgumentException = "Value does not fall within the expected range.";
+export const SR_Arg_ArgumentOutOfRangeException = "Specified argument was out of the range of valid values.";
+export const SR_ArgumentNull_Generic = "Value cannot be null.";
+export const SR_Arg_ParamName_Name = " (Parameter \'";
+export const SR_Arg_ArithmeticException = "Overflow or underflow in the arithmetic operation.";
+export const SR_Arg_DivideByZero = "Attempted to divide by zero.";
+export const SR_Arg_FormatException = "One of the identified items was in an invalid format.";
+export const SR_Arg_IndexOutOfRangeException = "Index was outside the bounds of the array.";
+export const SR_Arg_InvalidOperationException = "Operation is not valid due to the current state of the object.";
+export const SR_Arg_KeyNotFound = "The given key was not present in the dictionary.";
+export const SR_Arg_NotFiniteNumberException = "Number encountered was not a finite quantity.";
+export const SR_Arg_NotImplementedException = "The method or operation is not implemented.";
+export const SR_Arg_NotSupportedException = "Specified method is not supported.";
+export const SR_Arg_NullReferenceException = "Object reference not set to an instance of an object.";
+export const SR_Arg_OutOfMemoryException = "Insufficient memory to continue the execution of the program.";
+export const SR_Arg_OverflowException = "Arithmetic operation resulted in an overflow.";
+export const SR_Arg_RankException = "Attempted to operate on an array with the incorrect number of dimensions.";
+export const SR_Arg_StackOverflowException = "Operation caused a stack overflow.";
+export const SR_Arg_SystemException = "System error.";
+export const SR_Arg_TimeoutException = "The operation has timed out.";

package/Guid.js

@@ -1,4 +1,5 @@
 import { trim } from "./String.js";
+import { Exception } from "./Util.js";
 // RFC 4122 compliant. From https://stackoverflow.com/a/13653180/3922220
 // const guidRegex = /^[0-9a-f]{8}-[0-9a-f]{4}-[1-5][0-9a-f]{3}-[89ab][0-9a-f]{3}-[0-9a-f]{12}$/;
 // Relax GUID parsing, see #1637
@@ -20,7 +21,7 @@ export function toString(str, format, _provider) {
             case "X":
                 return str.replace(guidHexCaptures, "{0x$1,0x$3,0x$5,{0x$6,0x$7,0x$8,0x$9,0x$10,0x$11,0x$12,0x$13}}");
             default:
-                throw new Error("Unrecognized Guid print format");
+                throw new Exception("Unrecognized Guid print format");
         }
     }
     else {
@@ -43,7 +44,7 @@ export function parse(str) {
         return hyphenateGuid(wsTrimAndLowered.replace(/[\{\},]|0x/g, ''));
     }
     else {
-        throw new Error("Guid should contain 32 digits with 4 dashes: xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx");
+        throw new Exception("Guid should contain 32 digits with 4 dashes: xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx");
     }
 }
 export function tryParse(str, defValue) {
@@ -73,7 +74,7 @@ function initConvertMaps() {
     _byteToHex = new Array(256);
     _hexToByte = {};
     for (let i = 0; i < 256; i++) {
-        _byteToHex[i] = (i + 0x100).toString(16).substr(1);
+        _byteToHex[i] = i.toString(16).padStart(2, '0');
         _hexToByte[_byteToHex[i]] = i;
     }
     _convertMapsInitialized = true;
@@ -125,7 +126,7 @@ export function guidToArray(s) {
 /** Convert UUID byte array into a string */
 export function arrayToGuid(buf) {
     if (buf.length !== 16) {
-        throw new Error("Byte array for GUID must be exactly 16 bytes long");
+        throw new Exception("Byte array for GUID must be exactly 16 bytes long");
     }
     if (!_convertMapsInitialized) {
         initConvertMaps();

package/Int32.js

@@ -1,16 +1,16 @@
-export var NumberStyles;
-(function (NumberStyles) {
-    // None = 0x00000000,
-    // AllowLeadingWhite = 0x00000001,
-    // AllowTrailingWhite = 0x00000002,
-    // AllowLeadingSign = 0x00000004,
-    // AllowTrailingSign = 0x00000008,
-    // AllowParentheses = 0x00000010,
-    // AllowDecimalPoint = 0x00000020,
-    // AllowThousands = 0x00000040,
-    // AllowExponent = 0x00000080,
-    // AllowCurrencySymbol = 0x00000100,
-    NumberStyles[NumberStyles["AllowHexSpecifier"] = 512] = "AllowHexSpecifier";
+import { Exception } from "./Util.js";
+export const NumberStyles = {
+    // None: 0x00000000,
+    // AllowLeadingWhite: 0x00000001,
+    // AllowTrailingWhite: 0x00000002,
+    // AllowLeadingSign: 0x00000004,
+    // AllowTrailingSign: 0x00000008,
+    // AllowParentheses: 0x00000010,
+    // AllowDecimalPoint: 0x00000020,
+    // AllowThousands: 0x00000040,
+    // AllowExponent: 0x00000080,
+    // AllowCurrencySymbol: 0x00000100,
+    AllowHexSpecifier: 0x00000200,
     // Integer = AllowLeadingWhite | AllowTrailingWhite | AllowLeadingSign,
     // HexNumber = AllowLeadingWhite | AllowTrailingWhite | AllowHexSpecifier,
     // Number = AllowLeadingWhite | AllowTrailingWhite | AllowLeadingSign |
@@ -21,7 +21,7 @@ export var NumberStyles;
     //            AllowParentheses | AllowDecimalPoint | AllowThousands | AllowCurrencySymbol,
     // Any = AllowLeadingWhite | AllowTrailingWhite | AllowLeadingSign | AllowTrailingSign |
     //       AllowParentheses | AllowDecimalPoint | AllowThousands | AllowCurrencySymbol | AllowExponent,
-})(NumberStyles || (NumberStyles = {}));
+};
 function validResponse(regexMatch, radix) {
     const [/*all*/ , sign, prefix, digits] = regexMatch;
     return {
@@ -36,7 +36,7 @@ function getRange(unsigned, bitsize) {
         case 8: return unsigned ? [0, 255] : [-128, 127];
         case 16: return unsigned ? [0, 65535] : [-32768, 32767];
         case 32: return unsigned ? [0, 4294967295] : [-2147483648, 2147483647];
-        default: throw new Error("Invalid bit size.");
+        default: throw new Exception("Invalid bit size.");
     }
 }
 function getInvalidDigits(radix) {
@@ -46,7 +46,7 @@ function getInvalidDigits(radix) {
         case 10: return /[^0-9]/;
         case 16: return /[^0-9a-fA-F]/;
         default:
-            throw new Error("Invalid Base.");
+            throw new Exception("Invalid Base.");
     }
 }
 export function getPrefix(radix) {
@@ -102,7 +102,7 @@ export function parse(str, style, unsigned, bitsize, radix) {
             }
         }
     }
-    throw new Error(`The input string ${str} was not in a correct format.`);
+    throw new Exception(`The input string ${str} was not in a correct format.`);
 }
 export function tryParse(str, style, unsigned, bitsize, defValue) {
     try {

package/List.js

@@ -1,9 +1,10 @@
 import { join } from "./String.js";
 import { defaultArg, some, value as value_1 } from "./Option.js";
-import { disposeSafe, isArrayLike, defaultOf, toIterator, getEnumerator, compare, structuralHash, equals } from "./Util.js";
+import { disposeSafe, isArrayLike, Exception, defaultOf, toIterator, getEnumerator, compare, structuralHash, equals } from "./Util.js";
 import { Record } from "./Types.js";
 import { class_type, record_type, option_type } from "./Reflection.js";
 import { SR_inputSequenceTooLong, SR_inputSequenceEmpty, SR_inputMustBeNonNegative, SR_notEnoughElements, SR_differentLengths, SR_keyNotFoundAlt, SR_indexOutOfBounds, SR_inputWasEmpty } from "./Global.js";
+import { KeyNotFoundException_$ctor_Z721C83C5 } from "./System.Collections.Generic.js";
 import { transpose as transpose_1, splitInto as splitInto_1, windowed as windowed_1, pairwise as pairwise_1, chunkBySize as chunkBySize_1, map as map_1, permute as permute_1, tryFindIndexBack as tryFindIndexBack_1, tryFindBack as tryFindBack_1, scanBack as scanBack_1, item as item_1, foldBack2 as foldBack2_1, foldBack as foldBack_1, setItem, fill } from "./Array.js";
 export class FSharpList extends Record {
     constructor(head, tail) {
@@ -220,7 +221,7 @@ export function FSharpList__get_Head(xs) {
         return xs.head;
     }
     else {
-        throw new Error((SR_inputWasEmpty + "\\nParameter name: ") + "list");
+        throw new Exception((SR_inputWasEmpty + "\\nParameter name: ") + "list");
     }
 }
 export function FSharpList__get_Tail(xs) {
@@ -229,7 +230,7 @@ export function FSharpList__get_Tail(xs) {
         return value_1(matchValue);
     }
     else {
-        throw new Error((SR_inputWasEmpty + "\\nParameter name: ") + "list");
+        throw new Exception((SR_inputWasEmpty + "\\nParameter name: ") + "list");
     }
 }
 export function FSharpList__get_Item_Z524259A4(xs, index) {
@@ -248,7 +249,7 @@ export function FSharpList__get_Item_Z524259A4(xs, index) {
                 }
             }
             else {
-                throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+                throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
             }
             break;
         }
@@ -256,7 +257,7 @@ export function FSharpList__get_Item_Z524259A4(xs, index) {
     return loop(0, xs);
 }
 export function indexNotFound() {
-    throw new Error(SR_keyNotFoundAlt);
+    throw KeyNotFoundException_$ctor_Z721C83C5(SR_keyNotFoundAlt);
 }
 export function empty() {
     return FSharpList_get_Empty();
@@ -309,7 +310,7 @@ export function tryLast(xs_mut) {
 export function last(xs) {
     const matchValue = tryLast(xs);
     if (matchValue == null) {
-        throw new Error(SR_inputWasEmpty);
+        throw new Exception(SR_inputWasEmpty);
     }
     else {
         return value_1(matchValue);
@@ -417,7 +418,7 @@ export function unfold(generator, state) {
     const loop = (acc_mut, node_mut) => {
         loop: while (true) {
             const acc = acc_mut, node = node_mut;
-            let t;
+            let t = undefined;
             const matchValue = generator(acc);
             if (matchValue != null) {
                 acc_mut = value_1(matchValue)[1];
@@ -484,7 +485,7 @@ export function ofSeq(xs) {
         const enumerator = getEnumerator(xs);
         try {
             while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
-                let xs_3, t;
+                let xs_3 = undefined, t = undefined;
                 const x = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
                 node = ((xs_3 = node, (t = (new FSharpList(x, undefined)), (xs_3.tail = t, t))));
             }
@@ -540,7 +541,7 @@ export function scan(folder, state, xs) {
     let acc = state;
     let xs_3 = xs;
     while (!FSharpList__get_IsEmpty(xs_3)) {
-        let xs_4, t_2;
+        let xs_4 = undefined, t_2 = undefined;
         acc = folder(acc, FSharpList__get_Head(xs_3));
         node = ((xs_4 = node, (t_2 = (new FSharpList(acc, undefined)), (xs_4.tail = t_2, t_2))));
         xs_3 = FSharpList__get_Tail(xs_3);
@@ -563,7 +564,7 @@ export function collect(mapping, xs) {
     while (!FSharpList__get_IsEmpty(ys)) {
         let zs = mapping(FSharpList__get_Head(ys));
         while (!FSharpList__get_IsEmpty(zs)) {
-            let xs_1, t;
+            let xs_1 = undefined, t = undefined;
             node = ((xs_1 = node, (t = (new FSharpList(FSharpList__get_Head(zs), undefined)), (xs_1.tail = t, t))));
             zs = FSharpList__get_Tail(zs);
         }
@@ -614,7 +615,7 @@ export function mapIndexed2(mapping, xs, ys) {
     const loop = (i_mut, acc_mut, xs_1_mut, ys_1_mut) => {
         loop: while (true) {
             const i = i_mut, acc = acc_mut, xs_1 = xs_1_mut, ys_1 = ys_1_mut;
-            let t;
+            let t = undefined;
             if (FSharpList__get_IsEmpty(xs_1) ? true : FSharpList__get_IsEmpty(ys_1)) {
                 return acc;
             }
@@ -638,7 +639,7 @@ export function map3(mapping, xs, ys, zs) {
     const loop = (acc_mut, xs_1_mut, ys_1_mut, zs_1_mut) => {
         loop: while (true) {
             const acc = acc_mut, xs_1 = xs_1_mut, ys_1 = ys_1_mut, zs_1 = zs_1_mut;
-            let t;
+            let t = undefined;
             if ((FSharpList__get_IsEmpty(xs_1) ? true : FSharpList__get_IsEmpty(ys_1)) ? true : FSharpList__get_IsEmpty(zs_1)) {
                 return acc;
             }
@@ -661,7 +662,7 @@ export function map3(mapping, xs, ys, zs) {
 export function mapFold(mapping, state, xs) {
     const root = FSharpList_get_Empty();
     const patternInput_1 = fold((tupledArg, x) => {
-        let t;
+        let t = undefined;
         const patternInput = mapping(tupledArg[1], x);
         return [(t = (new FSharpList(patternInput[0], undefined)), (tupledArg[0].tail = t, t)), patternInput[1]];
     }, [root, state], xs);
@@ -814,7 +815,7 @@ export function partition(f, xs) {
     const root2 = FSharpList_get_Empty();
     const root1 = matchValue;
     const patternInput_1 = fold((tupledArg, x) => {
-        let t, t_2;
+        let t = undefined, t_2 = undefined;
         const lacc = tupledArg[0];
         const racc = tupledArg[1];
         if (f(x)) {
@@ -854,7 +855,7 @@ export function initialize(n, f) {
     const root = FSharpList_get_Empty();
     let node = root;
     for (let i = 0; i <= (n - 1); i++) {
-        let xs, t;
+        let xs = undefined, t = undefined;
         node = ((xs = node, (t = (new FSharpList(f(i), undefined)), (xs.tail = t, t))));
     }
     const xs_2 = node;
@@ -867,7 +868,7 @@ export function replicate(n, x) {
 }
 export function reduce(f, xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Error(SR_inputWasEmpty);
+        throw new Exception(SR_inputWasEmpty);
     }
     else {
         return fold(f, head(xs), tail(xs));
@@ -875,7 +876,7 @@ export function reduce(f, xs) {
 }
 export function reduceBack(f, xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Error(SR_inputWasEmpty);
+        throw new Exception(SR_inputWasEmpty);
     }
     else {
         return foldBack(f, tail(xs), head(xs));
@@ -895,7 +896,7 @@ export function exists2(f_mut, xs_mut, ys_mut) {
         const f = f_mut, xs = xs_mut, ys = ys_mut;
         const matchValue = FSharpList__get_IsEmpty(xs);
         const matchValue_1 = FSharpList__get_IsEmpty(ys);
-        let matchResult;
+        let matchResult = undefined;
         if (matchValue) {
             if (matchValue_1) {
                 matchResult = 0;
@@ -924,7 +925,7 @@ export function exists2(f_mut, xs_mut, ys_mut) {
                     continue exists2;
                 }
             default:
-                throw new Error((SR_differentLengths + "\\nParameter name: ") + "list2");
+                throw new Exception((SR_differentLengths + "\\nParameter name: ") + "list2");
         }
         break;
     }
@@ -1003,7 +1004,7 @@ export function allPairs(xs, ys) {
     let node = root;
     iterate((x) => {
         iterate((y) => {
-            let xs_1, t;
+            let xs_1 = undefined, t = undefined;
             node = ((xs_1 = node, (t = (new FSharpList([x, y], undefined)), (xs_1.tail = t, t))));
         }, ys);
     }, xs);
@@ -1019,7 +1020,7 @@ export function skip(count_mut, xs_mut) {
             return xs;
         }
         else if (FSharpList__get_IsEmpty(xs)) {
-            throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "list");
+            throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "list");
         }
         else {
             count_mut = (count - 1);
@@ -1048,17 +1049,17 @@ export function skipWhile(predicate_mut, xs_mut) {
 }
 export function take(count, xs) {
     if (count < 0) {
-        throw new Error((SR_inputMustBeNonNegative + "\\nParameter name: ") + "count");
+        throw new Exception((SR_inputMustBeNonNegative + "\\nParameter name: ") + "count");
     }
     const loop = (i_mut, acc_mut, xs_1_mut) => {
         loop: while (true) {
             const i = i_mut, acc = acc_mut, xs_1 = xs_1_mut;
-            let t;
+            let t = undefined;
             if (i <= 0) {
                 return acc;
             }
             else if (FSharpList__get_IsEmpty(xs_1)) {
-                throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "list");
+                throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "list");
             }
             else {
                 i_mut = (i - 1);
@@ -1079,7 +1080,7 @@ export function takeWhile(predicate, xs) {
     const loop = (acc_mut, xs_1_mut) => {
         loop: while (true) {
             const acc = acc_mut, xs_1 = xs_1_mut;
-            let t;
+            let t = undefined;
             if (FSharpList__get_IsEmpty(xs_1)) {
                 return acc;
             }
@@ -1104,7 +1105,7 @@ export function truncate(count, xs) {
     const loop = (i_mut, acc_mut, xs_1_mut) => {
         loop: while (true) {
             const i = i_mut, acc = acc_mut, xs_1 = xs_1_mut;
-            let t;
+            let t = undefined;
             if (i <= 0) {
                 return acc;
             }
@@ -1143,22 +1144,22 @@ export function getSlice(startIndex, endIndex, xs) {
 }
 export function splitAt(index, xs) {
     if (index < 0) {
-        throw new Error((SR_inputMustBeNonNegative + "\\nParameter name: ") + "index");
+        throw new Exception((SR_inputMustBeNonNegative + "\\nParameter name: ") + "index");
     }
     if (index > FSharpList__get_Length(xs)) {
-        throw new Error((SR_notEnoughElements + "\\nParameter name: ") + "index");
+        throw new Exception((SR_notEnoughElements + "\\nParameter name: ") + "index");
     }
     return [take(index, xs), skip(index, xs)];
 }
 export function exactlyOne(xs) {
     if (FSharpList__get_IsEmpty(xs)) {
-        throw new Error((SR_inputSequenceEmpty + "\\nParameter name: ") + "list");
+        throw new Exception((SR_inputSequenceEmpty + "\\nParameter name: ") + "list");
     }
     else if (FSharpList__get_IsEmpty(FSharpList__get_Tail(xs))) {
         return FSharpList__get_Head(xs);
     }
     else {
-        throw new Error((SR_inputSequenceTooLong + "\\nParameter name: ") + "list");
+        throw new Exception((SR_inputSequenceTooLong + "\\nParameter name: ") + "list");
     }
 }
 export function tryExactlyOne(xs) {
@@ -1198,7 +1199,7 @@ export function insertAt(index, y, xs) {
         }
     }, FSharpList_get_Empty(), xs);
     return reverse(isDone ? result : (((i + 1) === index) ? FSharpList_Cons_305B8EAC(y, result) : (() => {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     })()));
 }
 export function insertManyAt(index, ys, xs) {
@@ -1216,7 +1217,7 @@ export function insertManyAt(index, ys, xs) {
         }
     }, FSharpList_get_Empty(), xs);
     return reverse(isDone ? result : (((i + 1) === index) ? append(ys_1, result) : (() => {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     })()));
 }
 export function removeAt(index, xs) {
@@ -1233,7 +1234,7 @@ export function removeAt(index, xs) {
         }
     }, xs);
     if (!isDone) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return ys;
 }
@@ -1261,7 +1262,7 @@ export function removeManyAt(index, count, xs) {
     }, xs);
     const status_1 = (((status === 0) && ((i + 1) === (index + count))) ? 1 : status) | 0;
     if (status_1 < 1) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + ((status_1 < 0) ? "index" : "count"));
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + ((status_1 < 0) ? "index" : "count"));
     }
     return ys;
 }
@@ -1277,7 +1278,7 @@ export function updateAt(index, y, xs) {
         }
     }, xs);
     if (!isDone) {
-        throw new Error((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
+        throw new Exception((SR_indexOutOfBounds + "\\nParameter name: ") + "index");
     }
     return ys;
 }

package/Long.js

@@ -1,5 +1,6 @@
 import { getPrefix, isValid } from "./Int32.js";
 import { fromString } from "./BigInt.js";
+import { Exception } from "./Util.js";
 function getMaxValue(unsigned, radix, isNegative) {
     switch (radix) {
         case 2: return unsigned ?
@@ -15,7 +16,7 @@ function getMaxValue(unsigned, radix, isNegative) {
         case 16: return unsigned ?
             "FFFFFFFFFFFFFFFF" :
             (isNegative ? "8000000000000000" : "7FFFFFFFFFFFFFFF");
-        default: throw new Error("Invalid radix.");
+        default: throw new Exception("Invalid radix.");
     }
 }
 export function parse(str, style, unsigned, _bitsize, radix) {
@@ -33,7 +34,7 @@ export function parse(str, style, unsigned, _bitsize, radix) {
             return fromString(str);
         }
     }
-    throw new Error(`The input string ${str} was not in a correct format.`);
+    throw new Exception(`The input string ${str} was not in a correct format.`);
 }
 export function tryParse(str, style, unsigned, bitsize, defValue) {
     try {

package/MailboxProcessor.js

@@ -1,6 +1,7 @@
 import { defaultCancellationToken } from "./Async.js";
 import { fromContinuations } from "./Async.js";
 import { startImmediate } from "./Async.js";
+import { Exception } from "./Util.js";
 class QueueCell {
     constructor(message) {
         this.value = message;
@@ -54,7 +55,7 @@ export function startInstance($this) {
 export function receive($this) {
     return fromContinuations((conts) => {
         if ($this.continuation) {
-            throw new Error("Receive can only be called once!");
+            throw new Exception("Receive can only be called once!");
         }
         $this.continuation = conts[0];
         __processEvents($this);