firefly-compiler 0.4.79 → 0.4.81

package/output/js/ff/compiler/ModuleCache.mjs

@@ -313,12 +313,12 @@ export function ModuleCache_cacheEmittedModule(self_, packagePaths_, packagePair
 const path_ = ff_compiler_ModuleCache.modulePath_(packagePaths_, packagePair_, moduleName_);
 if((!ff_core_Map.Map_contains(self_.emittedModules_, ff_core_Path.Path_absolute(path_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))) {
 self_.emittedModules_ = ff_core_Map.Map_add(self_.emittedModules_, ff_core_Path.Path_absolute(path_), self_.version_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
-ff_core_Try.Try_grab(ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
+ff_core_Try.Try_catchAny(ff_core_Core.try_((() => {
 body_(path_)
 })), ((error_) => {
 self_.emittedModules_ = ff_core_Map.Map_remove(self_.emittedModules_, ff_core_Path.Path_absolute(path_), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
 ff_core_Error.Error_rethrow(error_)
-})))
+}))
 }
 }
 
@@ -486,12 +486,12 @@ export async function ModuleCache_cacheEmittedModule$(self_, packagePaths_, pack
 const path_ = (await ff_compiler_ModuleCache.modulePath_$(packagePaths_, packagePair_, moduleName_, $task));
 if((!ff_core_Map.Map_contains(self_.emittedModules_, (await ff_core_Path.Path_absolute$(path_, $task)), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String))) {
 self_.emittedModules_ = ff_core_Map.Map_add(self_.emittedModules_, (await ff_core_Path.Path_absolute$(path_, $task)), self_.version_, ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
-ff_core_Try.Try_grab((await ff_core_Try.Try_catchAny$((await ff_core_Core.try_$((async ($task) => {
+(await ff_core_Try.Try_catchAny$((await ff_core_Core.try_$((async ($task) => {
 (await body_(path_, $task))
 }), $task)), (async (error_, $task) => {
 self_.emittedModules_ = ff_core_Map.Map_remove(self_.emittedModules_, (await ff_core_Path.Path_absolute$(path_, $task)), ff_core_Ordering.ff_core_Ordering_Order$ff_core_String_String);
 ff_core_Error.Error_rethrow(error_)
-}), $task)))
+}), $task))
 }
 }
 

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

@@ -100,20 +100,20 @@ return {array: []}
 }
 
 export function fill_(size_, value_) {
-
-        return {array: new Array(size_).fill(value_)};
+
+        return {array: new Array(size_).fill(value_)};
     
 }
 
 export function fillBy_(size_, body_) {
-
-        return {array: Array.from({length: size_}, (_, i) => body_(i))};
+
+        return {array: Array.from({length: size_}, (_, i) => body_(i))};
     
 }
 
 export function range_(size_) {
-
-        return {array: Array.from({length: size_}, (_, i) => i)};
+
+        return {array: Array.from({length: size_}, (_, i) => i)};
     
 }
 
@@ -146,8 +146,8 @@ j_ += 1
 }
 
 export function internalGrab_(self_, index_) {
-
-        return index_ < 0 || index_ >= self_.array.length ? ff_core_Try.internalThrowGrabException_() : self_.array[index_];
+
+        return index_ < 0 || index_ >= self_.array.length ? ff_core_Try.internalThrowGrabException_() : self_.array[index_];
     
 }
 
@@ -208,16 +208,16 @@ return self_.array.length
 }
 
 export function Array_get(self_, index_) {
-
-            return index_ >= 0 && index_ < self_.array.length
-                ? ff_core_Option.Some(self_.array[index_])
-                : ff_core_Option.None()
+
+            return index_ >= 0 && index_ < self_.array.length
+                ? ff_core_Option.Some(self_.array[index_])
+                : ff_core_Option.None()
         
 }
 
 export function Array_grab(self_, index_) {
-
-            return self_.array[index_] ?? internalGrab_(self_, index_);
+
+            return self_.array[index_] ?? internalGrab_(self_, index_);
         
 }
 
@@ -230,18 +230,18 @@ return ff_core_Array.Array_grab(self_, (ff_core_Array.Array_size(self_) - 1))
 }
 
 export function Array_first(self_) {
-
-            return self_.array.length > 0
-                ? ff_core_Option.Some(self_.array[0])
-                : ff_core_Option.None()
+
+            return self_.array.length > 0
+                ? ff_core_Option.Some(self_.array[0])
+                : ff_core_Option.None()
         
 }
 
 export function Array_last(self_) {
-
-            return self_.array.length > 0
-                ? ff_core_Option.Some(self_.array[self_.array.length - 1])
-                : ff_core_Option.None()
+
+            return self_.array.length > 0
+                ? ff_core_Option.Some(self_.array[self_.array.length - 1])
+                : ff_core_Option.None()
         
 }
 
