@nfdi4plants/arctrl 2.2.3 → 2.3.0

package/fable_modules/Fable.Exceljs.1.6.0/Table.fs

@@ -0,0 +1,85 @@
+[<AutoOpen>]
+module Fable.ExcelJs.Table
+
+open Fable.Core
+open Fable.Core.JsInterop
+open Fable.ExcelJs
+open Cell
+
+[<RequireQualifiedAccess>]
+type TotalsFunctions =
+/// Default
+| [<CompiledName("Total")>] Total
+/// No totals function for this column
+| [<CompiledName("none")>] None
+/// Compute average for the column
+| [<CompiledName("average")>] Average
+/// Count the entries that are numbers
+| [<CompiledName("countNums")>] CountNums
+/// Count of entries
+| [<CompiledName("count")>] Count
+/// The maximum value in this column
+| [<CompiledName("max")>] Max
+/// The minimum value in this column
+| [<CompiledName("min")>] Min
+/// The standard deviation for this column
+| [<CompiledName("stdDev")>] StdDev
+/// The variance for this column
+| [<CompiledName("var")>] Var
+/// The sum of entries for this column
+| [<CompiledName("sum")>] Sum
+/// A custom formula. Requires an associated totalsRowFormula value.
+| [<CompiledName("custom")>] Custom
+
+with
+    static member defaultValue = Total
+
+// https://fable.io/docs/javascript/features.html#paramobject
+[<AllowNullLiteral>]
+[<Global>]
+type TableColumn
+    [<ParamObject; Emit("$0")>]
+    (   
+        name: string, 
+        ?filterButton: bool, 
+        ?totalsRowLabel: TotalsFunctions, 
+        ?totalsRowFunction: string, 
+        ?totalsRowFormula: obj
+    ) =
+    member val name: string = jsNative with get, set
+    member val filterButton: bool = jsNative with get, set
+    member val totalsRowLabel: TotalsFunctions = jsNative with get, set
+    member val totalsRowFunction: string = jsNative with get, set
+    member val totalsRowFormula: obj = jsNative with get, set
+
+[<AllowNullLiteral>]
+[<Global>]
+type Table
+    [<ParamObject; Emit("$0")>]
+    (   name: string, 
+        ref: CellAdress, 
+        columns: TableColumn [], 
+        rows: RowValues [] [], 
+        ?displayName: string, 
+        ?headerRow: bool, 
+        ?totalsRow: bool, 
+        ?style: obj
+    ) =
+    /// The name of the table
+    member val name: string = jsNative with get, set
+    /// The display name of the table.
+    member val displayName: string = jsNative with get, set
+    /// Top left cell of the table
+    member val ref: CellAdress = jsNative with get, set
+    /// Show headers at top of table
+    member val headerRow: bool = jsNative with get, set
+    /// Show totals at bottom of table
+    member val totalsRow: bool = jsNative with get, set
+     /// More style properties
+    member val style: obj = jsNative with get, set
+    /// columns
+    member val columns: TableColumn [] = jsNative with get, set
+    /// rows
+    member val rows: RowValues [] [] = jsNative with get, set
+    /// full range of table. Exmp "A1:D4"
+    member val tableRef: CellRange = jsNative with get

package/fable_modules/Fable.Exceljs.1.6.0/Table.fs.js

@@ -0,0 +1,22 @@
+import { Union } from "../fable-library-js.4.24.0/Types.js";
+import { union_type } from "../fable-library-js.4.24.0/Reflection.js";
+
+export class TotalsFunctions extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["Total", "none", "average", "countNums", "count", "max", "min", "stdDev", "var", "sum", "custom"];
+    }
+}
+
+export function TotalsFunctions_$reflection() {
+    return union_type("Fable.ExcelJs.Table.TotalsFunctions", [], TotalsFunctions, () => [[], [], [], [], [], [], [], [], [], [], []]);
+}
+
+export function TotalsFunctions_get_defaultValue() {
+    return new TotalsFunctions(0, []);
+}
+

package/fable_modules/Fable.Exceljs.1.6.0/Unions.fs

