firefly-compiler 0.4.4

package/output/js/ff/core/BuildSystem.mjs

@@ -0,0 +1,320 @@
+import * as import$0 from 'esbuild';
+
+import * as ff_core_Any from "../../ff/core/Any.mjs"
+
+import * as ff_core_Array from "../../ff/core/Array.mjs"
+
+import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
+
+import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
+
+import * as ff_core_Bool from "../../ff/core/Bool.mjs"
+
+import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
+
+import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
+
+import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
+
+import * as ff_core_Channel from "../../ff/core/Channel.mjs"
+
+import * as ff_core_Char from "../../ff/core/Char.mjs"
+
+import * as ff_core_Core from "../../ff/core/Core.mjs"
+
+import * as ff_core_Duration from "../../ff/core/Duration.mjs"
+
+import * as ff_core_Equal from "../../ff/core/Equal.mjs"
+
+import * as ff_core_Error from "../../ff/core/Error.mjs"
+
+import * as ff_core_FileHandle from "../../ff/core/FileHandle.mjs"
+
+import * as ff_core_Float from "../../ff/core/Float.mjs"
+
+import * as ff_core_HttpClient from "../../ff/core/HttpClient.mjs"
+
+import * as ff_core_Instant from "../../ff/core/Instant.mjs"
+
+import * as ff_core_Int from "../../ff/core/Int.mjs"
+
+import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
+
+import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
+
+import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
+
+import * as ff_core_List from "../../ff/core/List.mjs"
+
+import * as ff_core_Lock from "../../ff/core/Lock.mjs"
+
+import * as ff_core_Log from "../../ff/core/Log.mjs"
+
+import * as ff_core_Map from "../../ff/core/Map.mjs"
+
+import * as ff_core_NodeSystem from "../../ff/core/NodeSystem.mjs"
+
+import * as ff_core_Nothing from "../../ff/core/Nothing.mjs"
+
+import * as ff_core_Option from "../../ff/core/Option.mjs"
+
+import * as ff_core_Ordering from "../../ff/core/Ordering.mjs"
+
+import * as ff_core_Pair from "../../ff/core/Pair.mjs"
+
+import * as ff_core_Path from "../../ff/core/Path.mjs"
+
+import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
+
+import * as ff_core_Set from "../../ff/core/Set.mjs"
+
+import * as ff_core_Show from "../../ff/core/Show.mjs"
+
+import * as ff_core_Stack from "../../ff/core/Stack.mjs"
+
+import * as ff_core_Stream from "../../ff/core/Stream.mjs"
+
+import * as ff_core_String from "../../ff/core/String.mjs"
+
+import * as ff_core_StringMap from "../../ff/core/StringMap.mjs"
+
+import * as ff_core_Task from "../../ff/core/Task.mjs"
+
+import * as ff_core_Try from "../../ff/core/Try.mjs"
+
+import * as ff_core_Unit from "../../ff/core/Unit.mjs"
+
+// type BuildSystem
+
+
+// type BrowserCode
+export function BrowserCode(packageGroup_, packageName_, mainFile_, assetSystem_) {
+return {packageGroup_, packageName_, mainFile_, assetSystem_};
+}
+
+// type BrowserBundle
+export function BrowserBundle(assetSystem_) {
+return {assetSystem_};
+}
+
+
+
+export function internalCallEsBuild_(self_, mainJsFile_, outputPath_, minify_, sourceMap_) {
+throw new Error('Function internalCallEsBuild is missing on this target in sync context.');
+}
+
+export function internalNodeCallEsBuild_(self_, mainJsFile_, outputPath_, minify_) {
+throw new Error('Function internalNodeCallEsBuild is missing on this target in sync context.');
+}
+
+export function internalListDirectory_(path_) {
+function go_(currentPath_) {
+return ff_core_Stream.Stream_flatMap(ff_core_Path.Path_entries(currentPath_), ((file_) => {
+if(ff_core_Path.PathEntry_isDirectory(file_)) {
+return go_(ff_core_Path.PathEntry_path(file_))
+} else {
+return ff_core_List.List_toStream(ff_core_List.Link(ff_core_Path.PathEntry_path(file_), ff_core_List.Empty()), false)
+}
+}))
+}
+return ff_core_Stream.Stream_toList(ff_core_Stream.Stream_map(go_(path_), ((file_) => {
+return ff_core_Pair.Pair(("/" + ff_core_Path.Path_relativeTo(file_, path_)), (() => {
+return ff_core_Path.Path_readStream(file_)
+}))
+})))
+}
+
+export function internalPath_(buildSystem_, absoluteOrRelative_) {
+throw new Error('Function internalPath is missing on this target in sync context.');
+}
+
+export function internalCompile_(buildSystem_, mainFile_, target_) {
+throw new Error('Function internalCompile is missing on this target in sync context.');
+}
+
+export function internalMainPackagePair_(buildSystem_) {
+throw new Error('Function internalMainPackagePair is missing on this target in sync context.');
+}
+
+export async function internalCallEsBuild_$(self_, mainJsFile_, outputPath_, minify_, sourceMap_, $task) {
+
+        const esbuild = import$0
+        return await esbuild.build({
+            entryPoints: [mainJsFile_],
+            bundle: true,
+            minify: minify_,
+            sourcemap: sourceMap_,
+            platform: 'browser',
+            target: 'es6',
+            external: ['../../../node_modules/*'], // TODO
+            outfile: outputPath_
+        })
+    
+}
+
+export async function internalNodeCallEsBuild_$(self_, mainJsFile_, outputPath_, minify_, $task) {
+
+        const esbuild = import$0
+        return await esbuild.build({
+            entryPoints: [mainJsFile_],
+            bundle: true,
+            minify: minify_,
+            sourcemap: true,
+            platform: 'node',
+            target: 'es6',
+            external: ['../../../node_modules/*'], // TODO
+            outfile: outputPath_
+        })
+    
+}
+
+export async function internalListDirectory_$(path_, $task) {
+async function go_$(currentPath_, $task) {
+return (await ff_core_Stream.Stream_flatMap$((await ff_core_Path.Path_entries$(currentPath_, $task)), (async (file_, $task) => {
+if((await ff_core_Path.PathEntry_isDirectory$(file_, $task))) {
+return (await go_$((await ff_core_Path.PathEntry_path$(file_, $task)), $task))
+} else {
+return (await ff_core_List.List_toStream$(ff_core_List.Link((await ff_core_Path.PathEntry_path$(file_, $task)), ff_core_List.Empty()), false, $task))
+}
+}), $task))
+}
+return (await ff_core_Stream.Stream_toList$((await ff_core_Stream.Stream_map$((await go_$(path_, $task)), (async (file_, $task) => {
+return ff_core_Pair.Pair(("/" + (await ff_core_Path.Path_relativeTo$(file_, path_, $task))), (async ($task) => {
+return (await ff_core_Path.Path_readStream$(file_, $task))
+}))
+}), $task)), $task))
+}
+
+export async function internalPath_$(buildSystem_, absoluteOrRelative_, $task) {
+
+        return absoluteOrRelative_
+    
+}
+
+export async function internalCompile_$(buildSystem_, mainFile_, target_, $task) {
+
+        return await $firefly_compiler.buildViaBuildSystem_$(buildSystem_, buildSystem_.fireflyPath_, mainFile_, target_, $task)
+    
+}
+
+export async function internalMainPackagePair_$(buildSystem_, $task) {
+
+        return {first_: buildSystem_.mainPackagePair_.group_, second_: buildSystem_.mainPackagePair_.name_}
+    
+}
+
+export function BuildSystem_compileForBrowser(self_, mainFile_) {
+ff_core_BuildSystem.internalCompile_(self_, ff_core_BuildSystem.internalPath_(self_, mainFile_), "browser");
+const streams_ = ff_core_BuildSystem.internalListDirectory_(ff_core_BuildSystem.internalPath_(self_, ".firefly/output/browser"));
+const mainPackagePair_ = ff_core_BuildSystem.internalMainPackagePair_(self_);
+return ff_core_BuildSystem.BrowserCode(mainPackagePair_.first_, mainPackagePair_.second_, ff_core_BuildSystem.internalPath_(self_, mainFile_), ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(streams_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String)))
+}
+
+export function BuildSystem_buildMode(self_) {
+throw new Error('Function BuildSystem_buildMode is missing on this target in sync context.');
+}
+
+export function BuildSystem_setAssets(self_, assetSystem_) {
+throw new Error('Function BuildSystem_setAssets is missing on this target in sync context.');
+}
+
+export function BuildSystem_packageAssets(self_) {
+const streams_ = ff_core_BuildSystem.internalListDirectory_(ff_core_BuildSystem.internalPath_(self_, "."));
+return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(streams_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
+}
+
+export function BuildSystem_dependencyAssets(self_, user_, package_) {
+return ff_core_Core.panic_("dependencyAssets not yet implemented")
+}
+
+export function BuildSystem_arguments(self_) {
+throw new Error('Function BuildSystem_arguments is missing on this target in sync context.');
+}
+
+export function BuildSystem_mainTask(self_) {
+throw new Error('Function BuildSystem_mainTask is missing on this target in sync context.');
+}
+
+export async function BuildSystem_compileForBrowser$(self_, mainFile_, $task) {
+(await ff_core_BuildSystem.internalCompile_$(self_, (await ff_core_BuildSystem.internalPath_$(self_, mainFile_, $task)), "browser", $task));
+const streams_ = (await ff_core_BuildSystem.internalListDirectory_$((await ff_core_BuildSystem.internalPath_$(self_, ".firefly/output/browser", $task)), $task));
+const mainPackagePair_ = (await ff_core_BuildSystem.internalMainPackagePair_$(self_, $task));
+return ff_core_BuildSystem.BrowserCode(mainPackagePair_.first_, mainPackagePair_.second_, (await ff_core_BuildSystem.internalPath_$(self_, mainFile_, $task)), ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(streams_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String)))
+}
+
+export async function BuildSystem_buildMode$(self_, $task) {
+return !!self_.buildMode_
+}
+
+export async function BuildSystem_setAssets$(self_, assetSystem_, $task) {
+self_.assets_ = assetSystem_
+}
+
+export async function BuildSystem_packageAssets$(self_, $task) {
+const streams_ = (await ff_core_BuildSystem.internalListDirectory_$((await ff_core_BuildSystem.internalPath_$(self_, ".", $task)), $task));
+return ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(streams_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))
+}
+
+export async function BuildSystem_dependencyAssets$(self_, user_, package_, $task) {
+return ff_core_Core.panic_("dependencyAssets not yet implemented")
+}
+
+export async function BuildSystem_arguments$(self_, $task) {
+return self_.array_
+}
+
+export async function BuildSystem_mainTask$(self_, $task) {
+return self_.task_
+}
+
+export function BrowserCode_assets(self_) {
+return self_.assetSystem_
+}
+
+export function BrowserCode_bundle(self_, minify_ = true, sourceMap_ = false) {
+const prefix_ = ".firefly/output/browser";
+const mainJsBaseFile_ = (ff_core_Option.Option_grab(ff_core_String.String_removeLast(ff_core_Path.Path_absolute(self_.mainFile_), ".ff")) + ".mjs");
+const mainJsFile_ = ((((((prefix_ + "/") + self_.packageGroup_) + "/") + self_.packageName_) + "/") + mainJsBaseFile_);
+const file_ = (prefix_ + "/Main.bundle.js");
+ff_core_BuildSystem.internalCallEsBuild_(self_, mainJsFile_, file_, minify_, sourceMap_);
+const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Link(ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (() => {
+return ff_core_Path.Path_readStream(ff_core_Path.Path_path(self_.mainFile_, file_))
+})), (sourceMap_
+? ff_core_List.Link(ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (() => {
+return ff_core_Path.Path_readStream(ff_core_Path.Path_path(self_.mainFile_, (file_ + ".map")))
+})), ff_core_List.Empty())
+: ff_core_List.Empty())), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
+return ff_core_BuildSystem.BrowserBundle(assets_)
+}
+
+export async function BrowserCode_assets$(self_, $task) {
+return self_.assetSystem_
+}
+
+export async function BrowserCode_bundle$(self_, minify_ = true, sourceMap_ = false, $task) {
+const prefix_ = ".firefly/output/browser";
+const mainJsBaseFile_ = (ff_core_Option.Option_grab(ff_core_String.String_removeLast((await ff_core_Path.Path_absolute$(self_.mainFile_, $task)), ".ff")) + ".mjs");
+const mainJsFile_ = ((((((prefix_ + "/") + self_.packageGroup_) + "/") + self_.packageName_) + "/") + mainJsBaseFile_);
+const file_ = (prefix_ + "/Main.bundle.js");
+(await ff_core_BuildSystem.internalCallEsBuild_$(self_, mainJsFile_, file_, minify_, sourceMap_, $task));
+const assets_ = ff_core_AssetSystem.AssetSystem(ff_core_List.List_toMap(ff_core_List.Link(ff_core_Pair.Pair(ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)), (async ($task) => {
+return (await ff_core_Path.Path_readStream$((await ff_core_Path.Path_path$(self_.mainFile_, file_, $task)), $task))
+})), (sourceMap_
+? ff_core_List.Link(ff_core_Pair.Pair((ff_core_String.String_dropFirst(file_, ff_core_String.String_size(prefix_)) + ".map"), (async ($task) => {
+return (await ff_core_Path.Path_readStream$((await ff_core_Path.Path_path$(self_.mainFile_, (file_ + ".map"), $task)), $task))
+})), ff_core_List.Empty())
+: ff_core_List.Empty())), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String));
+return ff_core_BuildSystem.BrowserBundle(assets_)
+}
+
+export function BrowserBundle_assets(self_) {
+return self_.assetSystem_
+}
+
+export async function BrowserBundle_assets$(self_, $task) {
+return self_.assetSystem_
+}
+
+
+
+

