firefly-compiler 0.4.7 → 0.4.8

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (90) hide show
  1. package/compiler/Compiler.ff +2 -0
  2. package/compiler/Deriver.ff +7 -0
  3. package/core/Array.ff +17 -4
  4. package/core/AssetSystem.ff +1 -1
  5. package/core/BrowserSystem.ff +27 -0
  6. package/core/List.ff +4 -0
  7. package/core/Lock.ff +2 -2
  8. package/core/Random.ff +148 -0
  9. package/core/SourceLocation.ff +27 -0
  10. package/core/Task.ff +3 -0
  11. package/core/WebSocket.ff +127 -0
  12. package/httpserver/HttpServer.ff +1 -1
  13. package/lux/Css.ff +648 -0
  14. package/lux/CssTest.ff +48 -0
  15. package/lux/Lux.ff +33 -18
  16. package/lux/Main.ff +4 -1
  17. package/output/js/ff/compiler/Builder.mjs +4 -0
  18. package/output/js/ff/compiler/Compiler.mjs +5 -1
  19. package/output/js/ff/compiler/Dependencies.mjs +4 -0
  20. package/output/js/ff/compiler/Deriver.mjs +10 -2
  21. package/output/js/ff/compiler/Dictionaries.mjs +6 -0
  22. package/output/js/ff/compiler/Environment.mjs +10 -0
  23. package/output/js/ff/compiler/Inference.mjs +4 -0
  24. package/output/js/ff/compiler/JsEmitter.mjs +14 -0
  25. package/output/js/ff/compiler/JsImporter.mjs +4 -0
  26. package/output/js/ff/compiler/LspHook.mjs +6 -0
  27. package/output/js/ff/compiler/Main.mjs +16 -0
  28. package/output/js/ff/compiler/Parser.mjs +8 -0
  29. package/output/js/ff/compiler/Patterns.mjs +8 -0
  30. package/output/js/ff/compiler/Resolver.mjs +4 -0
  31. package/output/js/ff/compiler/Substitution.mjs +4 -0
  32. package/output/js/ff/compiler/Syntax.mjs +132 -0
  33. package/output/js/ff/compiler/Token.mjs +56 -0
  34. package/output/js/ff/compiler/Tokenizer.mjs +4 -0
  35. package/output/js/ff/compiler/Unification.mjs +10 -0
  36. package/output/js/ff/compiler/Wildcards.mjs +4 -0
  37. package/output/js/ff/compiler/Workspace.mjs +8 -0
  38. package/output/js/ff/core/Any.mjs +4 -0
  39. package/output/js/ff/core/Array.mjs +27 -1
  40. package/output/js/ff/core/AssetSystem.mjs +6 -2
  41. package/output/js/ff/core/Atomic.mjs +4 -0
  42. package/output/js/ff/core/Bool.mjs +4 -0
  43. package/output/js/ff/core/Box.mjs +4 -0
  44. package/output/js/ff/core/BrowserSystem.mjs +55 -0
  45. package/output/js/ff/core/Buffer.mjs +4 -0
  46. package/output/js/ff/core/BuildSystem.mjs +4 -0
  47. package/output/js/ff/core/Channel.mjs +4 -0
  48. package/output/js/ff/core/Char.mjs +4 -0
  49. package/output/js/ff/core/Core.mjs +4 -0
  50. package/output/js/ff/core/Duration.mjs +4 -0
  51. package/output/js/ff/core/Equal.mjs +4 -0
  52. package/output/js/ff/core/Error.mjs +4 -0
  53. package/output/js/ff/core/FileHandle.mjs +4 -0
  54. package/output/js/ff/core/Float.mjs +4 -0
  55. package/output/js/ff/core/HttpClient.mjs +4 -0
  56. package/output/js/ff/core/Instant.mjs +4 -0
  57. package/output/js/ff/core/Int.mjs +4 -0
  58. package/output/js/ff/core/IntMap.mjs +4 -0
  59. package/output/js/ff/core/JsSystem.mjs +4 -0
  60. package/output/js/ff/core/JsValue.mjs +4 -0
  61. package/output/js/ff/core/List.mjs +12 -0
  62. package/output/js/ff/core/Lock.mjs +6 -2
  63. package/output/js/ff/core/Log.mjs +4 -0
  64. package/output/js/ff/core/Map.mjs +4 -0
  65. package/output/js/ff/core/NodeSystem.mjs +4 -0
  66. package/output/js/ff/core/Nothing.mjs +4 -0
  67. package/output/js/ff/core/Option.mjs +8 -0
  68. package/output/js/ff/core/Ordering.mjs +4 -0
  69. package/output/js/ff/core/Pair.mjs +6 -0
  70. package/output/js/ff/core/Path.mjs +4 -0
  71. package/output/js/ff/core/Random.mjs +340 -0
  72. package/output/js/ff/core/RbMap.mjs +4 -0
  73. package/output/js/ff/core/Serializable.mjs +4 -0
  74. package/output/js/ff/core/Set.mjs +4 -0
  75. package/output/js/ff/core/Show.mjs +4 -0
  76. package/output/js/ff/core/SourceLocation.mjs +45 -1
  77. package/output/js/ff/core/Stack.mjs +4 -0
  78. package/output/js/ff/core/Stream.mjs +4 -0
  79. package/output/js/ff/core/String.mjs +4 -0
  80. package/output/js/ff/core/StringMap.mjs +4 -0
  81. package/output/js/ff/core/Task.mjs +7 -1
  82. package/output/js/ff/core/Try.mjs +4 -0
  83. package/output/js/ff/core/Unit.mjs +4 -0
  84. package/output/js/ff/core/WebSocket.mjs +198 -0
  85. package/package.json +1 -1
  86. package/vscode/package.json +1 -1
  87. package/webserver/.firefly/include/package-lock.json +16 -0
  88. package/webserver/.firefly/include/package.json +5 -0
  89. package/webserver/.firefly/package.ff +2 -0
  90. package/webserver/WebServer.ff +608 -0
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Atomic
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Bool
92
96
  const False$ = {False: true};