@@ -0,0 +1,87 @@
+[<AutoOpen>]
+module Fable.ExcelJs.Unions
+
+open Fable.Core
+open Fable.Core.JsInterop
+
+type ErrorValue =
+| NotApplicable
+| Ref
+| Name
+| DivZero
+| Null
+| Value
+| Num
+    with
+        member this.toString =
+            match this with
+            | NotApplicable    -> "#N/A"
+            | Ref              -> "#REF!"
+            | Name             -> "#NAME?"
+            | DivZero          -> "#DIV/0!"
+            | Null             -> "#NULL!"
+            | Value            -> "#VALUE!"
+            | Num              -> "#NUM!"
+        static member ofString (str:string) =
+            match str with
+            | "#N/A"    -> NotApplicable
+            | "#REF!"   -> Ref          
+            | "#NAME?"  -> Name         
+            | "#DIV/0!" -> DivZero      
+            | "#NULL!"  -> Null         
+            | "#VALUE!" -> Value        
+            | "#NUM!"   -> Num
+            | anyElse -> failwith "Cannot match input string to ErrorValue"
+            
+
+type ValueType =
+| Null = 0
+| Merge = 1
+| Number = 2
+| String = 3
+| Date = 4
+| Hyperlink = 5
+| Formula = 6
+| RichText = 8
+| Boolean = 9
+| Error = 10
+
+// TODO: implement this with create function to easily use
+//[<Erase>]
+//type ValueType =
+//| Null
+//| Merge
+//| Number of float
+//| String of string
+//| Date of System.DateOnly
+//| Hyperlink of string
+//| Formula of obj
+//| RichText of obj []
+//| Boolean of bool
+//| Error of obj
+
+[<RequireQualifiedAccess>]
+type StyleOption =
+/// inherit from row above
+| [<CompiledName("'i'")>] Inherit
+/// inherit from row above and include empty cells
+| [<CompiledName("'i+'")>] InheritWithNulls
+/// original style
+| [<CompiledName("'o'")>] Original
+/// original style and include empty cells
+| [<CompiledName("'o+'")>] OriginalWithNulls
+/// Default; no style options
+| [<CompiledName("'n'")>] None
+
+type CellValue = obj option
+/// e.g. "B5", "A1", "AZ3",..
+type CellAdress = string
+/// e.g. ""A1:C5""
+type CellRange = string
+
+/// Example1: {|key1 = "Test"; key2 = 2; key3 = 4; key4 = None; key5 = None; key7 = "Test me too"|}.
+/// Example2: createObj ["key1" ==> "Test"; "key2" ==> 2; "key3" ==> 4; "key4" ==> None; "key5" ==> None; "key7" ==> "Test me too" ]
+/// Example3: Row.createValues (["key1","Test"; "key2",2])
+/// Example4: [Some "Test"; Some 2; Some 4; None; None; None; Some "Test me too"]
+type RowValues = obj
+

package/fable_modules/Fable.Exceljs.1.6.0/Unions.fs.js

@@ -0,0 +1,73 @@
+import { Union } from "../fable-library-js.4.24.0/Types.js";
+import { union_type } from "../fable-library-js.4.24.0/Reflection.js";
+
+export class ErrorValue extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["NotApplicable", "Ref", "Name", "DivZero", "Null", "Value", "Num"];
+    }
+}
+
+export function ErrorValue_$reflection() {
+    return union_type("Fable.ExcelJs.Unions.ErrorValue", [], ErrorValue, () => [[], [], [], [], [], [], []]);
+}
+
+export function ErrorValue__get_toString(this$) {
+    switch (this$.tag) {
+        case 1:
+            return "#REF!";
+        case 2:
+            return "#NAME?";
+        case 3:
+            return "#DIV/0!";
+        case 4:
+            return "#NULL!";
+        case 5:
+            return "#VALUE!";
+        case 6:
+            return "#NUM!";
+        default:
+            return "#N/A";
+    }
+}
+
+export function ErrorValue_ofString_Z721C83C5(str) {
+    switch (str) {
+        case "#N/A":
+            return new ErrorValue(0, []);
+        case "#REF!":
+            return new ErrorValue(1, []);
+        case "#NAME?":
+            return new ErrorValue(2, []);
+        case "#DIV/0!":
+            return new ErrorValue(3, []);
+        case "#NULL!":
+            return new ErrorValue(4, []);
+        case "#VALUE!":
+            return new ErrorValue(5, []);
+        case "#NUM!":
+            return new ErrorValue(6, []);
+        default:
+            throw new Error("Cannot match input string to ErrorValue");
+    }
+}
+
+export class StyleOption extends Union {
+    constructor(tag, fields) {
+        super();
+        this.tag = tag;
+        this.fields = fields;
+    }
+    cases() {
+        return ["\'i\'", "\'i+\'", "\'o\'", "\'o+\'", "\'n\'"];
+    }
+}
+
+export function StyleOption_$reflection() {
+    return union_type("Fable.ExcelJs.Unions.StyleOption", [], StyleOption, () => [[], [], [], [], []]);
+}
+