package/output/js/ff/core/Channel.mjs

@@ -0,0 +1,268 @@
+
+
+import * as ff_core_Any from "../../ff/core/Any.mjs"
+
+import * as ff_core_Array from "../../ff/core/Array.mjs"
+
+import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
+
+import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
+
+import * as ff_core_Bool from "../../ff/core/Bool.mjs"
+
+import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
+
+import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
+
+import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
+
+import * as ff_core_Channel from "../../ff/core/Channel.mjs"
+
+import * as ff_core_Char from "../../ff/core/Char.mjs"
+
+import * as ff_core_Core from "../../ff/core/Core.mjs"
+
+import * as ff_core_Duration from "../../ff/core/Duration.mjs"
+
+import * as ff_core_Equal from "../../ff/core/Equal.mjs"
+
+import * as ff_core_Error from "../../ff/core/Error.mjs"
+
+import * as ff_core_FileHandle from "../../ff/core/FileHandle.mjs"
+
+import * as ff_core_Float from "../../ff/core/Float.mjs"
+
+import * as ff_core_HttpClient from "../../ff/core/HttpClient.mjs"
+
+import * as ff_core_Instant from "../../ff/core/Instant.mjs"
+
+import * as ff_core_Int from "../../ff/core/Int.mjs"
+
+import * as ff_core_IntMap from "../../ff/core/IntMap.mjs"
+
+import * as ff_core_JsSystem from "../../ff/core/JsSystem.mjs"
+
+import * as ff_core_JsValue from "../../ff/core/JsValue.mjs"
+
+import * as ff_core_List from "../../ff/core/List.mjs"
+
+import * as ff_core_Lock from "../../ff/core/Lock.mjs"
+
+import * as ff_core_Log from "../../ff/core/Log.mjs"
+
+import * as ff_core_Map from "../../ff/core/Map.mjs"
+
+import * as ff_core_NodeSystem from "../../ff/core/NodeSystem.mjs"
+
+import * as ff_core_Nothing from "../../ff/core/Nothing.mjs"
+
+import * as ff_core_Option from "../../ff/core/Option.mjs"
+
+import * as ff_core_Ordering from "../../ff/core/Ordering.mjs"
+
+import * as ff_core_Pair from "../../ff/core/Pair.mjs"
+
+import * as ff_core_Path from "../../ff/core/Path.mjs"
+
+import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
+
+import * as ff_core_Set from "../../ff/core/Set.mjs"
+
+import * as ff_core_Show from "../../ff/core/Show.mjs"
+
+import * as ff_core_Stack from "../../ff/core/Stack.mjs"
+
+import * as ff_core_Stream from "../../ff/core/Stream.mjs"
+
+import * as ff_core_String from "../../ff/core/String.mjs"
+
+import * as ff_core_StringMap from "../../ff/core/StringMap.mjs"
+
+import * as ff_core_Task from "../../ff/core/Task.mjs"
+
+import * as ff_core_Try from "../../ff/core/Try.mjs"
+
+import * as ff_core_Unit from "../../ff/core/Unit.mjs"
+
+// type Channel
+
+
+// type ChannelAction
+
+
+
+
+export function readOr_(channel_, body_) {
+throw new Error('Function readOr is missing on this target in sync context.');
+}
+
+export function writeOr_(channel_, message_, body_) {
+throw new Error('Function writeOr is missing on this target in sync context.');
+}
+
+export function internalRunChannelAction_(action_, mode_) {
+throw new Error('Function internalRunChannelAction is missing on this target in sync context.');
+}
+
+export async function readOr_$(channel_, body_, $task) {
+return {channel: channel_, body: body_, previous: null}
+}
+
+export async function writeOr_$(channel_, message_, body_, $task) {
+return {channel: channel_, body: body_, message: message_, previous: null}
+}
+
+export async function internalRunChannelAction_$(action_, mode_, $task) {
+
+        ff_core_Task.Task_throwIfAborted($task)
+
+        // Convert the linked actions into an array.
+        let actions = []
+        while(action_ != null) {
+            actions.push(action_)
+            action_ = action_.previous
+        }
+        actions.reverse()
+
+        // If any reads or writes can be done immediately, do the first one and return.
+        for(let action of actions) {
+            if(action.hasOwnProperty("message")) {
+                if(action.channel.readers.size != 0) {
+                    let reader = action.channel.readers.values().next().value
+                    action.channel.readers.delete(reader)
+                    reader.resolve(action.message)
+                    return await action.body($task)
+                } else if(action.channel.buffer.length < action.channel.capacity) {
+                    action.channel.buffer.push(action.message)
+                    return await action.body($task)
+                }
+            } else {
+                if(action.channel.buffer.length != 0) {
+                    return await action.body(action.channel.buffer.shift(), $task)
+                } else if(action.channel.writers.size != 0) {
+                    let writer = action.channel.writers.values().next().value
+                    action.channel.writers.delete(writer)
+                    writer.resolve()
+                    return await action.body(writer.message, $task)
+                }
+            }
+        }
+
+        // If there's an "immediately(body)" action, do that now.
+        if(mode_.value_ && mode_.value_.second_.value_ == null) return await mode_.value_.first_($task)
+
+        // Otherwise, start waiting for one of the readers or writers (or timeout(body), or cancellation) to happen.
+        let abort = null
+        let finish = null
+        let cleanups = []
+        function doCleanup() {
+            for(let cleanup of cleanups) cleanup()
+        }
+        let promise = new Promise((resolve, reject) => {
+            if(mode_.value_) finish = () => {doCleanup(); resolve(() => mode_.value_.first_($task))}
+            abort = () => {doCleanup(); reject($task.controller.signal.reason)}
+            for(let action of actions) {
+                if(action.hasOwnProperty("message")) {
+                    let writer = {
+                        resolve: () => {
+                            doCleanup()
+                            resolve(() => action.body($task))
+                        },
+                        message: action.message
+                    }
+                    cleanups.push(() => action.channel.writers.delete(writer))
+                    action.channel.writers.add(writer)
+                } else {
+                    let reader = {
+                        resolve: m => {
+                            doCleanup()
+                            resolve(() => action.body(m, $task))
+                        }
+                    }
+                    cleanups.push(() => action.channel.readers.delete(reader))
+                    action.channel.readers.add(reader)
+                }
+            }
+        })
+        let timeout = null
+        try {
+            $task.controller.signal.addEventListener('abort', abort)
+            if(finish != null) timeout = setTimeout(finish, mode_.value_.second_.value_ * 1000)
+            let body = await promise
+            if(timeout != null) { clearTimeout(timeout); timeout = null }
+            return await body()
+        } finally {
+            if(timeout != null) clearTimeout(timeout)
+            $task.controller.signal.removeEventListener('abort', abort)
+            if($task.controller.signal.aborted) $task.controller = new AbortController()
+        }
+    
+}
+
+export function Channel_read(self_) {
+return ff_core_Channel.ChannelAction_wait(ff_core_Channel.readOr_(self_, ((_w1) => {
+return _w1
+})))
+}
+
+export function Channel_write(self_, message_) {
+ff_core_Channel.ChannelAction_wait(ff_core_Channel.writeOr_(self_, message_, (() => {
+
+})))
+}
+
+export async function Channel_read$(self_, $task) {
+return (await ff_core_Channel.ChannelAction_wait$((await ff_core_Channel.readOr_$(self_, (async (_w1, $task) => {
+return _w1
+}), $task)), $task))
+}
+
+export async function Channel_write$(self_, message_, $task) {
+(await ff_core_Channel.ChannelAction_wait$((await ff_core_Channel.writeOr_$(self_, message_, (async ($task) => {
+
+}), $task)), $task))
+}
+
+export function ChannelAction_readOr(self_, channel_, body_) {
+throw new Error('Function ChannelAction_readOr is missing on this target in sync context.');
+}
+
+export function ChannelAction_writeOr(self_, channel_, message_, body_) {
+throw new Error('Function ChannelAction_writeOr is missing on this target in sync context.');
+}
+
+export function ChannelAction_wait(self_) {
+return ff_core_Channel.internalRunChannelAction_(self_, ff_core_Option.None())
+}
+
+export function ChannelAction_timeout(self_, duration_, body_) {
+return ff_core_Channel.internalRunChannelAction_(self_, ff_core_Option.Some(ff_core_Pair.Pair(body_, ff_core_Option.Some(duration_))))
+}
+
+export function ChannelAction_immediately(self_, body_) {
+return ff_core_Channel.internalRunChannelAction_(self_, ff_core_Option.Some(ff_core_Pair.Pair(body_, ff_core_Option.None())))
+}
+
+export async function ChannelAction_readOr$(self_, channel_, body_, $task) {
+return {channel: channel_, body: body_, previous: self_}
+}
+
+export async function ChannelAction_writeOr$(self_, channel_, message_, body_, $task) {
+return {channel: channel_, body: body_, message: message_, previous: self_}
+}
+
+export async function ChannelAction_wait$(self_, $task) {
+return (await ff_core_Channel.internalRunChannelAction_$(self_, ff_core_Option.None(), $task))
+}
+
+export async function ChannelAction_timeout$(self_, duration_, body_, $task) {
+return (await ff_core_Channel.internalRunChannelAction_$(self_, ff_core_Option.Some(ff_core_Pair.Pair(body_, ff_core_Option.Some(duration_))), $task))
+}
+
+export async function ChannelAction_immediately$(self_, body_, $task) {
+return (await ff_core_Channel.internalRunChannelAction_$(self_, ff_core_Option.Some(ff_core_Pair.Pair(body_, ff_core_Option.None())), $task))
+}
+
+
+
+