firefly-compiler 0.4.79 → 0.4.80

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

@@ -121,13 +121,13 @@ return {redirect_, referrer_, integrity_, mode_, credentials_, cache_};
 
 
 export function internalCheck_(fetchResponse_) {
-
-        if(fetchResponse_.response === null) {
-            throw new Error("Response closed");
-        }
-        if(!fetchResponse_.statusChecked && !fetchResponse_.response.ok) {
-            throw new Error("Unchecked HTTP status code: " + fetchResponse_.response.status);
-        }
+
+        if(fetchResponse_.response === null) {
+            throw new Error("Response closed");
+        }
+        if(!fetchResponse_.statusChecked && !fetchResponse_.response.ok) {
+            throw new Error("Unchecked HTTP status code: " + fetchResponse_.response.status);
+        }
     
 }
 
@@ -172,28 +172,28 @@ return (await ff_core_HttpClient.HttpClient_fetch$(self_, "DELETE", url_, header
 }
 
 export async function HttpClient_fetch$(self_, method_, url_, headers_ = [], payload_ = ff_core_Option.None(), options_ = ff_core_HttpClient.FetchOptions(), body_, $task) {
-
-            const fetchResponse = {response: null, statusChecked: false};
-            try {
-                const options = {headers: {}, signal: $task.controller.signal};
-                options.method = method_;
-                headers_.forEach(pair => {options.headers[pair.first_] = pair.second_});
-                if(payload_.value_) options.body = payload_.value_;
-                if(options_.redirect_.RedirectError) options.redirect = "error";
-                else if(options_.redirect_.RedirectManual) options.redirect = "manual";
-                if(options_.referrer_.value_) options.referrer = options_.referrer_.value_;
-                if(options_.integrity_.value_) options.integrity = options_.integrity_.value_;
-                if(options_.mode_.value_) options.mode = options_.mode_.value_;
-                if(options_.credentials_.value_) options.credentials = options_.credentials_.value_;
-                if(options_.cache_.value_) options.cache = options_.cache_.value_;
-                fetchResponse.response = await self_.fetch(url_, options);
-                const result = await body_(fetchResponse, $task);
-                internalCheck_(fetchResponse);
-                return result;
-            } finally {
-                fetchResponse.response = null;
-                if($task.controller.signal.aborted) $task.controller = new AbortController()
-            }
+
+            const fetchResponse = {response: null, statusChecked: false};
+            try {
+                const options = {headers: {}, signal: $task.controller.signal};
+                options.method = method_;
+                headers_.forEach(pair => {options.headers[pair.first_] = pair.second_});
+                if(payload_.value_) options.body = payload_.value_;
+                if(options_.redirect_.RedirectError) options.redirect = "error";
+                else if(options_.redirect_.RedirectManual) options.redirect = "manual";
+                if(options_.referrer_.value_) options.referrer = options_.referrer_.value_;
+                if(options_.integrity_.value_) options.integrity = options_.integrity_.value_;
+                if(options_.mode_.value_) options.mode = options_.mode_.value_;
+                if(options_.credentials_.value_) options.credentials = options_.credentials_.value_;
+                if(options_.cache_.value_) options.cache = options_.cache_.value_;
+                fetchResponse.response = await self_.fetch(url_, options);
+                const result = await body_(fetchResponse, $task);
+                internalCheck_(fetchResponse);
+                return result;
+            } finally {
+                fetchResponse.response = null;
+                if($task.controller.signal.aborted) $task.controller = new AbortController()
+            }
         
 }
 
@@ -226,57 +226,57 @@ throw new Error('Function FetchResponse_readBuffer is missing on this target in
 }
 
 export async function FetchResponse_ok$(self_, $task) {
-
-            self_.statusChecked = true;
-            internalCheck_(self_);
-            return self_.response.ok;
+
+            self_.statusChecked = true;
+            internalCheck_(self_);
+            return self_.response.ok;
         
 }
 
 export async function FetchResponse_status$(self_, $task) {
-
-            self_.statusChecked = true;
-            internalCheck_(self_);
-            return self_.response.status;
+
+            self_.statusChecked = true;
+            internalCheck_(self_);
+            return self_.response.status;
         
 }
 
 export async function FetchResponse_statusText$(self_, $task) {
-
-            self_.statusChecked = true;
-            internalCheck_(self_);
-            return self_.response.statusText;
+
+            self_.statusChecked = true;
+            internalCheck_(self_);
+            return self_.response.statusText;
         
 }
 
 export async function FetchResponse_header$(self_, name_, $task) {
-
-            internalCheck_(self_);
-            const header = self_.response.headers.get(name_);
-            return header != null
-                ? ff_core_Option.Some(header)
-                : ff_core_Option.None();
+
+            internalCheck_(self_);
+            const header = self_.response.headers.get(name_);
+            return header != null
+                ? ff_core_Option.Some(header)
+                : ff_core_Option.None();
         
 }
 
 export async function FetchResponse_readText$(self_, $task) {
-
-            internalCheck_(self_);
-            return await self_.response.text();
+
+            internalCheck_(self_);
+            return await self_.response.text();
         
 }
 
 export async function FetchResponse_readJson$(self_, $task) {
-
-            internalCheck_(self_);
-            return await self_.response.json();
+
+            internalCheck_(self_);
+            return await self_.response.json();
         
 }
 
 export async function FetchResponse_readBuffer$(self_, $task) {
-
-            internalCheck_(self_);
-            return new DataView(await self_.response.arrayBuffer());
+
+            internalCheck_(self_);
+            return new DataView(await self_.response.arrayBuffer());
         
 }
 

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

@@ -96,71 +96,71 @@ import * as ff_core_Unit from "../../ff/core/Unit.mjs"
 
 
 export function read_(json_) {
-
-        try {
-            return ff_core_Option.Some(JSON.parse(json_));
-        } catch(e) {
-            return ff_core_Option.None();
-        }
+
+        try {
+            return ff_core_Option.Some(JSON.parse(json_));
+        } catch(e) {
+            return ff_core_Option.None();
+        }
     
 }
 
 export function string_(json_) {
-
-        return json_;
+
+        return json_;
     
 }
 
 export function int_(json_) {
-
-        return json_;
+
+        return json_;
     
 }
 
 export function float_(json_) {
-
-        return json_;
+
+        return json_;
     
 }
 
 export function bool_(json_) {
-
-        return json_;
+
+        return json_;
     
 }
 
 export function null_() {
-
-        return null;
+
+        return null;
     
 }
 
 export function array_(json_) {
-
-        return json_;
+
+        return json_;
     
 }
 
 export function object_() {
-
-        return {};
+
+        return {};
     
 }
 
 export function fields_(body_) {
-
-        const result = {};
-        body_((k, v) => {result[k] = v});
-        return result;
+
+        const result = {};
+        body_((k, v) => {result[k] = v});
+        return result;
     
 }
 
 export function internalWith_(self_, field_, value_) {
-
-        if(typeof self_ !== 'object' || self_ === null || Array.isArray(self_)) {
-            throw new Error('Not an object: ' + JSON.stringify(self_));
-        }
-        return {...self_, [field_]: value_};
+
+        if(typeof self_ !== 'object' || self_ === null || Array.isArray(self_)) {
+            throw new Error('Not an object: ' + JSON.stringify(self_));
+        }
+        return {...self_, [field_]: value_};
     
 }
 
@@ -173,69 +173,69 @@ for(const [key, value] of Object.entries(self_)) if(!body_(key, value)) break
 }
 
 export function internalEquals_(a_, b_) {
-
-        if(a_ === b_) {
-            return true;
-        } else if(Array.isArray(a_) || Array.isArray(b_)) {
-            if(!Array.isArray(a_) || !Array.isArray(b_)) return false;
-            if(a_.length !== b_.length) return false;
-            for(let i = 0; i < a_.length; i++) {
-                if(!internalEquals_(a_[i], b_[i])) return false;
-            }
-            return true;
-        } else if(typeof a_ === 'object' && typeof b_ === 'object' && a_ !== null && b_ !== null) {
-            const aKeys = Object.keys(a_);
-            const bKeys = Object.keys(b_);
-            if(aKeys.length !== bKeys.length) return false;
-            for(const key of aKeys) {
-                if(!Object.hasOwn(b_, key) || !internalEquals_(a_[key], b_[key])) return false;
-            }
-            return true;
-        } else {
-            return false;
-        }
+
+        if(a_ === b_) {
+            return true;
+        } else if(Array.isArray(a_) || Array.isArray(b_)) {
+            if(!Array.isArray(a_) || !Array.isArray(b_)) return false;
+            if(a_.length !== b_.length) return false;
+            for(let i = 0; i < a_.length; i++) {
+                if(!internalEquals_(a_[i], b_[i])) return false;
+            }
+            return true;
+        } else if(typeof a_ === 'object' && typeof b_ === 'object' && a_ !== null && b_ !== null) {
+            const aKeys = Object.keys(a_);
+            const bKeys = Object.keys(b_);
+            if(aKeys.length !== bKeys.length) return false;
+            for(const key of aKeys) {
+                if(!Object.hasOwn(b_, key) || !internalEquals_(a_[key], b_[key])) return false;
+            }
+            return true;
+        } else {
+            return false;
+        }
     
 }
 
 export function internalCompare_(a_, b_) {
-
-        if(a_ === b_) {
-            return 0;
-        } else if (a_ === null || b_ === null) {
-            return a_ === null ? -1 : 1;
-        } else if (typeof a_ === 'boolean' || typeof b_ === 'boolean') {
-            if(typeof b_ !== 'boolean') return -1;
-            if(typeof a_ !== 'boolean') return 1;
-            return a_ < b_ ? -1 : 1;
-        } else if (typeof a_ === 'number' || typeof b_ === 'number') {
-            if(typeof b_ !== 'number') return -1;
-            if(typeof a_ !== 'number') return 1;
-            if(isNaN(a_)) return isNaN(b_) ? 0 : -1;
-            if(isNaN(b_)) return 1;
-            return a_ < b_ ? -1 : 1;
-        } else if (typeof a_ === 'string' || typeof b_ === 'string') {
-            if(typeof b_ !== 'string') return -1;
-            if(typeof a_ !== 'string') return 1;
-            return a_.localeCompare(b_, 'en');
-        } else if(Array.isArray(a_) || Array.isArray(b_)) {
-            if(!Array.isArray(a_) || !Array.isArray(b_)) return a_ < b_ ? -1 : 1;
-            const length = Math.min(a_.length, b_.length);
-            for(let i = 0; i < length; i++) {
-                const cmp = internalCompare_(a_[i], b_[i]);
-                if(cmp !== 0) return cmp;
-            }
-            return a_.length - b_.length;
-        } else {
-            const aKeys = Object.keys(a_).sort();
-            const bKeys = Object.keys(b_).sort();
-            const keyResult = internalCompare_(aKeys, bKeys);
-            if(keyResult !== 0) return keyResult;
-            for(const key of aKeys) {
-                const result = internalCompare_(a_[key], b_[key]);
-                if(result !== 0) return result;
-            }
-            return 0;
-        }
+
+        if(a_ === b_) {
+            return 0;
+        } else if (a_ === null || b_ === null) {
+            return a_ === null ? -1 : 1;
+        } else if (typeof a_ === 'boolean' || typeof b_ === 'boolean') {
+            if(typeof b_ !== 'boolean') return -1;
+            if(typeof a_ !== 'boolean') return 1;
+            return a_ < b_ ? -1 : 1;
+        } else if (typeof a_ === 'number' || typeof b_ === 'number') {
+            if(typeof b_ !== 'number') return -1;
+            if(typeof a_ !== 'number') return 1;
+            if(isNaN(a_)) return isNaN(b_) ? 0 : -1;
+            if(isNaN(b_)) return 1;
+            return a_ < b_ ? -1 : 1;
+        } else if (typeof a_ === 'string' || typeof b_ === 'string') {
+            if(typeof b_ !== 'string') return -1;
+            if(typeof a_ !== 'string') return 1;
+            return a_.localeCompare(b_, 'en');
+        } else if(Array.isArray(a_) || Array.isArray(b_)) {
+            if(!Array.isArray(a_) || !Array.isArray(b_)) return a_ < b_ ? -1 : 1;
+            const length = Math.min(a_.length, b_.length);
+            for(let i = 0; i < length; i++) {
+                const cmp = internalCompare_(a_[i], b_[i]);
+                if(cmp !== 0) return cmp;
+            }
+            return a_.length - b_.length;
+        } else {
+            const aKeys = Object.keys(a_).sort();
+            const bKeys = Object.keys(b_).sort();
+            const keyResult = internalCompare_(aKeys, bKeys);
+            if(keyResult !== 0) return keyResult;
+            for(const key of aKeys) {
+                const result = internalCompare_(a_[key], b_[key]);
+                if(result !== 0) return result;
+            }
+            return 0;
+        }
     
 }
 