@@ -258,70 +258,70 @@ self_.array.push(...value_)
 }
 
 export function Array_pop(self_) {
-
-            return self_.array.length > 0
-                ? ff_core_Option.Some(self_.array.pop())
-                : ff_core_Option.None()
+
+            return self_.array.length > 0
+                ? ff_core_Option.Some(self_.array.pop())
+                : ff_core_Option.None()
         
 }
 
 export function Array_set(self_, index_, value_) {
-
-            if(index_ < 0 || index_ > self_.array.length) {
-                ff_core_Try.internalThrowGrabException_()
-            }
-            self_.array[index_] = value_
+
+            if(index_ < 0 || index_ > self_.array.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            self_.array[index_] = value_
         
 }
 
 export function Array_modify(self_, index_, body_) {
-
-            if(index_ < 0 || index_ >= self_.array.length) {
-                ff_core_Try.internalThrowGrabException_()
-            }
-            self_.array[index_] = body_(self_.array[index_])
+
+            if(index_ < 0 || index_ >= self_.array.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            self_.array[index_] = body_(self_.array[index_])
         
 }
 
 export function Array_fill(self_, value_, start_ = 0, end_ = 9007199254740991) {
-
-            self_.array.fill(value_, start_, end_);
+
+            self_.array.fill(value_, start_, end_);
         
 }
 
 export function Array_copy(self_, target_, start_, end_) {
-
-            self_.array.copyWithin(target_, start_, end_);
+
+            self_.array.copyWithin(target_, start_, end_);
         
 }
 
 export function Array_delete(self_, start_, deleteCount_) {
-
-            self_.array.splice(start_, deleteCount_);
+
+            self_.array.splice(start_, deleteCount_);
         
 }
 
 export function Array_insert(self_, start_, value_, deleteCount_ = 0) {
-
-            self_.array.splice(start_, deleteCount_, value_);
+
+            self_.array.splice(start_, deleteCount_, value_);
         
 }
 
 export function Array_insertArray(self_, start_, value_, deleteCount_ = 0) {
-
-            self_.array.splice(start_, deleteCount_, ...value_.array);
+
+            self_.array.splice(start_, deleteCount_, ...value_.array);
         
 }
 
 export function Array_insertList(self_, start_, value_, deleteCount_ = 0) {
-
-            self_.array.splice(start_, deleteCount_, ...value_);
+
+            self_.array.splice(start_, deleteCount_, ...value_);
         
 }
 
 export function Array_each(self_, body_) {
-
-            return self_.array.forEach(body_);
+
+            return self_.array.forEach(body_);
         
 }
 
@@ -452,11 +452,11 @@ throw new Error('Function Array_set is missing on this target in async context.'
 }
 
 export async function Array_modify$(self_, index_, body_, $task) {
-
-            if(index_ < 0 || index_ >= self_.array.length) {
-                ff_core_Try.internalThrowGrabException_()
-            }
-            self_.array[index_] = await body_(self_.array[index_], $task)
+
+            if(index_ < 0 || index_ >= self_.array.length) {
+                ff_core_Try.internalThrowGrabException_()
+            }
+            self_.array[index_] = await body_(self_.array[index_], $task)
         
 }
 
@@ -485,10 +485,10 @@ throw new Error('Function Array_insertList is missing on this target in async co
 }
 
 export async function Array_each$(self_, body_, $task) {
-
-            for(let i = 0; i < self_.array.length; i++) {
-                await body_(self_.array[i], $task)
-            }
+
+            for(let i = 0; i < self_.array.length; i++) {
+                await body_(self_.array[i], $task)
+            }
         
 }
 

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

@@ -96,8 +96,8 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
 
 export function new_(value_) {
-
-        return {value: value_}
+
+        return {value: value_}
     
 }
 
@@ -106,68 +106,68 @@ throw new Error('Function new is missing on this target in async context.');
 }
 
 export function Atomic_modify(self_, body_) {
-
-            return self_.value = body_(self_.value)
+
+            return self_.value = body_(self_.value)
         
 }
 
 export function Atomic_getAndModify(self_, body_) {
-
-            const currentValue = self_.value
-            self_.value = body_(currentValue)
-            return currentValue
+
+            const currentValue = self_.value
+            self_.value = body_(currentValue)
+            return currentValue
         
 }
 
 export function Atomic_get(self_) {
-
-            return self_.value
+
+            return self_.value
         
 }
 
 export function Atomic_set(self_, value_) {
-
-            self_.value = value
+
+            self_.value = value
         
 }
 
 export function Atomic_getAndSet(self_, newValue_) {
-
-            const currentValue = self_.value
-            self_.value = newValue
-            return currentValue
+
+            const currentValue = self_.value
+            self_.value = newValue
+            return currentValue
         
 }
 
 export function Atomic_compareAndSet(self_, currentValue_, newValue_) {
-
-            if(self_.value !== currentValue) return false
-            self_.value = newValue
-            return true
+
+            if(self_.value !== currentValue) return false
+            self_.value = newValue
+            return true
         
 }
 
 export async function Atomic_modify$(self_, body_, $task) {
-
-            let currentValue, newValue
-            do {
-                currentValue = self_.value
-                newValue = await body_(currentValue)
-            } while(currentValue !== self_.value)
-            self_.value = newValue
-            return newValue
+
+            let currentValue, newValue
+            do {
+                currentValue = self_.value
+                newValue = await body_(currentValue)
+            } while(currentValue !== self_.value)
+            self_.value = newValue
+            return newValue
         
 }
 
 export async function Atomic_getAndModify$(self_, body_, $task) {
-
-            let currentValue, newValue
-            do {
-                currentValue = self_.value
-                newValue = await body_(currentValue)
-            } while(currentValue !== self_.value)
-            self_.value = newValue
-            return currentValue
+
+            let currentValue, newValue
+            do {
+                currentValue = self_.value
+                newValue = await body_(currentValue)
+            } while(currentValue !== self_.value)
+            self_.value = newValue
+            return currentValue
         
 }
 

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

@@ -148,29 +148,29 @@ return typeof globalThis !== 'undefined' ? globalThis : window
 }
 
 export async function BrowserSystem_url$(self_, $task) {
-
-            return location.href;
+
+            return location.href;
         
 }
 
 export async function BrowserSystem_urlPath$(self_, $task) {
-
-            return location.pathname;
+
+            return location.pathname;
         
 }
 
 export async function BrowserSystem_urlQuery$(self_, name_, $task) {
-
-            const param = new URLSearchParams(location.search).get(name_)
-            if(param == null) return ff_core_Option.None();
-            return ff_core_Option.Some(param);
+
+            const param = new URLSearchParams(location.search).get(name_)
+            if(param == null) return ff_core_Option.None();
+            return ff_core_Option.Some(param);
         
 }
 
 export async function BrowserSystem_urlFragment$(self_, $task) {
-
-            if(!location.hash.startsWith('#')) return ff_core_Option.None();
-            return ff_core_Option.Some(location.hash.slice(1));
+
+            if(!location.hash.startsWith('#')) return ff_core_Option.None();
+            return ff_core_Option.Some(location.hash.slice(1));
         
 }
 

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

