starlight-fsharp-oracle 0.1.0 → 0.1.2

package/dist/fable_modules/Fable.Promise.3.2.0/Promise.fs.js

@@ -0,0 +1,232 @@
+
+import { Result_MapError, Result_Map, FSharpResult$2 } from "../fable-library-js.5.0.0-rc.7/Result.js";
+import { class_type } from "../fable-library-js.5.0.0-rc.7/Reflection.js";
+import { disposeSafe, getEnumerator } from "../fable-library-js.5.0.0-rc.7/Util.js";
+import { Operators_IsNull } from "../fable-library-js.5.0.0-rc.7/FSharp.Core.js";
+
+/**
+ * This is an identity function, it calls the given function and return the promise value untouched.
+ * <example>
+ * <code lang="fsharp">
+ * fetchUser ()
+ * |> Promise.tap (fun user ->
+ * // Do something
+ * console.log "The user has been received"
+ * )
+ * |> Promise.map (fun user ->
+ * // user value is available here untouched
+ * )
+ * </code>
+ * </example>
+ */
+export function tap(fn, a) {
+    return a.then((x) => {
+        fn(x);
+        return x;
+    });
+}
+
+/**
+ * Map the <c>Promise</c> result into a <c>Result</c> type.
+ * <example>
+ * <code lang="fsharp">
+ * Success example
+ * Promise.lift 42
+ * |> Promise.result
+ * |> Promise.map (fun value ->
+ * // value = Ok 42
+ * )
+ * 
+ * // Fail example
+ * Promise.reject "Invalid value"
+ * |> Promise.result
+ * |> Promise.map (fun value ->
+ * // value = Error "Invalid value"
+ * )
+ * </code>
+ * </example>
+ */
+export function result(a) {
+    return a.then((ResultValue) => (new FSharpResult$2(0, [ResultValue]))).catch((ErrorValue) => (new FSharpResult$2(1, [ErrorValue])));
+}
+
+/**
+ * Evaluates to `myPromise |> Promise.map (Result.map fn)`
+ * <example>
+ * <code lang="fsharp">
+ * Promise.lift 42
+ * |> Promise.result
+ * |> Promise.mapResult (fun value ->
+ * value + 10
+ * )
+ * |> Promise.map (fun value ->
+ * // value = Ok 52
+ * )
+ * </code>
+ * </example>
+ */
+export function mapResult(fn, a) {
+    return a.then((result_1) => Result_Map(fn, result_1));
+}
+
+/**
+ * Transform the success part of a result promise into another promise.
+ * <example>
+ * <code lang="fsharp">
+ * let multiplyBy2 (value : int) =
+ * Promise.create (fun resolve reject ->
+ * resolve (value * 2)
+ * )
+ * 
+ * Promise.lift 42
+ * |> Promise.result
+ * |> Promise.bindResult (fun value ->
+ * multiplyBy2 value
+ * )
+ * |> Promise.map (fun value ->
+ * // value = Ok 84
+ * )
+ * </code>
+ * </example>
+ */
+export function bindResult(fn, a) {
+    return a.then((a_1) => {
+        if (a_1.tag === 1) {
+            return Promise.resolve(new FSharpResult$2(1, [a_1.fields[0]]));
+        }
+        else {
+            const pr = fn(a_1.fields[0]);
+            return pr.then((ResultValue) => (new FSharpResult$2(0, [ResultValue])));
+        }
+    });
+}
+
+/**
+ * Evaluates to <c>myPromise |> Promise.map (Result.map fn)</c>
+ * <example>
+ * <code lang="fsharp">
+ * Promise.reject -1
+ * |> Promise.result
+ * |> Promise.mapResultError (fun value ->
+ * $"%s{value} is not a valid value"
+ * )
+ * |> Promise.map (fun value ->
+ * // value = Error "-1 is not a valid value"
+ * )
+ * </code>
+ * </example>
+ */
+export function mapResultError(fn, a) {
+    return a.then((result_1) => Result_MapError(fn, result_1));
+}
+
+/**
+ * A builder to provide promise Computation Expression support.
+ * 
+ * The CE is available via <c>promise { ... }</c>
+ * <example>
+ * <code lang="fsharp">
+ * let double (value : int) =
+ * promise {
+ * return value * 2
+ * }
+ * </code>
+ * </example>
+ */
+export class PromiseBuilder {
+    constructor() {
+    }
+}
+
+export function PromiseBuilder_$reflection() {
+    return class_type("Promise.PromiseBuilder", undefined, PromiseBuilder);
+}
+
+export function PromiseBuilder_$ctor() {
+    return new PromiseBuilder();
+}
+
+export function PromiseBuilder__For_1565554B(_, seq, body) {
+    let p = Promise.resolve(undefined);
+    const enumerator = getEnumerator(seq);
+    try {
+        while (enumerator["System.Collections.IEnumerator.MoveNext"]()) {
+            let pr;
+            const a = enumerator["System.Collections.Generic.IEnumerator`1.get_Current"]();
+            p = ((pr = p, pr.then(() => body(a))));
+        }
+    }
+    finally {
+        disposeSafe(enumerator);
+    }
+    return p;
+}
+
+export function PromiseBuilder__While_2044D34(this$, guard, p) {
+    if (guard()) {
+        return p.then(() => PromiseBuilder__While_2044D34(this$, guard, p));
+    }
+    else {
+        return Promise.resolve(undefined);
+    }
+}
+
+export function PromiseBuilder__TryFinally_7D49A2FD(_, p, compensation) {
+    return p.then((x) => {
+        compensation();
+        return x;
+    }).catch((er) => {
+        compensation();
+        throw er;
+    });
+}
+
+export function PromiseBuilder__Delay_62FBFDE1(_, generator) {
+    return {
+        then: (onSuccess, onError) => {
+            try {
+                return generator().then(onSuccess, onError);
+            }
+            catch (er) {
+                if (Operators_IsNull(onError)) {
+                    return Promise.reject(er);
+                }
+                else {
+                    try {
+                        const a = onError(er);
+                        return Promise.resolve(a);
+                    }
+                    catch (er_1) {
+                        return Promise.reject(er_1);
+                    }
+                }
+            }
+        },
+        catch: (onError_1) => {
+            try {
+                return generator().catch(onError_1);
+            }
+            catch (er_2) {
+                try {
+                    const a_1 = onError_1(er_2);
+                    return Promise.resolve(a_1);
+                }
+                catch (er_3) {
+                    return Promise.reject(er_3);
+                }
+            }
+        },
+    };
+}
+
+export function PromiseBuilder__Run_212F1D4B(_, p) {
+    return p.then((x) => x);
+}
+
+export function PromiseBuilder__Using_74F7E79D(this$, resource, binder) {
+    return PromiseBuilder__TryFinally_7D49A2FD(this$, binder(resource), () => {
+        let copyOfStruct = resource;
+        disposeSafe(copyOfStruct);
+    });
+}
+