@@ -272,10 +272,10 @@ throw new Error('Function object is missing on this target in async context.');
 }
 
 export async function fields_$(body_, $task) {
-
-        const result = {};
-        await body_((k, v) => {result[k] = v}, $task);
-        return result;
+
+        const result = {};
+        await body_((k, v) => {result[k] = v}, $task);
+        return result;
     
 }
 
@@ -300,8 +300,8 @@ throw new Error('Function internalCompare is missing on this target in async con
 }
 
 export function Json_write(self_, indentation_ = ff_core_Option.None()) {
-
-            return JSON.stringify(self_, null, indentation_.value_);
+
+            return JSON.stringify(self_, null, indentation_.value_);
         
 }
 
@@ -310,50 +310,50 @@ return ff_core_Json.internalWith_(self_, field_, ff_core_Json_JsonLike$T.toJson_
 }
 
 export function Json_merge(self_, that_) {
-
-            if(typeof self_ !== 'object' || self_ === null || Array.isArray(self_)) {
-                throw new Error('Not an object: ' + JSON.stringify(self_));
-            }
-            if(typeof that_ !== 'object' || that_ === null || Array.isArray(that_)) {
-                throw new Error('Not an object: ' + JSON.stringify(that_));
-            }
-            return {...self_, ...that_};
+
+            if(typeof self_ !== 'object' || self_ === null || Array.isArray(self_)) {
+                throw new Error('Not an object: ' + JSON.stringify(self_));
+            }
+            if(typeof that_ !== 'object' || that_ === null || Array.isArray(that_)) {
+                throw new Error('Not an object: ' + JSON.stringify(that_));
+            }
+            return {...self_, ...that_};
         
 }
 
 export function Json_grabString(self_) {
-
-            if(typeof self_ !== 'string') throw new Error('Not a string: ' + JSON.stringify(self_));
-            return self_;
+
+            if(typeof self_ !== 'string') throw new Error('Not a string: ' + JSON.stringify(self_));
+            return self_;
         
 }
 
 export function Json_grabInt(self_) {
-
-            if(!Number.isSafeInteger(self_)) throw new Error('Not an int: ' + JSON.stringify(self_));
-            return Math.trunc(self_);
+
+            if(!Number.isSafeInteger(self_)) throw new Error('Not an int: ' + JSON.stringify(self_));
+            return Math.trunc(self_);
         
 }
 
 export function Json_grabFloat(self_) {
-
-            if(typeof self_ !== 'number') throw new Error('Not a float: ' + JSON.stringify(self_));
-            return self_;
+
+            if(typeof self_ !== 'number') throw new Error('Not a float: ' + JSON.stringify(self_));
+            return self_;
         
 }
 
 export function Json_grabBool(self_) {
-
-            if(self_ === true) return true;
-            if(self_ === false) return false;
-            throw new Error('Not a bool: ' + JSON.stringify(self_));
+
+            if(self_ === true) return true;
+            if(self_ === false) return false;
+            throw new Error('Not a bool: ' + JSON.stringify(self_));
         
 }
 
 export function Json_grabArray(self_) {
-
-            if(!Array.isArray(self_)) throw new Error('Not an array: ' + JSON.stringify(self_));
-            return self_;
+
+            if(!Array.isArray(self_)) throw new Error('Not an array: ' + JSON.stringify(self_));
+            return self_;
         
 }
 