@@ -143,34 +143,34 @@ throw new Error('Function internalMainPackagePair is missing on this target in s
 }
 
 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_
-        })
+
+        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_
-        })
+
+        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_
+        })
     
 }
 
@@ -192,20 +192,20 @@ return (await ff_core_Path.Path_readStream$(file_, $task))
 }
 
 export async function internalPath_$(buildSystem_, absoluteOrRelative_, $task) {
-
-        return absoluteOrRelative_
+
+        return absoluteOrRelative_
     
 }
 
 export async function internalCompile_$(buildSystem_, mainFile_, target_, $task) {
-
-        return await $firefly_compiler.buildViaBuildSystem_$(buildSystem_, buildSystem_.fireflyPath_, 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_}
+
+        return {first_: buildSystem_.mainPackagePair_.group_, second_: buildSystem_.mainPackagePair_.name_}
     
 }
 

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

@@ -100,25 +100,25 @@ throw new Error('Function internalHashPassword is missing on this target in sync
 }
 
 export async function internalHashPassword_$(system_, salt_, password_, iterations_, $task) {
-
-        const keyMaterial = await crypto.subtle.importKey(
-            'raw',
-            password_,
-            {name: 'PBKDF2'},
-            false,
-            ['deriveBits']
-        );
-        const hashBuffer = await crypto.subtle.deriveBits(
-            {
-                name: 'PBKDF2',
-                salt: salt_,
-                iterations: iterations_,
-                hash: 'SHA-256'
-            },
-            keyMaterial,
-            256
-        );
-        return new DataView(hashBuffer);
+
+        const keyMaterial = await crypto.subtle.importKey(
+            'raw',
+            password_,
+            {name: 'PBKDF2'},
+            false,
+            ['deriveBits']
+        );
+        const hashBuffer = await crypto.subtle.deriveBits(
+            {
+                name: 'PBKDF2',
+                salt: salt_,
+                iterations: iterations_,
+                hash: 'SHA-256'
+            },
+            keyMaterial,
+            256
+        );
+        return new DataView(hashBuffer);
     
 }
 