93
97
  export function False() {
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Box
92
96
  export function Box(value_) {
93
97
  return {value_};
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type BrowserSystem
92
96
 
93
97
 
@@ -101,6 +105,10 @@ export function BrowserSystem_httpClient(self_) {
101
105
  throw new Error('Function BrowserSystem_httpClient is missing on this target in sync context.');
102
106
  }
103
107
 
108
+ export function BrowserSystem_webSocket(self_, url_) {
109
+ return ff_core_WebSocket.internalOpenBrowserWebSocket_(self_, url_)
110
+ }
111
+
104
112
  export function BrowserSystem_mainTask(self_) {
105
113
  throw new Error('Function BrowserSystem_mainTask is missing on this target in sync context.');
106
114
  }
@@ -109,10 +117,30 @@ export function BrowserSystem_js(self_) {
109
117
  throw new Error('Function BrowserSystem_js is missing on this target in sync context.');
110
118
  }
111
119
 
120
+ export function BrowserSystem_url(self_) {
121
+ throw new Error('Function BrowserSystem_url is missing on this target in sync context.');
122
+ }
123
+
124
+ export function BrowserSystem_urlPath(self_) {
125
+ throw new Error('Function BrowserSystem_urlPath is missing on this target in sync context.');
126
+ }
127
+
128
+ export function BrowserSystem_urlQuery(self_, name_) {
129
+ throw new Error('Function BrowserSystem_urlQuery is missing on this target in sync context.');
130
+ }
131
+
132
+ export function BrowserSystem_urlFragment(self_) {
133
+ throw new Error('Function BrowserSystem_urlFragment is missing on this target in sync context.');
134
+ }
135
+
112
136
  export async function BrowserSystem_httpClient$(self_, $task) {
113
137
  return null
114
138
  }
115
139
 
140
+ export async function BrowserSystem_webSocket$(self_, url_, $task) {
141
+ return (await ff_core_WebSocket.internalOpenBrowserWebSocket_$(self_, url_, $task))
142
+ }
143
+
116
144
  export async function BrowserSystem_mainTask$(self_, $task) {
117
145
  return self_.task_
118
146
  }
@@ -121,6 +149,33 @@ export async function BrowserSystem_js$(self_, $task) {
121
149
  return typeof globalThis !== 'undefined' ? globalThis : window
122
150
  }
123
151
 
152
+ export async function BrowserSystem_url$(self_, $task) {
153
+
154
+ return location.href;
155
+
156
+ }
157
+
158
+ export async function BrowserSystem_urlPath$(self_, $task) {
159
+
160
+ return location.pathname;
161
+
162
+ }
163
+
164
+ export async function BrowserSystem_urlQuery$(self_, name_, $task) {
165
+
166
+ const param = new URLSearchParams(location.search).get(name_)
167
+ if(param == null) return ff_core_Option.None();
168
+ return ff_core_Option.Some(param);
169
+
170
+ }
171
+
172
+ export async function BrowserSystem_urlFragment$(self_, $task) {
173
+
174
+ if(!location.hash.startsWith('#')) return ff_core_Option.None();
175
+ return ff_core_Option.Some(location.hash.slice(1));
176
+
177
+ }
178
+
124
179
 
125
180
 
126
181
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Buffer
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type BuildSystem
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Channel
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // newtype Char
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type GrabException
92
96
  const GrabException$ = {GrabException: true};
93
97
  export function GrabException() {
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // newtype Duration
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
 
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Error
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type FileHandle
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Float
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type HttpClient
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // newtype Instant
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Int
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type IntMap
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type JsSystem
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type JsValue
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type List
92
96
  const Empty$ = {Empty: true};
93
97
  export function Empty() {
@@ -478,6 +482,10 @@ return
478
482
  }
479
483
  }
480
484
 
485
+ export function List_eachWhile(self_, body_) {
486
+ return ff_core_List.List_all(self_, body_)
487
+ }
488
+
481
489
  export function List_all(self_, body_) {
482
490
  _tailcall: for(;;) {
483
491
  {
@@ -1344,6 +1352,10 @@ return
1344
1352
  }
1345
1353
  }
1346
1354
 
1355
+ export async function List_eachWhile$(self_, body_, $task) {
1356
+ return (await ff_core_List.List_all$(self_, body_, $task))
1357
+ }
1358
+
1347
1359
  export async function List_all$(self_, body_, $task) {
1348
1360
  _tailcall: for(;;) {
1349
1361
  {
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Lock
92
96
 
93
97
 
@@ -234,7 +238,7 @@ export async function LockCondition_sleep$(self_, $task) {
234
238
  }
235
239
  const level = self_.lock.level
236
240
  self_.lock.level = 1
237
- await ff_core.Lock_release$(self_.lock)
241
+ await ff_core_Lock.Lock_release$(self_.lock)
238
242
  try {
239
243
  await new Promise((resolve, reject) => {
240
244
  $task.controller.signal.addEventListener('abort', reject)
@@ -250,7 +254,7 @@ export async function LockCondition_sleep$(self_, $task) {
250
254
  let acquired = false
251
255
  while(!acquired) {
252
256
  try {
253
- await ff_core.Lock_acquire$(self_.lock)
257
+ await ff_core_Lock.Lock_acquire$(self_.lock)
254
258
  self_.lock.level = level
255
259
  acquired = true
256
260
  } catch(e) {
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
 
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_RbMap from "../../ff/core/RbMap.mjs"
70
72
 
71
73
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
@@ -90,6 +92,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
90
92
 
91
93
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
92
94
 
95
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
96
+
93
97
  // newtype Map
94
98
 
95
99
 
@@ -70,6 +70,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
70
70
 
71
71
  import * as ff_core_Path from "../../ff/core/Path.mjs"
72
72
 
73
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
74
+
73
75
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
74
76
 
75
77
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -92,6 +94,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
92
94
 
93
95
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
94
96
 
97
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
98
+
95
99
  // type NodeSystem
96
100
 
97
101
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Nothing
92
96
 
93
97
 
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Option
92
96
  const None$ = {None: true};
93
97
  export function None() {
@@ -918,6 +922,7 @@ const value_a = value_;
918
922
  if(value_a.None) {
919
923
  const v_ = value_a;
920
924
  serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
925
+ ff_core_Serializable.Serialization_autoResize(serialization_, 1);
921
926
  ff_core_Buffer.Buffer_setUint8(serialization_.buffer_, serialization_.offset_, 0);
922
927
  serialization_.offset_ += 1
923
928
  return
@@ -927,6 +932,7 @@ return
927
932
  if(value_a.Some) {
928
933
  const v_ = value_a;
929
934
  serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
935
+ ff_core_Serializable.Serialization_autoResize(serialization_, 1);
930
936
  ff_core_Buffer.Buffer_setUint8(serialization_.buffer_, serialization_.offset_, 1);
931
937
  serialization_.offset_ += 1;
932
938
  ff_core_Serializable_Serializable$T.serializeUsing_(serialization_, v_.value_)
@@ -968,6 +974,7 @@ const value_a = value_;
968
974
  if(value_a.None) {
969
975
  const v_ = value_a;
970
976
  serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
977
+ ff_core_Serializable.Serialization_autoResize(serialization_, 1);
971
978
  ff_core_Buffer.Buffer_setUint8(serialization_.buffer_, serialization_.offset_, 0);
972
979
  serialization_.offset_ += 1
973
980
  return
@@ -977,6 +984,7 @@ return
977
984
  if(value_a.Some) {
978
985
  const v_ = value_a;
979
986
  serialization_.checksum_ = ff_core_Int.Int_bitOr(((31 * serialization_.checksum_) + 19), 0);
987
+ ff_core_Serializable.Serialization_autoResize(serialization_, 1);
980
988
  ff_core_Buffer.Buffer_setUint8(serialization_.buffer_, serialization_.offset_, 1);
981
989
  serialization_.offset_ += 1;
982
990
  ff_core_Serializable_Serializable$T.serializeUsing_(serialization_, v_.value_)
@@ -66,6 +66,8 @@ import * as ff_core_Pair from "../../ff/core/Pair.mjs"
66
66
 
67
67
  import * as ff_core_Path from "../../ff/core/Path.mjs"
68
68
 
69
+ import * as ff_core_Random from "../../ff/core/Random.mjs"
70
+
69
71
  import * as ff_core_Serializable from "../../ff/core/Serializable.mjs"
70
72
 
71
73
  import * as ff_core_Set from "../../ff/core/Set.mjs"
@@ -88,6 +90,8 @@ import * as ff_core_Try from "../../ff/core/Try.mjs"
88
90
 
89
91
  import * as ff_core_Unit from "../../ff/core/Unit.mjs"
90
92
 
93
+ import * as ff_core_WebSocket from "../../ff/core/WebSocket.mjs"
94
+
91
95
  // type Ordering
92
96
  const OrderingBefore$ = {OrderingBefore: true};
93
97
  export function OrderingBefore() {