package/dist/fable_modules/Fable.Promise.3.2.0/PromiseImpl.fs

@@ -0,0 +1,31 @@
+[<AutoOpen>]
+module PromiseImpl
+
+let promise = Promise.PromiseBuilder()
+
+[<RequireQualifiedAccess>]
+module SettledValue =
+
+    /// <summary>
+    /// Helper functionm to convert a settled result into an F# result
+    /// </summary>
+    /// <param name="p">The settled result</param>
+    /// <typeparam name="'T"></typeparam>
+    /// <returns>The F# result</returns>
+    /// <example>
+    /// <code lang="fsharp">
+    /// Promise.allSettled [success; rejection]
+    /// |> Promise.iter (fun results ->
+    ///     for result in results do 
+    ///       match SettledValue.toResult result  with 
+    ///       | Ok value ->
+    ///         printfn "Success: %A" value
+    ///       | Error err -> 
+    ///         eprintfn "Error: %O" err
+    /// )
+    /// </code>
+    /// </example>
+    let toResult (p: Promise.SettledValue<'T>) =
+        match p.status with 
+        | Promise.Fulfilled -> Ok p.value.Value
+        | Promise.Rejected -> Error p.reason.Value

package/dist/fable_modules/Fable.Promise.3.2.0/PromiseImpl.fs.js

@@ -0,0 +1,20 @@
+
+import { PromiseBuilder_$ctor } from "./Promise.fs.js";
+import { value } from "../fable-library-js.5.0.0-rc.7/Option.js";
+import { FSharpResult$2 } from "../fable-library-js.5.0.0-rc.7/Result.js";
+
+export const promise = PromiseBuilder_$ctor();
+
+/**
+ * Helper functionm to convert a settled result into an F# result
+ */
+export function SettledValue_toResult(p) {
+    const matchValue = p.status;
+    if (matchValue === "rejected") {
+        return new FSharpResult$2(1, [value(p.reason)]);
+    }
+    else {
+        return new FSharpResult$2(0, [value(p.value)]);
+    }
+}
+