@@ -186,8 +186,8 @@ return (v_ === 0)
 }
 
 export async function Crypto_randomUuid$(self_, $task) {
-
-            return self_.randomUUID();
+
+            return self_.randomUUID();
         
 }
 
@@ -198,33 +198,33 @@ return buffer_
 }
 
 export async function Crypto_randomizeBuffer$(self_, buffer_, $task) {
-
-            self_.getRandomValues(new Uint8Array(buffer_.buffer, buffer_.byteOffset, buffer_.byteLength));
+
+            self_.getRandomValues(new Uint8Array(buffer_.buffer, buffer_.byteOffset, buffer_.byteLength));
         
 }
 
 export async function Crypto_hmacSha256$(self_, key_, buffer_, $task) {
-
-            const cryptoKey = await self_.subtle.importKey(
-                'raw',
-                key_,
-                {name: 'HMAC', hash: {name: 'SHA-256'}},
-                false, 
-                ['sign']
-            );
-            const signature = await self_.subtle.sign(
-                'HMAC', 
-                cryptoKey, 
-                buffer_
-            );
-            return new DataView(signature);
+
+            const cryptoKey = await self_.subtle.importKey(
+                'raw',
+                key_,
+                {name: 'HMAC', hash: {name: 'SHA-256'}},
+                false, 
+                ['sign']
+            );
+            const signature = await self_.subtle.sign(
+                'HMAC', 
+                cryptoKey, 
+                buffer_
+            );
+            return new DataView(signature);
         
 }
 
 export async function Crypto_sha256$(self_, buffer_, $task) {
-
-            let hash = await self_.subtle.digest('SHA-256', buffer_);
-            return new DataView(hash);
+
+            let hash = await self_.subtle.digest('SHA-256', buffer_);
+            return new DataView(hash);
         
 }
 

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

@@ -149,6 +149,18 @@ export function sqrt2_() {
     
 }
 
+export function nan_() {
+
+        return NaN;
+    
+}
+
+export function infinity_() {
+
+        return Infinity;
+    
+}
+
 export async function hypot_$(values_, $task) {
 throw new Error('Function hypot is missing on this target in async context.');
 }
@@ -185,6 +197,14 @@ export async function sqrt2_$($task) {
 throw new Error('Function sqrt2 is missing on this target in async context.');
 }
 
+export async function nan_$($task) {
+throw new Error('Function nan is missing on this target in async context.');
+}
+
+export async function infinity_$($task) {
+throw new Error('Function infinity is missing on this target in async context.');
+}
+
 export function Float_toInt(self_) {
 return Math.trunc(self_) || 0
 }
@@ -374,6 +394,24 @@ export function Float_tanh(self_) {
         
 }
 
+export function Float_isFinite(self_) {
+
+            return Number.isFinite(self_);
+        
+}
+
+export function Float_isNan(self_) {
+
+            return Number.isNaN(self_);
+        
+}
+
+export function Float_isSafeInteger(self_) {
+
+            return Number.isSafeInteger(self_);
+        
+}
+
 export async function Float_toInt$(self_, $task) {
 throw new Error('Function Float_toInt is missing on this target in async context.');
 }
@@ -519,6 +557,18 @@ export async function Float_tanh$(self_, $task) {
 throw new Error('Function Float_tanh is missing on this target in async context.');
 }
 
+export async function Float_isFinite$(self_, $task) {
+throw new Error('Function Float_isFinite is missing on this target in async context.');
+}
+
+export async function Float_isNan$(self_, $task) {
+throw new Error('Function Float_isNan is missing on this target in async context.');
+}
+
+export async function Float_isSafeInteger$(self_, $task) {
+throw new Error('Function Float_isSafeInteger is missing on this target in async context.');
+}
+
 export const ff_core_Any_HasAnyTag$ff_core_Float_Float = {
 anyTag_() {
 return ff_core_Any.internalAnyTag_((("ff:core/Float.Float" + "[") + "]"))