firefly-compiler 0.5.48 → 0.5.49

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"
@@ -135,6 +135,18 @@ export function Set_contains(self_, value_, ff_core_Ordering_Order$T) {
 return ff_core_Map.Map_contains(self_, value_, ff_core_Ordering_Order$T)
 }
 
+export function Set_first(self_, ff_core_Ordering_Order$T) {
+return ff_core_Option.Option_map(ff_core_Map.Map_first(self_, ff_core_Ordering_Order$T), ((_w1) => {
+return _w1.first_
+}))
+}
+
+export function Set_last(self_, ff_core_Ordering_Order$T) {
+return ff_core_Option.Option_map(ff_core_Map.Map_last(self_, ff_core_Ordering_Order$T), ((_w1) => {
+return _w1.first_
+}))
+}
+
 export function Set_lastBefore(self_, key_, ff_core_Ordering_Order$T) {
 return ff_core_Option.Option_map(ff_core_Map.Map_lastBefore(self_, key_, ff_core_Ordering_Order$T), ((_w1) => {
 return _w1.first_
@@ -212,6 +224,18 @@ export async function Set_contains$(self_, value_, ff_core_Ordering_Order$T, $ta
 return ff_core_Map.Map_contains(self_, value_, ff_core_Ordering_Order$T)
 }
 
+export async function Set_first$(self_, ff_core_Ordering_Order$T, $task) {
+return ff_core_Option.Option_map(ff_core_Map.Map_first(self_, ff_core_Ordering_Order$T), ((_w1) => {
+return _w1.first_
+}))
+}
+
+export async function Set_last$(self_, ff_core_Ordering_Order$T, $task) {
+return ff_core_Option.Option_map(ff_core_Map.Map_last(self_, ff_core_Ordering_Order$T), ((_w1) => {
+return _w1.first_
+}))
+}
+
 export async function Set_lastBefore$(self_, key_, ff_core_Ordering_Order$T, $task) {
 return ff_core_Option.Option_map(ff_core_Map.Map_lastBefore(self_, key_, ff_core_Ordering_Order$T), ((_w1) => {
 return _w1.first_

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"
@@ -148,10 +148,6 @@ export function Task_lock(self_) {
 return ff_core_Lock.Lock((void 0), 0, ff_core_Queue.new_())
 }
 
-export function Task_now(self_) {
-return (Date.now() * 0.001)
-}
-
 export function Task_elapsed(self_) {
 const now_ = (performance.now() * 0.001);
 return (now_ - self_.started_)
@@ -208,10 +204,6 @@ export async function Task_lock$(self_, $task) {
 return ff_core_Lock.Lock((void 0), 0, ff_core_Queue.new_())
 }
 
-export async function Task_now$(self_, $task) {
-return (Date.now() * 0.001)
-}
-
 export async function Task_elapsed$(self_, $task) {
 const now_ = (performance.now() * 0.001);
 return (now_ - self_.started_)

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

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

@@ -24,6 +24,8 @@ import * as ff_core_Core from "../../ff/core/Core.mjs"
 
 import * as ff_core_Crypto from "../../ff/core/Crypto.mjs"
 
+import * as ff_core_Date from "../../ff/core/Date.mjs"
+
 import * as ff_core_Duration from "../../ff/core/Duration.mjs"
 
 import * as ff_core_Equal from "../../ff/core/Equal.mjs"
@@ -36,8 +38,6 @@ 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"

package/package.json

@@ -4,7 +4,7 @@
     "description": "Firefly compiler",
     "author": "Firefly team",
     "license": "MIT",
-    "version": "0.5.48",
+    "version": "0.5.49",
     "repository": {
         "type": "git",
         "url": "https://github.com/Ahnfelt/firefly-boot"

package/postgresql/Pg.ff

@@ -185,22 +185,6 @@ extend self: PgStatement {
         self.PgStatement(parameters = self.parameters.add(name, p))
     }
 
-    withInstant(name: String, value: Instant): PgStatement {
-        function toJsDate(instant: Instant): JsValue {
-            Js->Date->(instant.since1970.seconds * 1000.0)
-        }
-        let p = toJsDate(value)
-        self.PgStatement(parameters = self.parameters.add(name, p))
-    }
-
-    withNullableInstant(name: String, value: Option[Instant]): PgStatement {
-        function toJsDate(instant: Instant): JsValue {
-            Js->Date->(instant.since1970.seconds * 1000.0)
-        }
-        let p = value.map(toJsDate).else {Js.null()}
-        self.PgStatement(parameters = self.parameters.add(name, p))
-    }
-
     withBuffer(name: String, value: Buffer): PgStatement {
         let p = Js.jsSystem().value(value)
         self.PgStatement(parameters = self.parameters.add(name, p))
@@ -251,22 +235,6 @@ extend self: PgStatement {
         self.PgStatement(parameters = self.parameters.add(name, p))
     }
 
-    withInstantArray(name: String, value: List[Instant]): PgStatement {
-        function toJsDate(instant: Instant): JsValue {
-            Js->Date->(instant.since1970.seconds * 1000.0)
-        }
-        let p = Js.jsSystem().value(value.map(toJsDate))
-        self.PgStatement(parameters = self.parameters.add(name, p))
-    }
-
-    withNullableInstantArray(name: String, value: Option[List[Instant]]): PgStatement {
-        function toJsDate(instant: Instant): JsValue {
-            Js->Date->(instant.since1970.seconds * 1000.0)
-        }
-        let p = value.map {_.map(toJsDate)}.map(Js.jsSystem().value).else {Js.null()}
-        self.PgStatement(parameters = self.parameters.add(name, p))
-    }
-
     withBufferArray(name: String, value: List[Buffer]): PgStatement {
         let p = Js.jsSystem().value(value)
         self.PgStatement(parameters = self.parameters.add(name, p))
@@ -326,10 +294,6 @@ extend self: PgRow {
         internalGet(self, name, lower) {"" + _.grabString()}
     }
 
-    getInstant(name: String, lower: Bool = True): Option[Instant] {
-        internalGet(self, name, lower) {Instant(Duration(_.call0("getTime").grabInt() * 0.001))}
-    }
-
     getBuffer(name: String, lower: Bool = True): Option[Buffer] {
         internalGet(self, name, lower) {_.grabBuffer()}
     }
@@ -350,10 +314,6 @@ extend self: PgRow {
         internalGet(self, name, lower) {_.grabArray().map {"" + _.grabString()}}
     }
 
-    getInstantArray(name: String, lower: Bool = True): Option[List[Instant]] {
-        internalGet(self, name, lower) {_.grabArray().map {Instant(Duration(_.call0("getTime").grabInt() * 0.001))}}
-    }
-
     getBufferArray(name: String, lower: Bool = True): Option[List[Buffer]] {
         internalGet(self, name, lower) {_.grabArray().map {_.grabBuffer()}}
     }

package/s3/S3.ff

@@ -8,7 +8,7 @@ put(
     body: Buffer
     headers: List[Pair[String, String]]
 ): Unit {
-    let now = system.mainTask().now()
+    let now = system.date()
     let amzDate = toIsoString(now)
     let contentHash = system.crypto().sha256(body).toHex()
     let host = bucket + ".s3.amazonaws.com"
@@ -78,9 +78,9 @@ makeS3AuthorizationHeader(
     algorithm + " Credential=" + accessKeyId + "/" + credentialScope + ",SignedHeaders=" + signedHeaders + ",Signature=" + signature
 }
 
-toIsoString(instant: Instant): String {
-    let d = Js->Date->(instant.since1970.seconds * 1000)
-    d->toISOString()->replaceAll(Js->RegExp->("[-:]|[.]...", "g"), "")?
+toIsoString(date: Date): String {
+    let rfc9557 = date.withTimeZone(Date.utcTimeZoneId).toRfc9557()
+    rfc9557.takeWhile {c => c != '.' && c != '['}.filter {c => c != '-' && c != ':'} + "Z"
 }
 
 encodeURIComponent(text: String): String {

package/vscode/package.json

@@ -4,7 +4,7 @@
     "description": "Firefly language support",
     "author": "Firefly team",
     "license": "MIT",
-    "version": "0.5.48",
+    "version": "0.5.49",
     "repository": {
         "type": "git",
         "url": "https://github.com/Ahnfelt/firefly-boot"

package/experimental/IfBug.ff

@@ -1,8 +0,0 @@
-nodeMain(system: NodeSystem) {
-    let r = if(42 == 1) {
-        if(42 == 11) {
-            Log.debug("11")
-        }
-        Log.debug("1")
-    }
-}

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

@@ -1,149 +0,0 @@
-
-
-import * as ff_core_Any from "../../ff/core/Any.mjs"
-
-import * as ff_core_Array from "../../ff/core/Array.mjs"
-
-import * as ff_core_AssetSystem from "../../ff/core/AssetSystem.mjs"
-
-import * as ff_core_Atomic from "../../ff/core/Atomic.mjs"
-
-import * as ff_core_Bool from "../../ff/core/Bool.mjs"
-
-import * as ff_core_BrowserSystem from "../../ff/core/BrowserSystem.mjs"
-
-import * as ff_core_Buffer from "../../ff/core/Buffer.mjs"
-
-import * as ff_core_BuildSystem from "../../ff/core/BuildSystem.mjs"
-
-import * as ff_core_Channel from "../../ff/core/Channel.mjs"
-
-import * as ff_core_Char from "../../ff/core/Char.mjs"
-
-import * as ff_core_Core from "../../ff/core/Core.mjs"
-
-import * as ff_core_Crypto from "../../ff/core/Crypto.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_Js from "../../ff/core/Js.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_Json from "../../ff/core/Json.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_Queue from "../../ff/core/Queue.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_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"
-
-// newtype Instant
-
-
-
-export function fromIso_(date_) {
-const zone_ = ((ff_core_String.String_endsWith(date_, "Z") || ff_core_String.String_contains(date_, "+")) || ff_core_String.String_contains(ff_core_String.String_dropWhile(date_, ((_w1) => {
-return (_w1 !== 84)
-})), "-"));
-if((((zone_ && ff_core_String.String_contains(ff_core_String.String_takeWhile(date_, ((_w1) => {
-return (_w1 !== 84)
-})), "-")) && ff_core_String.String_contains(date_, "T")) && ff_core_String.String_contains(date_, ":"))) {
-return ff_core_Option.Some(ff_core_Instant.internalParseDate_(date_))
-} else return ff_core_Option.None()
-}
-
-export function internalParseDate_(date_) {
-return (Date.parse(date_) * 0.001)
-}
-
-export async function fromIso_$(date_, $task) {
-const zone_ = ((ff_core_String.String_endsWith(date_, "Z") || ff_core_String.String_contains(date_, "+")) || ff_core_String.String_contains(ff_core_String.String_dropWhile(date_, ((_w1) => {
-return (_w1 !== 84)
-})), "-"));
-if((((zone_ && ff_core_String.String_contains(ff_core_String.String_takeWhile(date_, ((_w1) => {
-return (_w1 !== 84)
-})), "-")) && ff_core_String.String_contains(date_, "T")) && ff_core_String.String_contains(date_, ":"))) {
-return ff_core_Option.Some(ff_core_Instant.internalParseDate_(date_))
-} else return ff_core_Option.None()
-}
-
-export async function internalParseDate_$(date_, $task) {
-return (Date.parse(date_) * 0.001)
-}
-
-export function Instant_add(self_, duration_) {
-return (self_ + duration_)
-}
-
-export function Instant_toIso(self_) {
-return (new Date((self_ * 1000.0))).toISOString()
-}
-
-export async function Instant_add$(self_, duration_, $task) {
-return (self_ + duration_)
-}
-
-export async function Instant_toIso$(self_, $task) {
-return (new Date((self_ * 1000.0))).toISOString()
-}
-
-
-
-