package/fable_modules/Fable.Exceljs.1.6.0/Workbook.fs

@@ -0,0 +1,37 @@
+[<AutoOpen>]
+module Fable.ExcelJs.Workbook
+
+open Fable.Core
+open Fable.Core.JsInterop
+open Fable.ExcelJs
+open Worksheet
+open Xlsx
+
+type Workbook =
+    abstract member creator : string with get, set
+    abstract member lastModifiedBy : string with get, set
+    abstract member created : System.DateTime with get, set
+    abstract member modified : System.DateTime with get, set
+    abstract member lastPrinted : System.DateTime with get, set
+    abstract member description : string with get, set
+    abstract member keywords : string with get, set
+    abstract member manager : string with get, set
+    abstract member category : string with get, set
+    abstract member company: string with get, set
+    abstract member xlsx: Xlsx with get
+    abstract member addWorksheet: string -> Worksheet
+    [<Emit("$0.addWorksheet($1,{properties: $2})")>]
+    abstract member addWorksheet: string * WorksheetProperties -> Worksheet
+    /// Remove the worksheet using worksheet id
+    abstract member removeWorksheet: int -> unit
+    /// fetch sheet by name
+    abstract member getWorksheet: string -> Worksheet
+    /// fetch sheet by id.
+    /// INFO: Be careful when using it!
+    /// It tries to access to `worksheet.id` field. Sometimes (really very often) workbook has worksheets with id not starting from 1.
+    /// For instance It happens when any worksheet has been deleted.
+    /// It's much more safety when you assume that ids are random. And stop to use this function.
+    abstract member getWorksheet: int -> Worksheet
+    abstract member worksheets: Worksheet [] with get
+    [<Emit("$0.eachSheet(function(worksheet, sheetId){$1([worksheet, sheetId])})")>] //oh boy
+    abstract member eachSheet: func:(Worksheet*int -> unit) -> unit

package/fable_modules/Fable.Exceljs.1.6.0/Worksheet.fs

