firefly-compiler 0.4.16 → 0.4.17

package/compiler/Compiler.ff

@@ -107,7 +107,6 @@ coreImports: List[DImport] =
         "Task"
         "Try"
         "Unit"
-        "WebSocket"
     ].map {moduleName =>
         DImport(
             at = Location("<prelude>", 1, 1)

package/compiler/Deriver.ff

@@ -73,10 +73,10 @@ extend self: Deriver {
             self.makeMethodCall(at, self.makeSimpleCall(at, "ff:core/Any.anyTag", [], [_]), "show", [])
         }
         let strings =
-            [EString(at, "\"[\""), ...typeArgumentStrings.insertBetween([EString(at, "\",\"")]), EString(at, "\"]\"")]
+            [EString(at, "\"[\""), ...typeArgumentStrings.separate([EString(at, "\",\"")]), EString(at, "\"]\"")]
         let body = FireflyTarget(
             Lambda(at, noEffect, [MatchCase(
-                at = at,
+                at = at
                 patterns = []
                 guards = []
                 body = self.makeSimpleCall(at, "ff:core/Any.internalAnyTag", [
@@ -160,7 +160,7 @@ extend self: Deriver {
                             self.makeSimpleCall(at, "ff:core/Show.show", [
                                 EField(at, False, EVariable(at, "z"), field.name)
                             ])
-                        }.insertBetween([EString(at, "\", \"")])
+                        }.separate([EString(at, "\", \"")])
                         EString(at, "\")\"")
                     ]}
                     MatchCase(

package/core/Array.ff

@@ -73,7 +73,32 @@ extend self[T]: Array[T] {
     dropLast(count: Int = 1): Array[T]
         target js sync "return self_.slice(0, self_.length - count_)"
 
-    update(index: Int, body: T => T): Array[T]
+    pairs(): Array[Pair[Int, T]] {
+        mutable i = 0
+        self.map {x =>
+            let r = Pair(i, x)
+            i += 1
+            r
+        }
+    }
+    
+    slice(from: Int, until: Int): Array[T] {
+        self.dropFirst(from).takeFirst(until - from)
+    }
+    
+    foldLeft[R](initial: R, body: (R, T) => R): R {
+        mutable result = initial
+        self.each {x =>
+            result = body(result, x)
+        }
+        result
+    }    
+
+    update(index: Int, value: T): Array[T] {
+        self.modify(index) {_ => value}
+    }
+    
+    modify(index: Int, body: T => T): Array[T]
         target js sync """
             if(index_ < 0 || index_ >= self_.length) {
                 ff_core_Try.internalThrowGrabException_()
@@ -90,12 +115,28 @@ extend self[T]: Array[T] {
             result[index_] = await body_(result[index_], $task);
             return result;
         """
+        
+    zip[S](that: Array[S]): Array[Pair[T, S]] {
+        if(self.size() <= that.size()) {
+            mutable i = -1
+            self.map {x => 
+                i += 1
+                Pair(x, that.grab(i))
+            }
+        } else {
+            mutable i = -1
+            that.map {y => 
+                i += 1
+                Pair(self.grab(i), y)
+            }
+        }
+    }
 
     chunk(chunkSize: Int): Array[Array[T]] {
         let results = Stack.make()
         let result = Stack.make()
         mutable added = 0
-        self.each { item =>
+        self.each {item =>
             if(added < chunkSize) {
                 added += 1
             } else {
@@ -168,6 +209,33 @@ extend self[T]: Array[T] {
         }
         result
     }
+    
+    find(body: T => Bool): Option[T] {
+        mutable result = None
+        self.eachWhile {x =>
+            if(body(x)) {
+                result = Some(x)
+                False
+            } else {
+                True
+            }
+        }
+        result
+    }
+
+    filter(body: T => Bool): Array[T] {
+        let result = Stack.make()
+        self.each {x =>
+            if(body(x)) {
+                result.push(x)
+            }
+        }
+        result.drain()
+    }
+    
+    partition(body: T => Bool): Pair[Array[T], Array[T]] {
+        Pair(self.filter(body), self.filter {!body(_)})
+    }
 
     map[S](body: T => S): Array[S]
         target js sync """
@@ -188,6 +256,28 @@ extend self[T]: Array[T] {
         }
         results.drain()
     }
+    
+    collect[R](body: T => Option[R]): Array[R] {
+        mutable result = Stack.make()
+        self.each {x =>
+            body(x).each {result.push(_)}
+        }
+        result.drain()
+    }
+
+    collectFirst[R](body: T => Option[R]): Option[R] {
+        mutable result = None
+        self.eachWhile {x =>
+            body(x).{
+                | None =>
+                    True
+                | o =>
+                    result = o
+                    False
+            }
+        }
+        result
+    }
 
     sortBy[S: Order](body: T => S): Array[T] {
         self.sortWith {Ordering.compare(body(_), body(_))}
@@ -198,6 +288,23 @@ extend self[T]: Array[T] {
         stack.sortWith(ordering)
         stack.drain()
     }
+    
+    reverse(): Array[T] {
+        1.to(self.size()).toArray().map {i =>
+            self.grab(self.size() - i)
+        }
+    }
+    
+    separate(separator: Array[T]): Array[T] {
+        let stack = Stack.make()
+        self.pairs().each {| Pair(i, x) =>
+            if(i != 0) {
+                stack.pushArray(separator)
+            }
+            stack.push(x)
+        }
+        stack.drain()
+    }
 
 }
 
@@ -210,13 +317,58 @@ extend self[T: Order]: Array[T] {
     toSet(): Set[T] {
         self.toList().toSet()
     }
+    
+    distinct(): Array[T] {
+        mutable seen = [].toSet()
+        self.filter {
+            | item {!seen.contains(item)} =>
+                seen = seen.add(item)
+                True
+            | _ =>
+                False
+        }
+    }
+
+}
+
+extend self[T]: Array[Array[T]] {
+
+    flatten(): Array[T] {
+        let result = Stack.make()
+        self.each {xs =>
+            result.pushArray(xs)
+        }
+        result.drain()
+    }
 
 }
 
 extend self[K: Order, V]: Array[Pair[K, V]] {
+    
     toMap(): Map[K, V] {
         self.toList().toMap()
     }
+    
+    group(): Map[K, Array[V]] {
+        mutable map = Map.empty[K, Stack[V]]()
+        self.each {| Pair(k, v) => map = map.push(k, v)}
+        map.mapValues {_, v => v.drain()}
+    }
+    
+}
+
+extend self[K, V]: Array[Pair[K, V]] {
+
+    unzip(): Pair[Array[K], Array[V]] {
+        let first = Stack.make()
+        let second = Stack.make()
+        self.each {| Pair(x, y) =>
+            first.push(x)
+            second.push(y)
+        }
+        Pair(first.drain(), second.drain())
+    }
+
 }
 
 extend self: Array[String] {

package/core/BrowserSystem.ff

@@ -4,10 +4,6 @@ extend self: BrowserSystem {
 
     httpClient(): HttpClient
         target js async "return null"
-
-    webSocket(url: String): WebSocket {
-        WebSocket.internalOpenBrowserWebSocket(self, url)
-    }
     
     mainTask(): Task
         target js async "return self_.task_"

package/core/Int.ff

@@ -20,10 +20,10 @@ extend self: Int {
     bitXor(that: Int): Int
         target js sync "return self_ ^ that_;"
 
-    bitLeft(bits: Int = 1): Int
+    bitLeft(bits: Int): Int
         target js sync "return self_ << bits_;"
 
-    bitRight(bits: Int = 1, signed: Bool = True): Int
+    bitRight(bits: Int, signed: Bool = True): Int
         target js sync "return signed_ ? self_ >> bits_ : self_ >>> bits_;"
 
     to(inclusiveEnd: Int): List[Int] {

package/core/IntMap.ff

@@ -83,3 +83,14 @@ extend self[V]: IntMap[V] {
     }
         
 }
+
+extend self[V]: IntMap[Stack[V]] {
+
+    push(key: Int, value: V) {
+        self.get(key).{
+            | None => self.set(key, [value].toStack())
+            | Some(stack) => stack.push(value)
+        }
+    }
+
+}

package/core/List.ff

@@ -241,7 +241,7 @@ extend self[T]: List[T] {
         go(initial, self)
     }
 
-    updated(index: Int, value: T): List[T] {
+    update(index: Int, value: T): List[T] {
         function go(list: List[T], i: Int, result: List[T]): List[T] {
             list.{
                 | [] =>
@@ -348,7 +348,7 @@ extend self[T]: List[T] {
         )
     }
 
-    insertBetween(separator: List[T]): List[T] {
+    separate(separator: List[T]): List[T] {
         self.flatMap {e => [...separator, e]}.dropFirst(separator.size())
     }
 

package/core/Map.ff

@@ -107,6 +107,17 @@ extend self[K: Order, V]: Map[K, List[V]] {
 
 }
 
+extend self[K: Order, V]: Map[K, Stack[V]] {
+
+    push(key: K, value: V): Map[K, Stack[V]] {
+        self.get(key).{
+            | None => self.add(key, [value].toStack())
+            | Some(stack) => stack.push(value); self
+        }
+    }
+
+}
+
 instance Map[K: Equal: Order, V: Equal]: Equal {
     equals(x: Map[K, V], y: Map[K, V]): Bool {
         Equal.equals(x.pairs(), y.pairs())

package/core/StringMap.ff

@@ -83,3 +83,14 @@ extend self[V]: StringMap[V] {
     }
             
 }
+
+extend self[V]: StringMap[Stack[V]] {
+
+    push(key: String, value: V) {
+        self.get(key).{
+            | None => self.set(key, [value].toStack())
+            | Some(stack) => stack.push(value)
+        }
+    }
+
+}

package/guide/Main.ff

@@ -1,3 +1,4 @@
 nodeMain(system: NodeSystem) {
-    Json.object()
+    let text = system.httpClient().fetch("https://www.example.com/").readText()
+    system.writeLine(text)
 }

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

@@ -112,8 +112,6 @@ 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 PackageFiles
 export function PackageFiles(root_, packageFile_, files_) {
 return {root_, packageFile_, files_};

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

@@ -114,14 +114,12 @@ 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 Compiler
 export function Compiler(emitTarget_, task_, compilerModulePath_, jsOutputPath_, packagePaths_, singleFilePackages_, virtualFiles_, lspHook_, parsedModules_, resolvedModules_, derivedModules_, inferredModules_, emittedModules_, phaseDurations_, phaseDurationDelta_) {
 return {emitTarget_, task_, compilerModulePath_, jsOutputPath_, packagePaths_, singleFilePackages_, virtualFiles_, lspHook_, parsedModules_, resolvedModules_, derivedModules_, inferredModules_, emittedModules_, phaseDurations_, phaseDurationDelta_};
 }
 
-export const coreImports_ = ff_core_List.List_map(ff_core_List.Link("Any", ff_core_List.Link("Array", ff_core_List.Link("AssetSystem", ff_core_List.Link("Atomic", ff_core_List.Link("Bool", ff_core_List.Link("Box", ff_core_List.Link("BrowserSystem", ff_core_List.Link("Buffer", ff_core_List.Link("BuildSystem", ff_core_List.Link("Channel", ff_core_List.Link("Char", ff_core_List.Link("Core", ff_core_List.Link("Duration", ff_core_List.Link("Equal", ff_core_List.Link("Error", ff_core_List.Link("FileHandle", ff_core_List.Link("Float", ff_core_List.Link("HttpClient", ff_core_List.Link("Instant", ff_core_List.Link("Int", ff_core_List.Link("IntMap", ff_core_List.Link("Json", ff_core_List.Link("JsValue", ff_core_List.Link("JsSystem", ff_core_List.Link("List", ff_core_List.Link("Lock", ff_core_List.Link("Log", ff_core_List.Link("Map", ff_core_List.Link("NodeSystem", ff_core_List.Link("Nothing", ff_core_List.Link("Option", ff_core_List.Link("Ordering", ff_core_List.Link("Pair", ff_core_List.Link("Path", ff_core_List.Link("Random", ff_core_List.Link("Serializable", ff_core_List.Link("Set", ff_core_List.Link("Show", ff_core_List.Link("SourceLocation", ff_core_List.Link("Stack", ff_core_List.Link("Stream", ff_core_List.Link("String", ff_core_List.Link("StringMap", ff_core_List.Link("Task", ff_core_List.Link("Try", ff_core_List.Link("Unit", ff_core_List.Link("WebSocket", ff_core_List.Empty()))))))))))))))))))))))))))))))))))))))))))))))), ((moduleName_) => {
+export const coreImports_ = ff_core_List.List_map(ff_core_List.Link("Any", ff_core_List.Link("Array", ff_core_List.Link("AssetSystem", ff_core_List.Link("Atomic", ff_core_List.Link("Bool", ff_core_List.Link("Box", ff_core_List.Link("BrowserSystem", ff_core_List.Link("Buffer", ff_core_List.Link("BuildSystem", ff_core_List.Link("Channel", ff_core_List.Link("Char", ff_core_List.Link("Core", ff_core_List.Link("Duration", ff_core_List.Link("Equal", ff_core_List.Link("Error", ff_core_List.Link("FileHandle", ff_core_List.Link("Float", ff_core_List.Link("HttpClient", ff_core_List.Link("Instant", ff_core_List.Link("Int", ff_core_List.Link("IntMap", ff_core_List.Link("Json", ff_core_List.Link("JsValue", ff_core_List.Link("JsSystem", ff_core_List.Link("List", ff_core_List.Link("Lock", ff_core_List.Link("Log", ff_core_List.Link("Map", ff_core_List.Link("NodeSystem", ff_core_List.Link("Nothing", ff_core_List.Link("Option", ff_core_List.Link("Ordering", ff_core_List.Link("Pair", ff_core_List.Link("Path", ff_core_List.Link("Random", ff_core_List.Link("Serializable", ff_core_List.Link("Set", ff_core_List.Link("Show", ff_core_List.Link("SourceLocation", ff_core_List.Link("Stack", ff_core_List.Link("Stream", ff_core_List.Link("String", ff_core_List.Link("StringMap", ff_core_List.Link("Task", ff_core_List.Link("Try", ff_core_List.Link("Unit", ff_core_List.Empty())))))))))))))))))))))))))))))))))))))))))))))), ((moduleName_) => {
 return ff_compiler_Syntax.DImport(ff_compiler_Syntax.Location("<prelude>", 1, 1), moduleName_, ff_compiler_Syntax.PackagePair("ff", "core"), ff_core_List.Empty(), moduleName_)
 }));
 

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

@@ -104,8 +104,6 @@ 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 Dependencies
 export function Dependencies(workspace_, packages_, packagePaths_, singleFilePackages_) {
 return {workspace_, packages_, packagePaths_, singleFilePackages_};

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

@@ -96,8 +96,6 @@ 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 Deriver
 const Deriver$ = {Deriver: true};
 export function Deriver() {
@@ -159,7 +157,7 @@ const signature_ = ff_compiler_Syntax.Signature(at_, "anyTag", false, ff_core_Li
 const typeArgumentStrings_ = ff_core_List.List_map(typeArguments_, ((_w1) => {
 return ff_compiler_Deriver.Deriver_makeMethodCall(self_, at_, ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Any.anyTag", ff_core_List.Empty(), ff_core_List.Link(_w1, ff_core_List.Empty())), "show", ff_core_List.Empty())
 }));
-const strings_ = ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"[\""), ff_core_List.List_addAll(ff_core_List.List_insertBetween(typeArgumentStrings_, ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\",\""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"]\""), ff_core_List.Empty())));
+const strings_ = ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"[\""), ff_core_List.List_addAll(ff_core_List.List_separate(typeArgumentStrings_, ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\",\""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"]\""), ff_core_List.Empty())));
 const body_ = ff_compiler_Syntax.FireflyTarget(ff_compiler_Syntax.Lambda(at_, noEffect_, ff_core_List.Link(ff_compiler_Syntax.MatchCase(at_, ff_core_List.Empty(), ff_core_List.Empty(), ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Any.internalAnyTag", ff_core_List.Link(ff_core_List.List_foldLeft(strings_, ff_compiler_Syntax.EString(at_, (("\"" + selfTypeName_) + "\"")), ((a_, b_) => {
 return ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "+", ff_core_List.Link(a_, ff_core_List.Link(b_, ff_core_List.Empty())), ff_core_List.Empty())
 })), ff_core_List.Empty()), ff_core_List.Empty())), ff_core_List.Empty())));
@@ -208,7 +206,7 @@ const variantName_ = ((modulePrefix_ + ".") + variant_.name_);
 const fields_ = ff_core_List.List_addAll(declaration_.commonFields_, variant_.fields_);
 const strings_ = ((ff_core_List.List_size(fields_) === 0)
 ? ff_core_List.Empty()
-: ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"(\""), ff_core_List.List_addAll(ff_core_List.List_insertBetween(ff_core_List.List_map(fields_, ((field_) => {
+: ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"(\""), ff_core_List.List_addAll(ff_core_List.List_separate(ff_core_List.List_map(fields_, ((field_) => {
 return ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Show.show", ff_core_List.Link(ff_compiler_Syntax.EField(at_, false, ff_compiler_Syntax.EVariable(at_, "z"), field_.name_), ff_core_List.Empty()), ff_core_List.Empty())
 })), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\", \""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\")\""), ff_core_List.Empty()))));
 return ff_compiler_Syntax.MatchCase(at_, ff_core_List.Link(ff_compiler_Syntax.PVariantAs(at_, variantName_, at_, ff_core_Option.Some("z")), ff_core_List.Empty()), ff_core_List.Empty(), ff_core_List.List_foldLeft(strings_, ff_compiler_Syntax.EString(at_, (("\"" + variant_.name_) + "\"")), ((a_, b_) => {
@@ -600,7 +598,7 @@ const signature_ = ff_compiler_Syntax.Signature(at_, "anyTag", false, ff_core_Li
 const typeArgumentStrings_ = ff_core_List.List_map(typeArguments_, ((_w1) => {
 return ff_compiler_Deriver.Deriver_makeMethodCall(self_, at_, ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Any.anyTag", ff_core_List.Empty(), ff_core_List.Link(_w1, ff_core_List.Empty())), "show", ff_core_List.Empty())
 }));
-const strings_ = ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"[\""), ff_core_List.List_addAll(ff_core_List.List_insertBetween(typeArgumentStrings_, ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\",\""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"]\""), ff_core_List.Empty())));
+const strings_ = ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"[\""), ff_core_List.List_addAll(ff_core_List.List_separate(typeArgumentStrings_, ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\",\""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"]\""), ff_core_List.Empty())));
 const body_ = ff_compiler_Syntax.FireflyTarget(ff_compiler_Syntax.Lambda(at_, noEffect_, ff_core_List.Link(ff_compiler_Syntax.MatchCase(at_, ff_core_List.Empty(), ff_core_List.Empty(), ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Any.internalAnyTag", ff_core_List.Link(ff_core_List.List_foldLeft(strings_, ff_compiler_Syntax.EString(at_, (("\"" + selfTypeName_) + "\"")), ((a_, b_) => {
 return ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "+", ff_core_List.Link(a_, ff_core_List.Link(b_, ff_core_List.Empty())), ff_core_List.Empty())
 })), ff_core_List.Empty()), ff_core_List.Empty())), ff_core_List.Empty())));
@@ -649,7 +647,7 @@ const variantName_ = ((modulePrefix_ + ".") + variant_.name_);
 const fields_ = ff_core_List.List_addAll(declaration_.commonFields_, variant_.fields_);
 const strings_ = ((ff_core_List.List_size(fields_) === 0)
 ? ff_core_List.Empty()
-: ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"(\""), ff_core_List.List_addAll(ff_core_List.List_insertBetween(ff_core_List.List_map(fields_, ((field_) => {
+: ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\"(\""), ff_core_List.List_addAll(ff_core_List.List_separate(ff_core_List.List_map(fields_, ((field_) => {
 return ff_compiler_Deriver.Deriver_makeSimpleCall(self_, at_, "ff:core/Show.show", ff_core_List.Link(ff_compiler_Syntax.EField(at_, false, ff_compiler_Syntax.EVariable(at_, "z"), field_.name_), ff_core_List.Empty()), ff_core_List.Empty())
 })), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\", \""), ff_core_List.Empty())), ff_core_List.Link(ff_compiler_Syntax.EString(at_, "\")\""), ff_core_List.Empty()))));
 return ff_compiler_Syntax.MatchCase(at_, ff_core_List.Link(ff_compiler_Syntax.PVariantAs(at_, variantName_, at_, ff_core_Option.Some("z")), ff_core_List.Empty()), ff_core_List.Empty(), ff_core_List.List_foldLeft(strings_, ff_compiler_Syntax.EString(at_, (("\"" + variant_.name_) + "\"")), ((a_, b_) => {

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

@@ -100,8 +100,6 @@ 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 Dictionaries
 export function Dictionaries(instances_) {
 return {instances_};

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

@@ -96,8 +96,6 @@ 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 Environment
 export function Environment(modulePrefix_, symbols_, traits_, imports_, effect_, selfVariable_) {
 return {modulePrefix_, symbols_, traits_, imports_, effect_, selfVariable_};

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

@@ -104,8 +104,6 @@ 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 Inference
 export function Inference(unification_, missing_, lspHook_) {
 return {unification_, missing_, lspHook_};

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

@@ -100,8 +100,6 @@ 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 JsEmitter
 export function JsEmitter(otherModules_, jsImporter_, emitTarget_, isMainModule_, compilerModulePath_, packagePair_, moduleName_, emittingAsync_, tailCallUsed_) {
 return {otherModules_, jsImporter_, emitTarget_, isMainModule_, compilerModulePath_, packagePair_, moduleName_, emittingAsync_, tailCallUsed_};

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

@@ -96,8 +96,6 @@ 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 JsImporter
 export function JsImporter(imports_) {
 return {imports_};

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

@@ -100,8 +100,6 @@ 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 LspHook
 export function LspHook(at_, definedAt_, insertIdentifier_, trackSymbols_, stackOfResults_) {
 return {at_, definedAt_, insertIdentifier_, trackSymbols_, stackOfResults_};

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

@@ -116,8 +116,6 @@ 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 MainCommand
 const BootstrapCommand$ = {BootstrapCommand: true};
 export function BootstrapCommand() {

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

@@ -102,8 +102,6 @@ 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 Parser
 export function Parser(packagePair_, file_, tokens_, end_, targetIsNode_, lspHook_, lspEmittedArgumentHook_, offset_, nextUnificationVariableIndex_) {
 return {packagePair_, file_, tokens_, end_, targetIsNode_, lspHook_, lspEmittedArgumentHook_, offset_, nextUnificationVariableIndex_};

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

@@ -96,8 +96,6 @@ 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 PatternInfo
 export function PatternInfo(variant_, otherVariants_, fields_) {
 return {variant_, otherVariants_, fields_};

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

@@ -98,8 +98,6 @@ 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 Resolver
 export function Resolver(variables_, variableLocations_, variants_, types_, typeGenerics_, typeLocations_, asyncTypes_, typeParameters_, traits_, traitLocations_, state_, lspHook_) {
 return {variables_, variableLocations_, variants_, types_, typeGenerics_, typeLocations_, asyncTypes_, typeParameters_, traits_, traitLocations_, state_, lspHook_};

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

@@ -96,8 +96,6 @@ 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 Substitution
 export function Substitution(substitution_) {
 return {substitution_};

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

@@ -94,8 +94,6 @@ 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 Location
 export function Location(file_, line_, column_) {
 return {file_, line_, column_};

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

@@ -96,8 +96,6 @@ 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 Token
 export function Token(file_, code_, kind_, startLine_, startLineOffset_, startOffset_, stopLine_, stopLineOffset_, stopOffset_) {
 return {file_, code_, kind_, startLine_, startLineOffset_, startOffset_, stopLine_, stopLineOffset_, stopOffset_};

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

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

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

@@ -98,8 +98,6 @@ 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 Unification
 export function Unification(substitution_, constraints_, nextUnificationVariableIndex_, instances_, affects_, attemptFixes_) {
 return {substitution_, constraints_, nextUnificationVariableIndex_, instances_, affects_, attemptFixes_};

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

@@ -96,8 +96,6 @@ 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 Wildcards
 export function Wildcards(seenWildcards_) {
 return {seenWildcards_};

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

@@ -96,8 +96,6 @@ 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 Workspace
 export function Workspace(rules_, defaultLocation_, packageDirectory_) {
 return {rules_, defaultLocation_, packageDirectory_};

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

@@ -92,8 +92,6 @@ 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 Any