firefly-compiler 0.4.6 → 0.4.8

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

@@ -1,200 +1,218 @@
-
-
-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_Box from "../../ff/core/Box.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_SourceLocation from "../../ff/core/SourceLocation.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 Array
-
-
-
-
-export function empty_() {
+
+
+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_Box from "../../ff/core/Box.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_Random from "../../ff/core/Random.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_SourceLocation from "../../ff/core/SourceLocation.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"
+
+import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
+
+// type Array
+
+
+
+
+export function empty_() {
 
         return [];
-    
-}
-
-export function fill_(size_, value_) {
+    
+}
+
+export function fill_(size_, value_) {
 
         return new Array(size_).fill(value_);
-    
-}
-
-export function fillBy_(size_, body_) {
+    
+}
+
+export function fillBy_(size_, body_) {
 
         return Array.from({length: size_}, (_, i) => body_(i));
-    
-}
-
-export function range_(size_) {
+    
+}
+
+export function range_(size_) {
 
         return Array.from({length: size_}, (_, i) => i);
-    
-}
-
-export function internalSame_(left_, right_) {
-return left_ === right_
-}
-
-export async function empty_$($task) {
-throw new Error('Function empty is missing on this target in async context.');
-}
-
-export async function fill_$(size_, value_, $task) {
-throw new Error('Function fill is missing on this target in async context.');
-}
-
-export async function fillBy_$(size_, body_, $task) {
-throw new Error('Function fillBy is missing on this target in async context.');
-}
-
-export async function range_$(size_, $task) {
-throw new Error('Function range is missing on this target in async context.');
-}
-
-export async function internalSame_$(left_, right_, $task) {
-throw new Error('Function internalSame is missing on this target in async context.');
-}
-
-export function Array_addAll(self_, that_) {
-return self_.concat(that_)
-}
-
-export function Array_isEmpty(self_) {
-return self_.length === 0
-}
-
-export function Array_size(self_) {
-return self_.length
-}
-
-export function Array_get(self_, index_) {
+    
+}
+
+export function internalSame_(left_, right_) {
+return left_ === right_
+}
+
+export async function empty_$($task) {
+throw new Error('Function empty is missing on this target in async context.');
+}
+
+export async function fill_$(size_, value_, $task) {
+throw new Error('Function fill is missing on this target in async context.');
+}
+
+export async function fillBy_$(size_, body_, $task) {
+
+        const array = new Array(size_);
+        for(let i = 0; i < size_; i++) {
+            array[i] = await(body_(_i));
+        }
+        return array;
+    
+}
+
+export async function range_$(size_, $task) {
+throw new Error('Function range is missing on this target in async context.');
+}
+
+export async function internalSame_$(left_, right_, $task) {
+throw new Error('Function internalSame is missing on this target in async context.');
+}
+
+export function Array_addAll(self_, that_) {
+return self_.concat(that_)
+}
+
+export function Array_isEmpty(self_) {
+return self_.length === 0
+}
+
+export function Array_size(self_) {
+return self_.length
+}
+
+export function Array_get(self_, index_) {
 
             return index_ >= 0 && index_ < self_.length
                 ? ff_core_Option.Some(self_[index_])
                 : ff_core_Option.None()
-        
-}
-
-export function Array_grab(self_, index_) {
+        
+}
+
+export function Array_grab(self_, index_) {
 
             if(index_ < 0 || index_ >= self_.length) {
                 ff_core_Try.internalThrowGrabException_()
             }
             return self_[index_]
-        
-}
-
-export function Array_first(self_) {
-return ff_core_Array.Array_get(self_, 0)
-}
-
-export function Array_last(self_) {
-return ff_core_Array.Array_get(self_, (ff_core_Array.Array_size(self_) - 1))
-}
-
-export function Array_grabFirst(self_) {
-return ff_core_Array.Array_grab(self_, 0)
-}
-
-export function Array_grabLast(self_) {
-return ff_core_Array.Array_grab(self_, (ff_core_Array.Array_size(self_) - 1))
-}
-
-export function Array_dropFirst(self_, count_ = 1) {
-return self_.slice(count_)
-}
-
-export function Array_dropLast(self_, count_ = 1) {
-return self_.slice(0, self_.length - count_)
-}
-
-export function Array_update(self_, index_, body_) {
+        
+}
+
+export function Array_first(self_) {
+return ff_core_Array.Array_get(self_, 0)
+}
+
+export function Array_last(self_) {
+return ff_core_Array.Array_get(self_, (ff_core_Array.Array_size(self_) - 1))
+}
+
+export function Array_grabFirst(self_) {
+return ff_core_Array.Array_grab(self_, 0)
+}
+
+export function Array_grabLast(self_) {
+return ff_core_Array.Array_grab(self_, (ff_core_Array.Array_size(self_) - 1))
+}
+
+export function Array_takeFirst(self_, count_ = 1) {
+return self_.slice(0, count_)
+}
+
+export function Array_takeLast(self_, count_ = 1) {
+return self_.slice(-count_)
+}
+
+export function Array_dropFirst(self_, count_ = 1) {
+return self_.slice(count_)
+}
+
+export function Array_dropLast(self_, count_ = 1) {
+return self_.slice(0, self_.length - count_)
+}
+
+export function Array_update(self_, index_, body_) {
 
             if(index_ < 0 || index_ >= self_.length) {
                 ff_core_Try.internalThrowGrabException_()
@@ -202,154 +220,162 @@ export function Array_update(self_, index_, body_) {
             let result = self_.slice();
             result[index_] = body_(result[index_]);
             return result;
-        
-}
-
-export function Array_chunk(self_, chunkSize_) {
-const results_ = ff_core_Stack.make_();
-const result_ = ff_core_Stack.make_();
-let added_ = 0;
-ff_core_Array.Array_each(self_, ((item_) => {
-if((added_ < chunkSize_)) {
-added_ += 1
-} else {
-ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_));
-added_ = 1
-};
-ff_core_Stack.Stack_push(result_, item_)
-}));
-if((added_ !== 0)) {
-ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_))
-};
-return ff_core_Stack.Stack_drain(results_)
-}
-
-export function Array_toList(self_) {
+        
+}
+
+export function Array_chunk(self_, chunkSize_) {
+const results_ = ff_core_Stack.make_();
+const result_ = ff_core_Stack.make_();
+let added_ = 0;
+ff_core_Array.Array_each(self_, ((item_) => {
+if((added_ < chunkSize_)) {
+added_ += 1
+} else {
+ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_));
+added_ = 1
+};
+ff_core_Stack.Stack_push(result_, item_)
+}));
+if((added_ !== 0)) {
+ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_))
+};
+return ff_core_Stack.Stack_drain(results_)
+}
+
+export function Array_toList(self_) {
 
             let result = ff_core_List.Empty();
             for(let i = self_.length - 1; i >= 0; i--) {
                 result = ff_core_List.Link(self_[i], result);
             }
             return result;
-        
-}
-
-export function Array_toStream(self_, cycle_ = false) {
-let index_ = 0;
-return ff_core_Stream.make_((() => {
-if((index_ < ff_core_Array.Array_size(self_))) {
-return ff_core_Option.Some((function() {
-const result_ = ff_core_Array.Array_grab(self_, index_);
-index_ += 1;
-return result_
-})())
-} else if((cycle_ && (index_ !== 0))) {
-return ff_core_Option.Some((function() {
-const result_ = ff_core_Array.Array_grab(self_, 0);
-index_ = 1;
-return result_
-})())
-} else return ff_core_Option.None()
-}), (() => {
-
-}))
-}
-
-export function Array_toStack(self_) {
-return {array: self_.slice()}
-}
-
-export function Array_each(self_, body_) {
+        
+}
+
+export function Array_toStream(self_, cycle_ = false) {
+let index_ = 0;
+return ff_core_Stream.make_((() => {
+if((index_ < ff_core_Array.Array_size(self_))) {
+return ff_core_Option.Some((function() {
+const result_ = ff_core_Array.Array_grab(self_, index_);
+index_ += 1;
+return result_
+})())
+} else if((cycle_ && (index_ !== 0))) {
+return ff_core_Option.Some((function() {
+const result_ = ff_core_Array.Array_grab(self_, 0);
+index_ = 1;
+return result_
+})())
+} else return ff_core_Option.None()
+}), (() => {
+
+}))
+}
+
+export function Array_toStack(self_) {
+return {array: self_.slice()}
+}
+
+export function Array_each(self_, body_) {
 
             return self_.forEach(body_);
-        
-}
-
-export function Array_eachWhile(self_, body_) {
-for(const value of self_) if(!body_(value)) break
-}
-
-export function Array_all(self_, body_) {
-let result_ = true;
-ff_core_Array.Array_eachWhile(self_, ((x_) => {
-result_ = (result_ && body_(x_));
-return result_
-}));
-return result_
-}
-
-export function Array_any(self_, body_) {
-let result_ = false;
-ff_core_Array.Array_eachWhile(self_, ((x_) => {
-result_ = (result_ || body_(x_));
-return (!result_)
-}));
-return result_
-}
-
-export function Array_map(self_, body_) {
+        
+}
+
+export function Array_eachWhile(self_, body_) {
+for(const value of self_) if(!body_(value)) break
+}
+
+export function Array_all(self_, body_) {
+let result_ = true;
+ff_core_Array.Array_eachWhile(self_, ((x_) => {
+result_ = (result_ && body_(x_));
+return result_
+}));
+return result_
+}
+
+export function Array_any(self_, body_) {
+let result_ = false;
+ff_core_Array.Array_eachWhile(self_, ((x_) => {
+result_ = (result_ || body_(x_));
+return (!result_)
+}));
+return result_
+}
+
+export function Array_map(self_, body_) {
 
             return self_.map(body_)
-        
-}
-
-export function Array_sortBy(self_, body_, ff_core_Ordering_Order$S) {
-return ff_core_Array.Array_sortWith(self_, ((_w1, _w2) => {
-return ff_core_Ordering_Order$S.compare_(body_(_w1), body_(_w2))
-}))
-}
-
-export function Array_sortWith(self_, ordering_) {
-const stack_ = ff_core_Array.Array_toStack(self_);
-ff_core_Stack.Stack_sortWith(stack_, ordering_);
-return ff_core_Stack.Stack_drain(stack_)
-}
-
-export async function Array_addAll$(self_, that_, $task) {
-throw new Error('Function Array_addAll is missing on this target in async context.');
-}
-
-export async function Array_isEmpty$(self_, $task) {
-throw new Error('Function Array_isEmpty is missing on this target in async context.');
-}
-
-export async function Array_size$(self_, $task) {
-throw new Error('Function Array_size is missing on this target in async context.');
-}
-
-export async function Array_get$(self_, index_, $task) {
-throw new Error('Function Array_get is missing on this target in async context.');
-}
-
-export async function Array_grab$(self_, index_, $task) {
-throw new Error('Function Array_grab is missing on this target in async context.');
-}
-
-export async function Array_first$(self_, $task) {
-return ff_core_Array.Array_get(self_, 0)
-}
-
-export async function Array_last$(self_, $task) {
-return ff_core_Array.Array_get(self_, (ff_core_Array.Array_size(self_) - 1))
-}
-
-export async function Array_grabFirst$(self_, $task) {
-return ff_core_Array.Array_grab(self_, 0)
-}
-
-export async function Array_grabLast$(self_, $task) {
-return ff_core_Array.Array_grab(self_, (ff_core_Array.Array_size(self_) - 1))
-}
-
-export async function Array_dropFirst$(self_, count_ = 1, $task) {
-throw new Error('Function Array_dropFirst is missing on this target in async context.');
-}
-
-export async function Array_dropLast$(self_, count_ = 1, $task) {
-throw new Error('Function Array_dropLast is missing on this target in async context.');
-}
-
-export async function Array_update$(self_, index_, body_, $task) {
+        
+}
+
+export function Array_sortBy(self_, body_, ff_core_Ordering_Order$S) {
+return ff_core_Array.Array_sortWith(self_, ((_w1, _w2) => {
+return ff_core_Ordering_Order$S.compare_(body_(_w1), body_(_w2))
+}))
+}
+
+export function Array_sortWith(self_, ordering_) {
+const stack_ = ff_core_Array.Array_toStack(self_);
+ff_core_Stack.Stack_sortWith(stack_, ordering_);
+return ff_core_Stack.Stack_drain(stack_)
+}
+
+export async function Array_addAll$(self_, that_, $task) {
+throw new Error('Function Array_addAll is missing on this target in async context.');
+}
+
+export async function Array_isEmpty$(self_, $task) {
+throw new Error('Function Array_isEmpty is missing on this target in async context.');
+}
+
+export async function Array_size$(self_, $task) {
+throw new Error('Function Array_size is missing on this target in async context.');
+}
+
+export async function Array_get$(self_, index_, $task) {
+throw new Error('Function Array_get is missing on this target in async context.');
+}
+
+export async function Array_grab$(self_, index_, $task) {
+throw new Error('Function Array_grab is missing on this target in async context.');
+}
+
+export async function Array_first$(self_, $task) {
+return ff_core_Array.Array_get(self_, 0)
+}
+
+export async function Array_last$(self_, $task) {
+return ff_core_Array.Array_get(self_, (ff_core_Array.Array_size(self_) - 1))
+}
+
+export async function Array_grabFirst$(self_, $task) {
+return ff_core_Array.Array_grab(self_, 0)
+}
+
+export async function Array_grabLast$(self_, $task) {
+return ff_core_Array.Array_grab(self_, (ff_core_Array.Array_size(self_) - 1))
+}
+
+export async function Array_takeFirst$(self_, count_ = 1, $task) {
+throw new Error('Function Array_takeFirst is missing on this target in async context.');
+}
+
+export async function Array_takeLast$(self_, count_ = 1, $task) {
+throw new Error('Function Array_takeLast is missing on this target in async context.');
+}
+
+export async function Array_dropFirst$(self_, count_ = 1, $task) {
+throw new Error('Function Array_dropFirst is missing on this target in async context.');
+}
+
+export async function Array_dropLast$(self_, count_ = 1, $task) {
+throw new Error('Function Array_dropLast is missing on this target in async context.');
+}
+
+export async function Array_update$(self_, index_, body_, $task) {
 
             if(index_ < 0 || index_ >= self_.length) {
                 ff_core_Try.internalThrowGrabException_()
@@ -357,242 +383,242 @@ export async function Array_update$(self_, index_, body_, $task) {
             let result = self_.slice();
             result[index_] = await body_(result[index_], $task);
             return result;
-        
-}
-
-export async function Array_chunk$(self_, chunkSize_, $task) {
-const results_ = ff_core_Stack.make_();
-const result_ = ff_core_Stack.make_();
-let added_ = 0;
-ff_core_Array.Array_each(self_, ((item_) => {
-if((added_ < chunkSize_)) {
-added_ += 1
-} else {
-ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_));
-added_ = 1
-};
-ff_core_Stack.Stack_push(result_, item_)
-}));
-if((added_ !== 0)) {
-ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_))
-};
-return ff_core_Stack.Stack_drain(results_)
-}
-
-export async function Array_toList$(self_, $task) {
-throw new Error('Function Array_toList is missing on this target in async context.');
-}
-
-export async function Array_toStream$(self_, cycle_ = false, $task) {
-let index_ = 0;
-return (await ff_core_Stream.make_$((async ($task) => {
-if((index_ < ff_core_Array.Array_size(self_))) {
-return ff_core_Option.Some((await (async function() {
-const result_ = ff_core_Array.Array_grab(self_, index_);
-index_ += 1;
-return result_
-})()))
-} else if((cycle_ && (index_ !== 0))) {
-return ff_core_Option.Some((await (async function() {
-const result_ = ff_core_Array.Array_grab(self_, 0);
-index_ = 1;
-return result_
-})()))
-} else return ff_core_Option.None()
-}), (async ($task) => {
-
-}), $task))
-}
-
-export async function Array_toStack$(self_, $task) {
-throw new Error('Function Array_toStack is missing on this target in async context.');
-}
-
-export async function Array_each$(self_, body_, $task) {
+        
+}
+
+export async function Array_chunk$(self_, chunkSize_, $task) {
+const results_ = ff_core_Stack.make_();
+const result_ = ff_core_Stack.make_();
+let added_ = 0;
+ff_core_Array.Array_each(self_, ((item_) => {
+if((added_ < chunkSize_)) {
+added_ += 1
+} else {
+ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_));
+added_ = 1
+};
+ff_core_Stack.Stack_push(result_, item_)
+}));
+if((added_ !== 0)) {
+ff_core_Stack.Stack_push(results_, ff_core_Stack.Stack_drain(result_))
+};
+return ff_core_Stack.Stack_drain(results_)
+}
+
+export async function Array_toList$(self_, $task) {
+throw new Error('Function Array_toList is missing on this target in async context.');
+}
+
+export async function Array_toStream$(self_, cycle_ = false, $task) {
+let index_ = 0;
+return (await ff_core_Stream.make_$((async ($task) => {
+if((index_ < ff_core_Array.Array_size(self_))) {
+return ff_core_Option.Some((await (async function() {
+const result_ = ff_core_Array.Array_grab(self_, index_);
+index_ += 1;
+return result_
+})()))
+} else if((cycle_ && (index_ !== 0))) {
+return ff_core_Option.Some((await (async function() {
+const result_ = ff_core_Array.Array_grab(self_, 0);
+index_ = 1;
+return result_
+})()))
+} else return ff_core_Option.None()
+}), (async ($task) => {
+
+}), $task))
+}
+
+export async function Array_toStack$(self_, $task) {
+throw new Error('Function Array_toStack is missing on this target in async context.');
+}
+
+export async function Array_each$(self_, body_, $task) {
 
             for(let i = 0; i < self_.length; i++) {
                 await body_(self_[i], $task)
             }
-        
-}
-
-export async function Array_eachWhile$(self_, body_, $task) {
-for(const value of self_) if(!await body_(value, $task)) break
-}
-
-export async function Array_all$(self_, body_, $task) {
-let result_ = true;
-(await ff_core_Array.Array_eachWhile$(self_, (async (x_, $task) => {
-result_ = (result_ && (await body_(x_, $task)));
-return result_
-}), $task));
-return result_
-}
-
-export async function Array_any$(self_, body_, $task) {
-let result_ = false;
-(await ff_core_Array.Array_eachWhile$(self_, (async (x_, $task) => {
-result_ = (result_ || (await body_(x_, $task)));
-return (!result_)
-}), $task));
-return result_
-}
-
-export async function Array_map$(self_, body_, $task) {
+        
+}
+
+export async function Array_eachWhile$(self_, body_, $task) {
+for(const value of self_) if(!await body_(value, $task)) break
+}
+
+export async function Array_all$(self_, body_, $task) {
+let result_ = true;
+(await ff_core_Array.Array_eachWhile$(self_, (async (x_, $task) => {
+result_ = (result_ && (await body_(x_, $task)));
+return result_
+}), $task));
+return result_
+}
+
+export async function Array_any$(self_, body_, $task) {
+let result_ = false;
+(await ff_core_Array.Array_eachWhile$(self_, (async (x_, $task) => {
+result_ = (result_ || (await body_(x_, $task)));
+return (!result_)
+}), $task));
+return result_
+}
+
+export async function Array_map$(self_, body_, $task) {
 
             let result = [];
             for(let i = self_.length - 1; i >= 0; i--) {
                 result.push(await body_(self_[i], $task));
             }
             return result;
-        
-}
-
-export async function Array_sortBy$(self_, body_, ff_core_Ordering_Order$S, $task) {
-return (await ff_core_Array.Array_sortWith$(self_, (async (_w1, _w2, $task) => {
-return ff_core_Ordering_Order$S.compare_((await body_(_w1, $task)), (await body_(_w2, $task)))
-}), $task))
-}
-
-export async function Array_sortWith$(self_, ordering_, $task) {
-const stack_ = ff_core_Array.Array_toStack(self_);
-(await ff_core_Stack.Stack_sortWith$(stack_, ordering_, $task));
-return ff_core_Stack.Stack_drain(stack_)
-}
-
-export function Array_sort(self_, ff_core_Ordering_Order$T) {
-return ff_core_Array.Array_sortWith(self_, ((x_, y_) => {
-return ff_core_Ordering_Order$T.compare_(x_, y_)
-}))
-}
-
-export function Array_toSet(self_, ff_core_Ordering_Order$T) {
-return ff_core_List.List_toSet(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$T)
-}
-
-export async function Array_sort$(self_, ff_core_Ordering_Order$T, $task) {
-return ff_core_Array.Array_sortWith(self_, ((x_, y_) => {
-return ff_core_Ordering_Order$T.compare_(x_, y_)
-}))
-}
-
-export async function Array_toSet$(self_, ff_core_Ordering_Order$T, $task) {
-return ff_core_List.List_toSet(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$T)
-}
-
-export function Array_toMap(self_, ff_core_Ordering_Order$K) {
-return ff_core_List.List_toMap(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$K)
-}
-
-export async function Array_toMap$(self_, ff_core_Ordering_Order$K, $task) {
-return ff_core_List.List_toMap(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$K)
-}
-
-export function Array_join(self_, separator_ = "") {
-return self_.join(separator_)
-}
-
-export async function Array_join$(self_, separator_ = "", $task) {
-throw new Error('Function Array_join is missing on this target in async context.');
-}
-
-export function ff_core_Show_Show$ff_core_Array_Array(ff_core_Show_Show$T) { return {
-show_(value_) {
-const stack_ = ff_core_Stack.make_();
-ff_core_Stack.Stack_push(stack_, "[");
-ff_core_Array.Array_each(value_, ((x_) => {
-if((ff_core_Stack.Stack_size(stack_) > 1)) {
-ff_core_Stack.Stack_push(stack_, ", ")
-};
-ff_core_Stack.Stack_push(stack_, ff_core_Show_Show$T.show_(x_))
-}));
-ff_core_Stack.Stack_push(stack_, "].toArray()");
-return ff_core_Stack.Stack_join(stack_, "")
-},
-async show_$(value_, $task) {
-const stack_ = ff_core_Stack.make_();
-ff_core_Stack.Stack_push(stack_, "[");
-ff_core_Array.Array_each(value_, ((x_) => {
-if((ff_core_Stack.Stack_size(stack_) > 1)) {
-ff_core_Stack.Stack_push(stack_, ", ")
-};
-ff_core_Stack.Stack_push(stack_, ff_core_Show_Show$T.show_(x_))
-}));
-ff_core_Stack.Stack_push(stack_, "].toArray()");
-return ff_core_Stack.Stack_join(stack_, "")
-}
-}}
-
-export function ff_core_Equal_Equal$ff_core_Array_Array(ff_core_Equal_Equal$T) { return {
-equals_(x_, y_) {
-if(ff_core_Array.internalSame_(x_, y_)) {
-return true
-} else {
-if((ff_core_Array.Array_size(x_) !== ff_core_Array.Array_size(y_))) {
-return false
-} else {
-let i_ = (-1);
-return ff_core_Array.Array_all(x_, ((l_) => {
-i_ += 1;
-return ff_core_Equal_Equal$T.equals_(l_, ff_core_Array.Array_grab(y_, i_))
-}))
-}
-}
-},
-async equals_$(x_, y_, $task) {
-if(ff_core_Array.internalSame_(x_, y_)) {
-return true
-} else {
-if((ff_core_Array.Array_size(x_) !== ff_core_Array.Array_size(y_))) {
-return false
-} else {
-let i_ = (-1);
-return ff_core_Array.Array_all(x_, ((l_) => {
-i_ += 1;
-return ff_core_Equal_Equal$T.equals_(l_, ff_core_Array.Array_grab(y_, i_))
-}))
-}
-}
-}
-}}
-
-export function ff_core_Ordering_Order$ff_core_Array_Array(ff_core_Ordering_Order$T) { return {
-compare_(x_, y_) {
-if(ff_core_Array.internalSame_(x_, y_)) {
-return ff_core_Ordering.OrderingSame()
-} else {
-const size_ = ff_core_Int.Int_min(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_));
-let i_ = 0;
-let ordering_ = ff_core_Ordering.OrderingSame();
-while(((ordering_ === ff_core_Ordering.OrderingSame()) && (i_ < size_))) {
-ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_Array.Array_grab(x_, i_), ff_core_Array.Array_grab(y_, i_));
-i_ += 1
-};
-if((ordering_ !== ff_core_Ordering.OrderingSame())) {
-return ordering_
-} else {
-return ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int.compare_(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_))
-}
-}
-},
-async compare_$(x_, y_, $task) {
-if(ff_core_Array.internalSame_(x_, y_)) {
-return ff_core_Ordering.OrderingSame()
-} else {
-const size_ = ff_core_Int.Int_min(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_));
-let i_ = 0;
-let ordering_ = ff_core_Ordering.OrderingSame();
-while(((ordering_ === ff_core_Ordering.OrderingSame()) && (i_ < size_))) {
-ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_Array.Array_grab(x_, i_), ff_core_Array.Array_grab(y_, i_));
-i_ += 1
-};
-if((ordering_ !== ff_core_Ordering.OrderingSame())) {
-return ordering_
-} else {
-return ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int.compare_(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_))
-}
-}
-}
-}}
-
-
+        
+}
+
+export async function Array_sortBy$(self_, body_, ff_core_Ordering_Order$S, $task) {
+return (await ff_core_Array.Array_sortWith$(self_, (async (_w1, _w2, $task) => {
+return ff_core_Ordering_Order$S.compare_((await body_(_w1, $task)), (await body_(_w2, $task)))
+}), $task))
+}
+
+export async function Array_sortWith$(self_, ordering_, $task) {
+const stack_ = ff_core_Array.Array_toStack(self_);
+(await ff_core_Stack.Stack_sortWith$(stack_, ordering_, $task));
+return ff_core_Stack.Stack_drain(stack_)
+}
+
+export function Array_sort(self_, ff_core_Ordering_Order$T) {
+return ff_core_Array.Array_sortWith(self_, ((x_, y_) => {
+return ff_core_Ordering_Order$T.compare_(x_, y_)
+}))
+}
+
+export function Array_toSet(self_, ff_core_Ordering_Order$T) {
+return ff_core_List.List_toSet(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$T)
+}
+
+export async function Array_sort$(self_, ff_core_Ordering_Order$T, $task) {
+return ff_core_Array.Array_sortWith(self_, ((x_, y_) => {
+return ff_core_Ordering_Order$T.compare_(x_, y_)
+}))
+}
+
+export async function Array_toSet$(self_, ff_core_Ordering_Order$T, $task) {
+return ff_core_List.List_toSet(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$T)
+}
+
+export function Array_toMap(self_, ff_core_Ordering_Order$K) {
+return ff_core_List.List_toMap(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$K)
+}
+
+export async function Array_toMap$(self_, ff_core_Ordering_Order$K, $task) {
+return ff_core_List.List_toMap(ff_core_Array.Array_toList(self_), ff_core_Ordering_Order$K)
+}
+
+export function Array_join(self_, separator_ = "") {
+return self_.join(separator_)
+}
+
+export async function Array_join$(self_, separator_ = "", $task) {
+throw new Error('Function Array_join is missing on this target in async context.');
+}
+
+export function ff_core_Show_Show$ff_core_Array_Array(ff_core_Show_Show$T) { return {
+show_(value_) {
+const stack_ = ff_core_Stack.make_();
+ff_core_Stack.Stack_push(stack_, "[");
+ff_core_Array.Array_each(value_, ((x_) => {
+if((ff_core_Stack.Stack_size(stack_) > 1)) {
+ff_core_Stack.Stack_push(stack_, ", ")
+};
+ff_core_Stack.Stack_push(stack_, ff_core_Show_Show$T.show_(x_))
+}));
+ff_core_Stack.Stack_push(stack_, "].toArray()");
+return ff_core_Stack.Stack_join(stack_, "")
+},
+async show_$(value_, $task) {
+const stack_ = ff_core_Stack.make_();
+ff_core_Stack.Stack_push(stack_, "[");
+ff_core_Array.Array_each(value_, ((x_) => {
+if((ff_core_Stack.Stack_size(stack_) > 1)) {
+ff_core_Stack.Stack_push(stack_, ", ")
+};
+ff_core_Stack.Stack_push(stack_, ff_core_Show_Show$T.show_(x_))
+}));
+ff_core_Stack.Stack_push(stack_, "].toArray()");
+return ff_core_Stack.Stack_join(stack_, "")
+}
+}}
+
+export function ff_core_Equal_Equal$ff_core_Array_Array(ff_core_Equal_Equal$T) { return {
+equals_(x_, y_) {
+if(ff_core_Array.internalSame_(x_, y_)) {
+return true
+} else {
+if((ff_core_Array.Array_size(x_) !== ff_core_Array.Array_size(y_))) {
+return false
+} else {
+let i_ = (-1);
+return ff_core_Array.Array_all(x_, ((l_) => {
+i_ += 1;
+return ff_core_Equal_Equal$T.equals_(l_, ff_core_Array.Array_grab(y_, i_))
+}))
+}
+}
+},
+async equals_$(x_, y_, $task) {
+if(ff_core_Array.internalSame_(x_, y_)) {
+return true
+} else {
+if((ff_core_Array.Array_size(x_) !== ff_core_Array.Array_size(y_))) {
+return false
+} else {
+let i_ = (-1);
+return ff_core_Array.Array_all(x_, ((l_) => {
+i_ += 1;
+return ff_core_Equal_Equal$T.equals_(l_, ff_core_Array.Array_grab(y_, i_))
+}))
+}
+}
+}
+}}
+
+export function ff_core_Ordering_Order$ff_core_Array_Array(ff_core_Ordering_Order$T) { return {
+compare_(x_, y_) {
+if(ff_core_Array.internalSame_(x_, y_)) {
+return ff_core_Ordering.OrderingSame()
+} else {
+const size_ = ff_core_Int.Int_min(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_));
+let i_ = 0;
+let ordering_ = ff_core_Ordering.OrderingSame();
+while(((ordering_ === ff_core_Ordering.OrderingSame()) && (i_ < size_))) {
+ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_Array.Array_grab(x_, i_), ff_core_Array.Array_grab(y_, i_));
+i_ += 1
+};
+if((ordering_ !== ff_core_Ordering.OrderingSame())) {
+return ordering_
+} else {
+return ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int.compare_(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_))
+}
+}
+},
+async compare_$(x_, y_, $task) {
+if(ff_core_Array.internalSame_(x_, y_)) {
+return ff_core_Ordering.OrderingSame()
+} else {
+const size_ = ff_core_Int.Int_min(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_));
+let i_ = 0;
+let ordering_ = ff_core_Ordering.OrderingSame();
+while(((ordering_ === ff_core_Ordering.OrderingSame()) && (i_ < size_))) {
+ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_Array.Array_grab(x_, i_), ff_core_Array.Array_grab(y_, i_));
+i_ += 1
+};
+if((ordering_ !== ff_core_Ordering.OrderingSame())) {
+return ordering_
+} else {
+return ff_core_Ordering.ff_core_Ordering_Order$ff_core_Int_Int.compare_(ff_core_Array.Array_size(x_), ff_core_Array.Array_size(y_))
+}
+}
+}
+}}
+
+