@@ -0,0 +1,120 @@
+[<AutoOpen>]
+module Fable.ExcelJs.Worksheet
+
+open Fable.Core
+open Fable.Core.JsInterop
+open Fable.ExcelJs
+open Cell
+open Row
+open Column
+open Table
+
+type WorksheetProperties =
+    abstract member tabColor        : obj with get, set
+    abstract member outlineLevelCol : int with get, set
+    abstract member outlineLevelRow : int with get, set
+    abstract member defaultRowHeight: int with get, set
+    abstract member defaultColWidth : int with get, set
+    abstract member dyDescent       : int with get, set
+
+[<Erase>]
+type WorksheetState =
+/// make worksheet visible
+| [<CompiledName("visible")>] Visible
+/// make worksheet hidden
+| [<CompiledName("hidden")>] Hidden
+/// make worksheet hidden
+| [<CompiledName("veryHidden")>] VeryHidden
+
+type ITableRef =
+    abstract member worksheet: Worksheet with get
+    abstract member table: Table option with get
+    abstract member ref: CellAdress with get, set
+    abstract member name: string with get, set
+    abstract member headerRow: bool with get, set
+    abstract member displayName: string with get, set
+    abstract member showFirstColumn: bool with get, set
+    abstract member showLastColumn: bool with get, set
+
+and Worksheet =
+    abstract member id: int with get, set
+    abstract member name: string with get, set
+    abstract member state: WorksheetState with get, set
+    abstract member properties: WorksheetProperties with get, set
+    /// Get the last editable row in a worksheet (or undefined if there are none)
+    abstract member lastRow: Row option with get
+    abstract member lastColumn: Column option with get
+    [<Emit("$0._lastRowNumber")>]
+    abstract member lastRowNumber: int with get
+    // Add column headers and define column keys and widths
+    // Note: these column structures are a workbook-building convenience only,
+    // apart from the column width, they will not be fully persisted.
+    abstract member columns: Column [] with get, set
+    [<Emit("$0._rows")>]
+    abstract member rows: Row [] with get
+    /// Not sure how this should be used
+    abstract member tables: obj with get, set
+    /// A count of the number of columns that have values.
+    abstract member actualColumnCount: int with get
+    /// The total column size of the document. Equal to the maximum cell count from all of the rows
+    abstract member columnCount: int with get
+    /// A count of the number of rows that have values. If a mid-document row is empty, it will not be included in the count.
+    abstract member actualRowCount: int with get
+    /// The total row size of the document. Equal to the row number of the last row that has values.
+    abstract member rowCount: int with get
+    /// add a table to a sheet
+    abstract member addTable: Table -> ITableRef
+    /// get a table from worksheet by name
+    abstract member getTable: string -> ITableRef
+    /// get all tables from worksheet
+    abstract member getTables: unit -> ITableRef []
+    /// remove table from worksheet by name
+    abstract member removeTable: string -> unit
+    /// Access an individual columns by key, letter and 1-based column number
+    abstract member getColumn: string -> Column
+    /// Access an individual columns by key, letter and 1-based column number
+    abstract member getColumn: int -> Column
+    abstract member addRow: CellValue [] -> Row
+    /// Add a Row as `obj` with `column.key` as key and row value as value, after the last current row.
+    /// `obj` can be anonymous record type or fable createObj.
+    /// Use None to not set value for row for a given column or just skip.
+    abstract member addRow: rowValues:RowValues -> Row
+    /// obj can be any of the allowed inputs of `addRow`
+    abstract member addRows: rowValuesArray:RowValues [] -> Row []
+    /// insert new row at rowIndex and return as row object
+    abstract member insertRow: rowIndex:int*RowValues -> Row
+    /// insert new row with specified style at rowIndex and return as row object
+    abstract member insertRow: rowIndex:int*RowValues*StyleOption -> Row
+    /// insert an array of rows at rowIndex and return as row object array. Shifts all rows beginning from position by number of inserted rows
+    abstract member insertRows: rowIndex:int*RowValues [] -> Row []
+    /// insert an array of rows with specified style at rowIndex and return as row object array. Shifts all rows beginning from position by number of inserted rows
+    abstract member insertRows: rowIndex:int*RowValues []*StyleOption -> Row []
+    abstract member getRow: int -> Row
+    abstract member getRows: int*int -> Row []
+    /// Cut one or more rows (rows below are shifted up).
+    /// Removed rows are replaced by nulls in worksheet.rows
+    /// Known Issue: If a splice causes any merged cells to move, the results may be unpredictable.
+    abstract member spliceRows: rowIndexStart:int*nRows:int -> unit
+    /// Cut one or more rows and insert newRows instead.
+    /// Known Issue: If a splice causes any merged cells to move, the results may be unpredictable.
+    [<Emit("$0.spliceRows($1,$2,$3...)")>]
+    abstract member spliceRows: rowIndexStart:int*nRows:int* [<ParamSeqAttribute>] newRows: CellValue [] [] -> unit
+    /// Duplicate row at rowIndex
+    [<Emit("$0.duplicateRow($1, 1, true)")>]
+    abstract member duplicateRow: rowIndex:int -> unit
+    /// Duplicate row `amount` times at rowIndex
+    [<Emit("$0.duplicateRow($1, $2, true)")>]
+    abstract member duplicateRow: rowIndex:int*amount:int -> unit
+    /// Duplicate row at rowIndex, if
+    /// `insert`: true if you want to insert new rows for the duplicates, or false if you want to replace them
+    [<Emit("$0.duplicateRow($1, 1, $2)")>]
+    abstract member duplicateRow: rowIndex:int*insert:bool -> unit
+    /// Duplicate row `amount` times at rowIndex
+    /// `insert`: true if you want to insert new rows for the duplicates, or false if you want to replace them
+    abstract member duplicateRow: rowIndex:int*amount:int*insert:bool -> unit
+    [<Emit("$0.eachRow(function(row, rowNumber){$1([row, rowNumber])})")>] //oh boy
+    abstract member eachRow: func:(Row*int -> unit) -> unit
+    [<Emit("$0.eachRow({ includeEmpty: $1 }, function(row, rowNumber){$2([row, rowNumber])})")>]
+    abstract member eachRow: includeEmpty:bool*func:(Row*int -> unit) -> unit
+    abstract member getCell: CellAdress -> Cell
+

package/fable_modules/Fable.Exceljs.1.6.0/Xlsx.fs

