firefly-compiler 0.4.18 → 0.4.19

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

@@ -78,8 +78,6 @@ 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"

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

@@ -78,8 +78,6 @@ 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"

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

@@ -80,8 +80,6 @@ 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"
@@ -142,10 +140,6 @@ export function Map_toList(self_, ff_core_Ordering_Order$K) {
 return ff_core_RbMap.RB_pairs(self_, ff_core_Ordering_Order$K)
 }
 
-export function Map_toArray(self_, ff_core_Ordering_Order$K) {
-return ff_core_List.List_toArray(ff_core_RbMap.RB_pairs(self_, ff_core_Ordering_Order$K))
-}
-
 export function Map_toStream(self_, cycle_ = false, ff_core_Ordering_Order$K) {
 return ff_core_RbMap.RB_toStream(self_, cycle_, ff_core_Ordering_Order$K)
 }
@@ -249,10 +243,6 @@ export async function Map_toList$(self_, ff_core_Ordering_Order$K, $task) {
 return ff_core_RbMap.RB_pairs(self_, ff_core_Ordering_Order$K)
 }
 
-export async function Map_toArray$(self_, ff_core_Ordering_Order$K, $task) {
-return ff_core_List.List_toArray(ff_core_RbMap.RB_pairs(self_, ff_core_Ordering_Order$K))
-}
-
 export async function Map_toStream$(self_, cycle_ = false, ff_core_Ordering_Order$K, $task) {
 return (await ff_core_RbMap.RB_toStream$(self_, cycle_, ff_core_Ordering_Order$K, $task))
 }