@@ -402,83 +402,83 @@ return ff_core_Option.Some(ff_core_Json.Json_grabMap(self_))
 }
 
 export function Json_isString(self_) {
-
-            return typeof self_ === 'string';
+
+            return typeof self_ === 'string';
         
 }
 
 export function Json_isInt(self_) {
-
-            return Number.isSafeInteger(self_);
+
+            return Number.isSafeInteger(self_);
         
 }
 
 export function Json_isFloat(self_) {
-
-            return typeof self_ === 'number';
+
+            return typeof self_ === 'number';
         
 }
 
 export function Json_isBool(self_) {
-
-            return typeof self_ === 'boolean';
+
+            return typeof self_ === 'boolean';
         
 }
 
 export function Json_isArray(self_) {
-
-            return Array.isArray(self_);
+
+            return Array.isArray(self_);
         
 }
 
 export function Json_isObject(self_) {
-
-            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_);
+
+            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_);
         
 }
 
 export function Json_isNull(self_) {
-
-            return self_ === null;
+
+            return self_ === null;
         
 }
 
 export function Json_field(self_, key_) {
-
-            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_)
-                ? self_[key_] : null;
+
+            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_)
+                ? self_[key_] : null;
         
 }
 
 export function Json_index(self_, key_) {
-
-            return Array.isArray(self_) ? self_[key] ?? null : null;
+
+            return Array.isArray(self_) ? self_[key] ?? null : null;
         
 }
 
 export function Json_hasField(self_, key_) {
-
-            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_);
+
+            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_);
         
 }
 
 export function Json_getField(self_, key_) {
-
-            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_)
-                ? ff_core_Option.Some(self_[key_]) : ff_core_Option.None();
+
+            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_) && Object.hasOwn(self_, key_)
+                ? ff_core_Option.Some(self_[key_]) : ff_core_Option.None();
         
 }
 
 export function Json_getIndex(self_, key_) {
-
-            return Array.isArray(self_) ? ff_core_Option.Some(self_[key_] ?? null) : ff_core_Option.None();
+
+            return Array.isArray(self_) ? ff_core_Option.Some(self_[key_] ?? null) : ff_core_Option.None();
         
 }
 
 export function Json_getFields(self_) {
-
-            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_)
-                ? ff_core_Option.Some(Object.keys(self_)) : ff_core_Option.None();
+
+            return typeof self_ === 'object' && self_ !== null && !Array.isArray(self_)
+                ? ff_core_Option.Some(Object.keys(self_)) : ff_core_Option.None();
         
 }