@@ -0,0 +1,18 @@
+[<AutoOpen>]
+module Fable.ExcelJs.Xlsx
+
+open Fable.Core.JS
+
+type Xlsx =
+    /// read from a file
+    abstract member readFile: filename:string -> Promise<unit>
+    /// read from a stream
+    abstract member read: filename:System.IO.Stream -> Promise<unit>
+    /// load from a buffer
+    abstract member load: filename:obj -> Promise<unit>
+    /// write to a file
+    abstract member writeFile: filename:string -> Promise<unit>
+    /// write to a stream
+    abstract member write: filename:System.IO.Stream -> Promise<unit>
+    /// write to a new buffer
+    abstract member writeBuffer: unit -> Promise<obj>

package/fable_modules/Fable.Exceljs.1.6.0/obj/Debug/net6.0/.NETCoreApp,Version=v6.0.AssemblyAttributes.fs

@@ -0,0 +1,3 @@
+namespace Microsoft.BuildSettings
+                [<System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v6.0", FrameworkDisplayName="")>]
+                do ()

package/fable_modules/Fable.Exceljs.1.6.0/obj/Debug/net6.0/Fable.Exceljs.AssemblyInfo.fs

@@ -0,0 +1,19 @@
+// <auto-generated>
+//     Generated by the FSharp WriteCodeFragment class.
+// </auto-generated>
+namespace FSharp
+
+open System
+open System.Reflection
+
+
+[<assembly: System.Reflection.AssemblyCompanyAttribute("Kevin Frey")>]
+[<assembly: System.Reflection.AssemblyConfigurationAttribute("Debug")>]
+[<assembly: System.Reflection.AssemblyDescriptionAttribute("Fable bindings for exceljs")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0")>]
+[<assembly: System.Reflection.AssemblyProductAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyTitleAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>]
+[<assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/Freymaurer/Fable.exceljs")>]
+do()

package/fable_modules/Fable.Exceljs.1.6.0/obj/Debug/netstandard2.0/Fable.Exceljs.AssemblyInfo.fs

@@ -0,0 +1,19 @@
+// <auto-generated>
+//     Generated by the FSharp WriteCodeFragment class.
+// </auto-generated>
+namespace FSharp
+
+open System
+open System.Reflection
+
+
+[<assembly: System.Reflection.AssemblyCompanyAttribute("Kevin Frey")>]
+[<assembly: System.Reflection.AssemblyConfigurationAttribute("Debug")>]
+[<assembly: System.Reflection.AssemblyDescriptionAttribute("Fable bindings for exceljs")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0")>]
+[<assembly: System.Reflection.AssemblyProductAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyTitleAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>]
+[<assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/Freymaurer/Fable.exceljs")>]
+do()

package/fable_modules/Fable.Exceljs.1.6.0/obj/Release/net6.0/.NETCoreApp,Version=v6.0.AssemblyAttributes.fs

@@ -0,0 +1,3 @@
+namespace Microsoft.BuildSettings
+                [<System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v6.0", FrameworkDisplayName="")>]
+                do ()

package/fable_modules/Fable.Exceljs.1.6.0/obj/Release/net6.0/Fable.Exceljs.AssemblyInfo.fs

@@ -0,0 +1,19 @@
+// <auto-generated>
+//     Generated by the FSharp WriteCodeFragment class.
+// </auto-generated>
+namespace FSharp
+
+open System
+open System.Reflection
+
+
+[<assembly: System.Reflection.AssemblyCompanyAttribute("Kevin Frey")>]
+[<assembly: System.Reflection.AssemblyConfigurationAttribute("Release")>]
+[<assembly: System.Reflection.AssemblyDescriptionAttribute("Fable bindings for exceljs")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("1.6.0.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.6.0")>]
+[<assembly: System.Reflection.AssemblyProductAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyTitleAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("1.6.0.0")>]
+[<assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/Freymaurer/Fable.exceljs")>]
+do()

package/fable_modules/Fable.Exceljs.1.6.0/obj/Release/netstandard2.0/Fable.Exceljs.AssemblyInfo.fs

@@ -0,0 +1,19 @@
+// <auto-generated>
+//     Generated by the FSharp WriteCodeFragment class.
+// </auto-generated>
+namespace FSharp
+
+open System
+open System.Reflection
+
+
+[<assembly: System.Reflection.AssemblyCompanyAttribute("Kevin Frey")>]
+[<assembly: System.Reflection.AssemblyConfigurationAttribute("Release")>]
+[<assembly: System.Reflection.AssemblyDescriptionAttribute("Fable bindings for exceljs")>]
+[<assembly: System.Reflection.AssemblyFileVersionAttribute("1.6.0.0")>]
+[<assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.6.0")>]
+[<assembly: System.Reflection.AssemblyProductAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyTitleAttribute("Fable.Exceljs")>]
+[<assembly: System.Reflection.AssemblyVersionAttribute("1.6.0.0")>]
+[<assembly: System.Reflection.AssemblyMetadataAttribute("RepositoryUrl", "https://github.com/Freymaurer/Fable.exceljs")>]
+do()

package/fable_modules/Fable.Fetch.2.6.0/Fetch.fs.js

@@ -1,11 +1,11 @@
-import { Union } from "../fable-library-js.4.22.0/Types.js";
-import { array_type, tuple_type, bool_type, class_type, union_type, obj_type, int32_type, string_type } from "../fable-library-js.4.22.0/Reflection.js";
-import { defaultArg } from "../fable-library-js.4.22.0/Option.js";
-import { empty } from "../fable-library-js.4.22.0/Seq.js";
-import { keyValueList } from "../fable-library-js.4.22.0/MapUtil.js";
-import { int32ToString } from "../fable-library-js.4.22.0/Util.js";
-import { result } from "../Fable.Promise.2.2.2/Promise.fs.js";
-import { singleton } from "../fable-library-js.4.22.0/List.js";
+import { Union } from "../fable-library-js.4.24.0/Types.js";
+import { array_type, tuple_type, bool_type, class_type, union_type, obj_type, int32_type, string_type } from "../fable-library-js.4.24.0/Reflection.js";
+import { defaultArg } from "../fable-library-js.4.24.0/Option.js";
+import { empty } from "../fable-library-js.4.24.0/Seq.js";
+import { keyValueList } from "../fable-library-js.4.24.0/MapUtil.js";
+import { int32ToString } from "../fable-library-js.4.24.0/Util.js";
+import { result } from "../Fable.Promise.3.2.0/Promise.fs.js";
+import { singleton } from "../fable-library-js.4.24.0/List.js";
 
 export class Types_HttpRequestHeaders extends Union {
     constructor(tag, fields) {

package/fable_modules/Fable.Promise.3.2.0/AsyncIterable.fs

@@ -0,0 +1,57 @@
+[<RequireQualifiedAccess>]
+module AsyncIterable
+
+open Fable.Core
+open Fable.Core.JsInterop
+
+[<Emit("""{
+    [Symbol.asyncIterator]() {
+        return {
+            next: $0,
+            return: $1
+        }
+    }
+}""")>]
+let private createAsyncIterator (onNext: unit -> JS.Promise<obj>) (onCancel: unit -> obj): JS.AsyncIterable<'T> = jsNative
+
+/// Creates AsyncIterable. See https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Statements/for-await...of#specifications
+let create (onNext: unit -> JS.Promise<'T option>): JS.AsyncIterable<'T> =
+    createAsyncIterator
+        (fun () ->
+            onNext() |> Promise.map (function
+                | Some value -> createObj ["value" ==> value; "done" ==> false]
+                | None -> createObj ["done" ==> true]
+            ))
+        (fun () -> createObj [ "done" ==> true ])
+
+/// Creates AsyncIterable with a cleaning function for cancellation (JS caller invokes `break` or `return` during iteration)
+let createCancellable (onCancel: unit -> unit) (onNext: unit -> JS.Promise<'T option>): JS.AsyncIterable<'T> =
+    createAsyncIterator
+        (fun () ->
+            onNext() |> Promise.map (function
+                | Some value -> createObj ["value" ==> value; "done" ==> false]
+                | None -> createObj ["done" ==> true]
+            ))
+        (fun () ->
+            onCancel()
+            createObj [ "done" ==> true ])
+
+type CancellationToken() =
+    member this.Cancel(): unit =
+        raise !!this
+
+/// Iterates AsyncIterable. See https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Statements/for-await...of
+let iter (action: CancellationToken -> 'T -> unit) (iterable: JS.AsyncIterable<'T>): JS.Promise<unit> =
+    let token = CancellationToken()
+    emitJsExpr () """(async () => {
+    for await (const value of iterable) {
+        try {
+            action(token, value)
+        } catch (err) {
+            if (err instanceof token.constructor) {
+                break;
+            }
+            throw(err);
+        }
+    }
+})()"""