@@ -322,17 +312,17 @@ return (await ff_core_RbMap.RB_find$(self_, body_, ff_core_Ordering_Order$K, $ta
 
 export function Map_addToList(self_, key_, value_, ff_core_Ordering_Order$K) {
 return ff_core_Map.Map_updateOrInsert(self_, key_, ((_w1) => {
-return ff_core_List.Link(value_, _w1)
+return [value_, ..._w1]
 }), (() => {
-return ff_core_List.Link(value_, ff_core_List.Empty())
+return [value_]
 }), ff_core_Ordering_Order$K)
 }
 
 export async function Map_addToList$(self_, key_, value_, ff_core_Ordering_Order$K, $task) {
 return ff_core_Map.Map_updateOrInsert(self_, key_, ((_w1) => {
-return ff_core_List.Link(value_, _w1)
+return [value_, ..._w1]
 }), (() => {
-return ff_core_List.Link(value_, ff_core_List.Empty())
+return [value_]
 }), ff_core_Ordering_Order$K)
 }
 
@@ -341,14 +331,14 @@ export function Map_push(self_, key_, value_, ff_core_Ordering_Order$K) {
 const _1 = ff_core_Map.Map_get(self_, key_, ff_core_Ordering_Order$K);
 {
 if(_1.None) {
-return ff_core_Map.Map_add(self_, key_, ff_core_List.List_toStack(ff_core_List.Link(value_, ff_core_List.Empty())), ff_core_Ordering_Order$K)
+return ff_core_Map.Map_add(self_, key_, ff_core_List.List_toArray([value_]), ff_core_Ordering_Order$K)
 return
 }
 }
 {
 if(_1.Some) {
-const stack_ = _1.value_;
-ff_core_Stack.Stack_push(stack_, value_);
+const array_ = _1.value_;
+ff_core_Array.Array_push(array_, value_);
 return self_
 return
 }
@@ -361,14 +351,14 @@ export async function Map_push$(self_, key_, value_, ff_core_Ordering_Order$K, $
 const _1 = ff_core_Map.Map_get(self_, key_, ff_core_Ordering_Order$K);
 {
 if(_1.None) {
-return ff_core_Map.Map_add(self_, key_, ff_core_List.List_toStack(ff_core_List.Link(value_, ff_core_List.Empty())), ff_core_Ordering_Order$K)
+return ff_core_Map.Map_add(self_, key_, ff_core_List.List_toArray([value_]), ff_core_Ordering_Order$K)
 return
 }
 }
 {
 if(_1.Some) {
-const stack_ = _1.value_;
-ff_core_Stack.Stack_push(stack_, value_);
+const array_ = _1.value_;
+ff_core_Array.Array_push(array_, value_);
 return self_
 return
 }

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

@@ -82,8 +82,6 @@ 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"
@@ -130,13 +128,13 @@ export function NodeSystem_assets(self_) {
 const assetPkgSnapshotPath_ = ff_core_NodeSystem.NodeSystem_path(self_, "/snapshot/output/assets");
 if(ff_core_Path.Path_isDirectory(assetPkgSnapshotPath_)) {
 function streams_(path_) {
-return ff_core_Stream.Stream_flatMap(ff_core_Array.Array_toStream(ff_core_NodeSystem.internalListDirectoryWithoutOpendir_(self_, path_), false), ((file_) => {
+return ff_core_Stream.Stream_flatMap(ff_core_List.List_toStream(ff_core_NodeSystem.internalListDirectoryWithoutOpendir_(self_, path_), false), ((file_) => {
 if(ff_core_Path.Path_isDirectory(file_)) {
 return streams_(file_)
 } else {
-return ff_core_List.List_toStream(ff_core_List.Link(ff_core_Pair.Pair(("/" + ff_core_Path.Path_relativeTo(file_, assetPkgSnapshotPath_)), (() => {
+return ff_core_List.List_toStream([ff_core_Pair.Pair(("/" + ff_core_Path.Path_relativeTo(file_, assetPkgSnapshotPath_)), (() => {
 return ff_core_Path.Path_readStream(file_)
-})), ff_core_List.Empty()), false)
+}))], false)
 }
 }))
 }
@@ -218,13 +216,13 @@ export async function NodeSystem_assets$(self_, $task) {
 const assetPkgSnapshotPath_ = (await ff_core_NodeSystem.NodeSystem_path$(self_, "/snapshot/output/assets", $task));
 if((await ff_core_Path.Path_isDirectory$(assetPkgSnapshotPath_, $task))) {
 async function streams_$(path_, $task) {
-return (await ff_core_Stream.Stream_flatMap$((await ff_core_Array.Array_toStream$((await ff_core_NodeSystem.internalListDirectoryWithoutOpendir_$(self_, path_, $task)), false, $task)), (async (file_, $task) => {
+return (await ff_core_Stream.Stream_flatMap$((await ff_core_List.List_toStream$((await ff_core_NodeSystem.internalListDirectoryWithoutOpendir_$(self_, path_, $task)), false, $task)), (async (file_, $task) => {
 if((await ff_core_Path.Path_isDirectory$(file_, $task))) {
 return (await streams_$(file_, $task))
 } else {
-return (await ff_core_List.List_toStream$(ff_core_List.Link(ff_core_Pair.Pair(("/" + (await ff_core_Path.Path_relativeTo$(file_, assetPkgSnapshotPath_, $task))), (async ($task) => {
+return (await ff_core_List.List_toStream$([ff_core_Pair.Pair(("/" + (await ff_core_Path.Path_relativeTo$(file_, assetPkgSnapshotPath_, $task))), (async ($task) => {
 return (await ff_core_Path.Path_readStream$(file_, $task))
-})), ff_core_List.Empty()), false, $task))
+}))], false, $task))
 }
 }), $task))
 }

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

@@ -78,8 +78,6 @@ 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"

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

@@ -78,8 +78,6 @@ 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"
@@ -199,24 +197,20 @@ export function Option_toList(self_) {
 const _1 = self_;
 {
 if(_1.None) {
-return ff_core_List.Empty()
+return []
 return
 }
 }
 {
 if(_1.Some) {
 const v_ = _1.value_;
-return ff_core_List.Link(v_, ff_core_List.Empty())
+return [v_]
 return
 }
 }
 }
 }
 
-export function Option_toStack(self_) {
-return ff_core_List.List_toStack(ff_core_Option.Option_toList(self_))
-}
-
 export function Option_toArray(self_) {
 return ff_core_List.List_toArray(ff_core_Option.Option_toList(self_))
 }
@@ -460,24 +454,20 @@ export async function Option_toList$(self_, $task) {
 const _1 = self_;
 {
 if(_1.None) {
-return ff_core_List.Empty()
+return []
 return
 }
 }
 {
 if(_1.Some) {
 const v_ = _1.value_;
-return ff_core_List.Link(v_, ff_core_List.Empty())
+return [v_]
 return
 }
 }
 }
 }
 
-export async function Option_toStack$(self_, $task) {
-return ff_core_List.List_toStack(ff_core_Option.Option_toList(self_))
-}
-
 export async function Option_toArray$(self_, $task) {
 return ff_core_List.List_toArray(ff_core_Option.Option_toList(self_))
 }
@@ -947,14 +937,14 @@ serialization_.offset_ += 1;
 {
 const _1 = variantIndex_;
 {
-if(_1 == 0) {
+if(_1 === 0) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
 return ff_core_Option.None()
 return
 }
 }
 {
-if(_1 == 1) {
+if(_1 === 1) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
 return ff_core_Option.Some(ff_core_Serializable_Serializable$T.deserializeUsing_(serialization_))
 return
@@ -999,14 +989,14 @@ serialization_.offset_ += 1;
 {
 const _1 = variantIndex_;
 {
-if(_1 == 0) {
+if(_1 === 0) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
 return ff_core_Option.None()
 return
 }
 }
 {
-if(_1 == 1) {
+if(_1 === 1) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
 return ff_core_Option.Some(ff_core_Serializable_Serializable$T.deserializeUsing_(serialization_))
 return

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

@@ -78,8 +78,6 @@ 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"
@@ -565,105 +563,29 @@ return
 
 export function ff_core_Ordering_Order$ff_core_List_List(ff_core_Ordering_Order$T) { return {
 compare_(x_, y_) {
-{
-const x_a = x_;
-const y_a = y_;
-{
-if(x_a.Empty) {
-if(y_a.Empty) {
-return ff_core_Ordering.OrderingSame()
-return
-}
-}
-}
-{
-if(x_a.Empty) {
-return ff_core_Ordering.OrderingBefore()
-return
-}
-}
-{
-if(y_a.Empty) {
-return ff_core_Ordering.OrderingAfter()
-return
-}
-}
-{
-if(x_a.Link) {
-const a_ = x_a.head_;
-const as_ = x_a.tail_;
-if(y_a.Link) {
-const b_ = y_a.head_;
-const bs_ = y_a.tail_;
-{
-const _1 = ff_core_Ordering_Order$T.compare_(a_, b_);
-{
-if(_1.OrderingSame) {
-return ff_core_Ordering.ff_core_Ordering_Order$ff_core_List_List(ff_core_Ordering_Order$T).compare_(as_, bs_)
-return
-}
-}
-{
-const o_ = _1;
-return o_
-return
-}
-}
-return
-}
-}
-}
+let ordering_ = ff_core_Ordering.OrderingSame();
+let i_ = 0;
+while((((i_ < ff_core_List.List_size(x_)) && (i_ < ff_core_List.List_size(y_))) && (ordering_ === ff_core_Ordering.OrderingSame()))) {
+ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_List.List_grab(x_, i_), ff_core_List.List_grab(y_, i_));
+i_ += 1
+};
+if((ordering_ !== ff_core_Ordering.OrderingSame())) {
+return ff_core_Ordering.fromInt_((ff_core_List.List_size(x_) - ff_core_List.List_size(y_)))
+} else {
+return ordering_
 }
 },
 async compare_$(x_, y_, $task) {
-{
-const x_a = x_;
-const y_a = y_;
-{
-if(x_a.Empty) {
-if(y_a.Empty) {
-return ff_core_Ordering.OrderingSame()
-return
-}
-}
-}
-{
-if(x_a.Empty) {
-return ff_core_Ordering.OrderingBefore()
-return
-}
-}
-{
-if(y_a.Empty) {
-return ff_core_Ordering.OrderingAfter()
-return
-}
-}
-{
-if(x_a.Link) {
-const a_ = x_a.head_;
-const as_ = x_a.tail_;
-if(y_a.Link) {
-const b_ = y_a.head_;
-const bs_ = y_a.tail_;
-{
-const _1 = ff_core_Ordering_Order$T.compare_(a_, b_);
-{
-if(_1.OrderingSame) {
-return ff_core_Ordering.ff_core_Ordering_Order$ff_core_List_List(ff_core_Ordering_Order$T).compare_(as_, bs_)
-return
-}
-}
-{
-const o_ = _1;
-return o_
-return
-}
-}
-return
-}
-}
-}
+let ordering_ = ff_core_Ordering.OrderingSame();
+let i_ = 0;
+while((((i_ < ff_core_List.List_size(x_)) && (i_ < ff_core_List.List_size(y_))) && (ordering_ === ff_core_Ordering.OrderingSame()))) {
+ordering_ = ff_core_Ordering_Order$T.compare_(ff_core_List.List_grab(x_, i_), ff_core_List.List_grab(y_, i_));
+i_ += 1
+};
+if((ordering_ !== ff_core_Ordering.OrderingSame())) {
+return ff_core_Ordering.fromInt_((ff_core_List.List_size(x_) - ff_core_List.List_size(y_)))
+} else {
+return ordering_
 }
 }
 }}

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

@@ -78,8 +78,6 @@ 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"
@@ -167,17 +165,13 @@ return
 }
 
 export function Pair_toList(self_) {
-return ff_core_List.Link(self_.first_, ff_core_List.Link(self_.second_, ff_core_List.Empty()))
+return [self_.first_, self_.second_]
 }
 
 export function Pair_toArray(self_) {
 return ff_core_List.List_toArray(ff_core_Pair.Pair_toList(self_))
 }
 
-export function Pair_toStack(self_) {
-return ff_core_List.List_toStack(ff_core_Pair.Pair_toList(self_))
-}
-
 export async function Pair_mapBoth$(self_, body_, $task) {
 {
 const _1 = self_;
@@ -190,17 +184,13 @@ return
 }
 
 export async function Pair_toList$(self_, $task) {
-return ff_core_List.Link(self_.first_, ff_core_List.Link(self_.second_, ff_core_List.Empty()))
+return [self_.first_, self_.second_]
 }
 
 export async function Pair_toArray$(self_, $task) {
 return ff_core_List.List_toArray(ff_core_Pair.Pair_toList(self_))
 }
 
-export async function Pair_toStack$(self_, $task) {
-return ff_core_List.List_toStack(ff_core_Pair.Pair_toList(self_))
-}
-
 export function Pair_toSet(self_, ff_core_Ordering_Order$A) {
 return ff_core_List.List_toSet(ff_core_Pair.Pair_toList(self_), ff_core_Ordering_Order$A)
 }
@@ -210,11 +200,11 @@ return ff_core_List.List_toSet(ff_core_Pair.Pair_toList(self_), ff_core_Ordering
 }
 
 export function Pair_toMap(self_, ff_core_Ordering_Order$A) {
-return ff_core_List.List_toMap(ff_core_List.Link(self_, ff_core_List.Empty()), ff_core_Ordering_Order$A)
+return ff_core_List.List_toMap([self_], ff_core_Ordering_Order$A)
 }
 
 export async function Pair_toMap$(self_, ff_core_Ordering_Order$A, $task) {
-return ff_core_List.List_toMap(ff_core_List.Link(self_, ff_core_List.Empty()), ff_core_Ordering_Order$A)
+return ff_core_List.List_toMap([self_], ff_core_Ordering_Order$A)
 }
 
 export function ff_core_Any_HasAnyTag$ff_core_Pair_Pair(ff_core_Any_HasAnyTag$A, ff_core_Any_HasAnyTag$B) { return {
@@ -286,7 +276,7 @@ serialization_.offset_ += 1;
 {
 const _1 = variantIndex_;
 {
-if(_1 == 0) {
+if(_1 === 0) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 17), 0);
 return ff_core_Pair.Pair(ff_core_Serializable_Serializable$A.deserializeUsing_(serialization_), ff_core_Serializable_Serializable$B.deserializeUsing_(serialization_))
 return
@@ -320,7 +310,7 @@ serialization_.offset_ += 1;
 {
 const _1 = variantIndex_;
 {
-if(_1 == 0) {
+if(_1 === 0) {
 serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 17), 0);
 return ff_core_Pair.Pair(ff_core_Serializable_Serializable$A.deserializeUsing_(serialization_), ff_core_Serializable_Serializable$B.deserializeUsing_(serialization_))
 return

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

@@ -84,8 +84,6 @@ 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"
@@ -214,7 +212,7 @@ function go_(pathOption_, reversed_) {
 const pathOption_a = pathOption_;
 const reversed_a = reversed_;
 {
-if(reversed_a.Empty) {
+if(reversed_a.length === 0) {
 return true
 return
 }
@@ -222,9 +220,9 @@ return
 {
 if(pathOption_a.Some) {
 const path_ = pathOption_a.value_;
-if(reversed_a.Link) {
-const p_ = reversed_a.head_;
-const ps_ = reversed_a.tail_;
+if(reversed_a.length > 0) {
+const p_ = reversed_a[0];
+const ps_ = reversed_a.slice(1);
 return ((ff_core_Path.Path_base(path_) === p_) && go_(ff_core_Path.Path_parent(path_), ps_))
 return
 }
@@ -324,11 +322,11 @@ return ff_core_Stream.Stream_toBuffer(ff_core_Path.Path_readStream(self_))
 }
 
 export function Path_writeBuffer(self_, buffer_) {
-ff_core_Path.Path_writeStream(self_, ff_core_List.List_toStream(ff_core_List.Link(buffer_, ff_core_List.Empty()), false), false)
+ff_core_Path.Path_writeStream(self_, ff_core_List.List_toStream([buffer_], false), false)
 }
 
 export function Path_appendBuffer(self_, buffer_) {
-ff_core_Path.Path_appendStream(self_, ff_core_List.List_toStream(ff_core_List.Link(buffer_, ff_core_List.Empty()), false))
+ff_core_Path.Path_appendStream(self_, ff_core_List.List_toStream([buffer_], false))
 }
 
 export function Path_readStream(self_) {
@@ -478,7 +476,7 @@ async function go_$(pathOption_, reversed_, $task) {
 const pathOption_a = pathOption_;
 const reversed_a = reversed_;
 {
-if(reversed_a.Empty) {
+if(reversed_a.length === 0) {
 return true
 return
 }
@@ -486,9 +484,9 @@ return
 {
 if(pathOption_a.Some) {
 const path_ = pathOption_a.value_;
-if(reversed_a.Link) {
-const p_ = reversed_a.head_;
-const ps_ = reversed_a.tail_;
+if(reversed_a.length > 0) {
+const p_ = reversed_a[0];
+const ps_ = reversed_a.slice(1);
 return (((await ff_core_Path.Path_base$(path_, $task)) === p_) && (await go_$((await ff_core_Path.Path_parent$(path_, $task)), ps_, $task)))
 return
 }
@@ -651,11 +649,11 @@ return (await ff_core_Stream.Stream_toBuffer$((await ff_core_Path.Path_readStrea
 }
 
 export async function Path_writeBuffer$(self_, buffer_, $task) {
-(await ff_core_Path.Path_writeStream$(self_, (await ff_core_List.List_toStream$(ff_core_List.Link(buffer_, ff_core_List.Empty()), false, $task)), false, $task))
+(await ff_core_Path.Path_writeStream$(self_, (await ff_core_List.List_toStream$([buffer_], false, $task)), false, $task))
 }
 
 export async function Path_appendBuffer$(self_, buffer_, $task) {
-(await ff_core_Path.Path_appendStream$(self_, (await ff_core_List.List_toStream$(ff_core_List.Link(buffer_, ff_core_List.Empty()), false, $task)), $task))
+(await ff_core_Path.Path_appendStream$(self_, (await ff_core_List.List_toStream$([buffer_], false, $task)), $task))
 }
 
 export async function Path_readStream$(self_, $task) {