@reventlessdev/reventless-seed 1.0.0-alpha.5 → 1.0.0-alpha.7
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.
- package/CHANGELOG.md +15 -0
- package/lib/bs/.compiler.log +2 -2
- package/lib/bs/.sourcedirs.json +1 -1
- package/lib/bs/ReventlessSeed.cmi +0 -0
- package/lib/bs/ReventlessSeed.cmt +0 -0
- package/lib/bs/ReventlessSeed.mlmap +1 -1
- package/lib/bs/compiler-info.json +2 -2
- package/lib/bs/src/Seed-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed.ast +0 -0
- package/lib/bs/src/Seed.res +4 -5
- package/lib/bs/src/Seed_Client-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed_Client-ReventlessSeed.cmj +0 -0
- package/lib/bs/src/Seed_Client-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Client.ast +0 -0
- package/lib/bs/src/Seed_Client.res +4 -0
- package/lib/bs/src/Seed_Client.res.mjs +5 -0
- package/lib/bs/src/Seed_Connect-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed_Connect-ReventlessSeed.cmj +0 -0
- package/lib/bs/src/Seed_Connect-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Connect.ast +0 -0
- package/lib/bs/src/Seed_Connect.res +13 -49
- package/lib/bs/src/Seed_Connect.res.mjs +5 -26
- package/lib/bs/src/Seed_Prompt-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed_Prompt-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Prompt.ast +0 -0
- package/lib/bs/src/Seed_Prompt.res +10 -20
- package/lib/bs/src/Seed_Prompt.res.mjs +1 -1
- package/lib/bs/src/Seed_Random-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Runner-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed_Runner-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Runner.ast +0 -0
- package/lib/bs/src/Seed_Runner.res +5 -7
- package/lib/bs/src/Seed_Types-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Upload-ReventlessSeed.cmi +0 -0
- package/lib/bs/src/Seed_Upload-ReventlessSeed.cmj +0 -0
- package/lib/bs/src/Seed_Upload-ReventlessSeed.cmt +0 -0
- package/lib/bs/src/Seed_Upload.ast +0 -0
- package/lib/bs/src/Seed_Upload.res +39 -100
- package/lib/bs/src/Seed_Upload.res.mjs +61 -93
- package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmi +0 -0
- package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmj +0 -0
- package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmt +0 -0
- package/lib/bs/tests/Seed_RandomTest.ast +0 -0
- package/lib/bs/tests/Seed_RandomTest.res +160 -0
- package/lib/bs/tests/Seed_RandomTest.res.mjs +208 -0
- package/lib/ocaml/.compiler.log +2 -2
- package/lib/ocaml/ReventlessSeed.cmi +0 -0
- package/lib/ocaml/ReventlessSeed.cmt +0 -0
- package/lib/ocaml/ReventlessSeed.mlmap +1 -1
- package/lib/ocaml/Seed-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed.ast +0 -0
- package/lib/ocaml/Seed.res +4 -5
- package/lib/ocaml/Seed_Client-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_Client-ReventlessSeed.cmj +0 -0
- package/lib/ocaml/Seed_Client-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Client.ast +0 -0
- package/lib/ocaml/Seed_Client.res +4 -0
- package/lib/ocaml/Seed_Connect-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_Connect-ReventlessSeed.cmj +0 -0
- package/lib/ocaml/Seed_Connect-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Connect.ast +0 -0
- package/lib/ocaml/Seed_Connect.res +13 -49
- package/lib/ocaml/Seed_Prompt-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_Prompt-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Prompt.ast +0 -0
- package/lib/ocaml/Seed_Prompt.res +10 -20
- package/lib/ocaml/Seed_Random-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmj +0 -0
- package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_RandomTest.ast +0 -0
- package/lib/ocaml/Seed_RandomTest.res +160 -0
- package/lib/ocaml/Seed_Runner-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_Runner-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Runner.ast +0 -0
- package/lib/ocaml/Seed_Runner.res +5 -7
- package/lib/ocaml/Seed_Types-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Upload-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/Seed_Upload-ReventlessSeed.cmj +0 -0
- package/lib/ocaml/Seed_Upload-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/Seed_Upload.ast +0 -0
- package/lib/ocaml/Seed_Upload.res +39 -100
- package/package.json +5 -2
- package/rescript.json +1 -0
- package/src/Seed.res +4 -5
- package/src/Seed_Client.res +4 -0
- package/src/Seed_Client.res.mjs +5 -0
- package/src/Seed_Connect.res +13 -49
- package/src/Seed_Connect.res.mjs +5 -26
- package/src/Seed_Prompt.res +10 -20
- package/src/Seed_Prompt.res.mjs +1 -1
- package/src/Seed_Runner.res +5 -7
- package/src/Seed_Upload.res +39 -100
- package/src/Seed_Upload.res.mjs +61 -93
- package/tests/Seed_RandomTest.res +160 -0
- package/tests/Seed_RandomTest.res.mjs +208 -0
- package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmi +0 -0
- package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmj +0 -0
- package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmt +0 -0
- package/lib/bs/tests/UploadEndpointResolutionTest.ast +0 -0
- package/lib/bs/tests/UploadEndpointResolutionTest.res +0 -101
- package/lib/bs/tests/UploadEndpointResolutionTest.res.mjs +0 -59
- package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmi +0 -0
- package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmj +0 -0
- package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmt +0 -0
- package/lib/ocaml/UploadEndpointResolutionTest.ast +0 -0
- package/lib/ocaml/UploadEndpointResolutionTest.res +0 -101
- package/tests/UploadEndpointResolutionTest.res +0 -101
- package/tests/UploadEndpointResolutionTest.res.mjs +0 -59
package/CHANGELOG.md
CHANGED
|
@@ -3,6 +3,21 @@
|
|
|
3
3
|
All notable changes to this project will be documented in this file.
|
|
4
4
|
See [Conventional Commits](https://conventionalcommits.org) for commit guidelines.
|
|
5
5
|
|
|
6
|
+
# 1.0.0-alpha.7 (2026-08-01)
|
|
7
|
+
|
|
8
|
+
### Features
|
|
9
|
+
|
|
10
|
+
* **upload:** add the release half of the upload contract via the domain API ([448f887](https://github.com/ReventlessDev/reventless-core/commit/448f88714a5875be420f794a08d482fcf4ba8404))
|
|
11
|
+
|
|
12
|
+
|
|
13
|
+
# 1.0.0-alpha.6 (2026-07-31)
|
|
14
|
+
|
|
15
|
+
**Note:** Version bump only for package @reventlessdev/reventless-seed
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
|
|
19
|
+
|
|
20
|
+
|
|
6
21
|
# 1.0.0-alpha.5 (2026-07-31)
|
|
7
22
|
|
|
8
23
|
### Bug Fixes
|
package/lib/bs/.compiler.log
CHANGED
|
@@ -1,2 +1,2 @@
|
|
|
1
|
-
#Start(
|
|
2
|
-
#Done(
|
|
1
|
+
#Start(1785603404546)
|
|
2
|
+
#Done(1785603404581)
|
package/lib/bs/.sourcedirs.json
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
{"cmt_scan":[{"also_scan_build_root":true,"build_root":"lib/bs","scan_dirs":["src","tests"]}],"dirs":["src","tests"],"generated":[],"pkgs":[["@reventlessdev/rescript-jest","/home/runner/work/reventless-core/reventless-core/rescript/jest"]],"version":2}
|
|
1
|
+
{"cmt_scan":[{"also_scan_build_root":true,"build_root":"lib/bs","scan_dirs":["src","tests"]}],"dirs":["src","tests"],"generated":[],"pkgs":[["@reventlessdev/rescript-jest","/home/runner/work/reventless-core/reventless-core/rescript/jest"],["@reventlessdev/rescript-node","/home/runner/work/reventless-core/reventless-core/rescript/node"]],"version":2}
|
|
Binary file
|
|
Binary file
|
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
"version": "12.3.0",
|
|
3
3
|
"bsc_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/linux-x64/bin/bsc.exe",
|
|
4
4
|
"bsc_hash": "75e3a59c95cc953608fd3dd6ea6ed68141bba4414a20a52f114261b8a48385fa",
|
|
5
|
-
"rescript_config_hash": "
|
|
5
|
+
"rescript_config_hash": "25cfff836d200084949fdfdfec2f6875901bfee1f04d84634eca252ef1ca1ef1",
|
|
6
6
|
"runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
|
|
7
|
-
"generated_at": "
|
|
7
|
+
"generated_at": "1785603404584"
|
|
8
8
|
}
|
|
Binary file
|
|
Binary file
|
package/lib/bs/src/Seed.ast
CHANGED
|
Binary file
|
package/lib/bs/src/Seed.res
CHANGED
|
@@ -14,13 +14,12 @@ module Connect = Seed_Connect
|
|
|
14
14
|
|
|
15
15
|
exception Failed = Seed_Types.Failed
|
|
16
16
|
|
|
17
|
-
// A live target a data set seeds against: an authenticated client,
|
|
18
|
-
//
|
|
19
|
-
//
|
|
17
|
+
// A live target a data set seeds against: an authenticated client, whether uploads
|
|
18
|
+
// are skipped this run, and a label. Uploads mint through the domain API's
|
|
19
|
+
// `Upload_Presign` mutation on the client (route B), so no upload endpoint is carried.
|
|
20
20
|
type connection = Seed_Connect.connection = {
|
|
21
21
|
client: Seed_Client.t,
|
|
22
|
-
|
|
23
|
-
uploadEndpoints: dict<string>,
|
|
22
|
+
uploadsSkipped: bool,
|
|
24
23
|
label: string,
|
|
25
24
|
}
|
|
26
25
|
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
@@ -43,6 +43,10 @@ let make = (~config: config): t => {config, token: None}
|
|
|
43
43
|
Seed.Upload) can authenticate side-channel requests with the same identity. */
|
|
44
44
|
let currentToken = (t: t): option<string> => t.token
|
|
45
45
|
|
|
46
|
+
/** The GraphQL endpoint this client targets — so `Seed.Upload` can resolve a
|
|
47
|
+
relative presigned `uploadUrl` against the same origin. */
|
|
48
|
+
let endpoint = (t: t): string => t.config.endpoint
|
|
49
|
+
|
|
46
50
|
/** Injects a bearer obtained out-of-band (e.g. a Cognito id token), instead of
|
|
47
51
|
minting one via `login`. Provider-agnostic: the harness only cares that the
|
|
48
52
|
token is a valid bearer for `endpoint`. */
|
|
@@ -21,6 +21,10 @@ function currentToken(t) {
|
|
|
21
21
|
return t.token;
|
|
22
22
|
}
|
|
23
23
|
|
|
24
|
+
function endpoint(t) {
|
|
25
|
+
return t.config.endpoint;
|
|
26
|
+
}
|
|
27
|
+
|
|
24
28
|
function useToken(t, token) {
|
|
25
29
|
t.token = token;
|
|
26
30
|
}
|
|
@@ -266,6 +270,7 @@ export {
|
|
|
266
270
|
sleep,
|
|
267
271
|
make,
|
|
268
272
|
currentToken,
|
|
273
|
+
endpoint,
|
|
269
274
|
useToken,
|
|
270
275
|
field,
|
|
271
276
|
asString,
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
@@ -9,15 +9,13 @@
|
|
|
9
9
|
|
|
10
10
|
open Seed_Types
|
|
11
11
|
|
|
12
|
-
//
|
|
13
|
-
//
|
|
14
|
-
//
|
|
15
|
-
//
|
|
16
|
-
// for the resolution between them.
|
|
12
|
+
// Under route B the client mints uploads through the domain API's `Upload_Presign`
|
|
13
|
+
// mutation (authenticated by the same bearer as commands), so a connection needs no
|
|
14
|
+
// upload endpoint — just the authenticated client and whether uploads are skipped this
|
|
15
|
+
// run (`SEED_SKIP_UPLOADS`). Which store an asset uploads into is the caller's `~store`.
|
|
17
16
|
type connection = {
|
|
18
17
|
client: Seed_Client.t,
|
|
19
|
-
|
|
20
|
-
uploadEndpoints: dict<string>,
|
|
18
|
+
uploadsSkipped: bool,
|
|
21
19
|
label: string,
|
|
22
20
|
}
|
|
23
21
|
|
|
@@ -29,48 +27,20 @@ type connection = {
|
|
|
29
27
|
let make = async (
|
|
30
28
|
~label: string,
|
|
31
29
|
~endpoint: string,
|
|
32
|
-
~uploadEndpoint: string,
|
|
33
|
-
~uploadEndpoints: dict<string>=Dict.make(),
|
|
34
30
|
~login: (~username: string, ~password: string) => promise<string>,
|
|
35
31
|
~localDefaults: bool=false,
|
|
36
32
|
): connection => {
|
|
37
|
-
// `SEED_SKIP_UPLOADS` forces the
|
|
38
|
-
//
|
|
39
|
-
//
|
|
40
|
-
|
|
41
|
-
// knob: an empty `REVENTLESS_UPLOAD_ENDPOINT` env reads as "unset" (falls back
|
|
42
|
-
// to discovery), so this is the reliable way to disable uploads — which means
|
|
43
|
-
// it has to clear the per-store map too, or a declared store keeps uploading
|
|
44
|
-
// through it.
|
|
45
|
-
let skip = Seed_Prompt.envValue("SEED_SKIP_UPLOADS")->Option.isSome
|
|
46
|
-
let uploadEndpoint = skip ? "" : uploadEndpoint
|
|
47
|
-
let uploadEndpoints = skip ? Dict.make() : uploadEndpoints
|
|
33
|
+
// `SEED_SKIP_UPLOADS` forces the upload phase to no-op — seed domain data fast, or
|
|
34
|
+
// skip a broken/absent upload path without editing the data set. The data set reads
|
|
35
|
+
// `connection.uploadsSkipped` and reports the skip.
|
|
36
|
+
let uploadsSkipped = Seed_Upload.uploadsSkipped()
|
|
48
37
|
let (username, password) = await Seed_Prompt.credentials(~localDefaults)
|
|
49
38
|
let token = await login(~username, ~password)
|
|
50
39
|
let client = Seed_Client.make(~config={endpoint: endpoint})
|
|
51
40
|
client->Seed_Client.useToken(token)
|
|
52
|
-
{client,
|
|
41
|
+
{client, uploadsSkipped, label}
|
|
53
42
|
}
|
|
54
43
|
|
|
55
|
-
/**
|
|
56
|
-
* The endpoint an asset destined for `store` uploads through, or the reason
|
|
57
|
-
* there is none — the message to report when the upload phase skips.
|
|
58
|
-
*
|
|
59
|
-
* `store` is the qualified `{plugin}.{store}` the asset's field declares, e.g.
|
|
60
|
-
* `"Catalog.productImages"`. Resolution is `Seed_Upload.endpointFor`; naming a
|
|
61
|
-
* store the deployment does not serve falls back to the legacy single service
|
|
62
|
-
* rather than to another store's endpoint.
|
|
63
|
-
*/
|
|
64
|
-
let uploadEndpointFor = (c: connection, ~store: string): result<string, string> =>
|
|
65
|
-
switch Seed_Upload.endpointFor(
|
|
66
|
-
~store,
|
|
67
|
-
~uploadEndpoint=c.uploadEndpoint,
|
|
68
|
-
~uploadEndpoints=c.uploadEndpoints,
|
|
69
|
-
) {
|
|
70
|
-
| Some(endpoint) => Ok(endpoint)
|
|
71
|
-
| None => Error(Seed_Upload.unresolvedReason(~store, ~uploadEndpoints=c.uploadEndpoints))
|
|
72
|
-
}
|
|
73
|
-
|
|
74
44
|
/**
|
|
75
45
|
* A login function backed by an HTTP login endpoint (the local dev
|
|
76
46
|
* `/__inmemory/login` shape: POST `{username, password}` → `{token}`). Reuses
|
|
@@ -98,24 +68,18 @@ let envOr = (key: string, fallback: string): string =>
|
|
|
98
68
|
* defaults baked in and overridable per endpoint (arg, then env var, then
|
|
99
69
|
* default). Empty input at the credential prompt falls back to `admin`/`admin`.
|
|
100
70
|
*
|
|
101
|
-
* No
|
|
102
|
-
*
|
|
103
|
-
* "declares a store with no matching endpoint" row.
|
|
71
|
+
* No upload endpoint: uploads mint through the domain API's `Upload_Presign` mutation
|
|
72
|
+
* on the same `graphql` endpoint, with the store passed per asset.
|
|
104
73
|
*/
|
|
105
|
-
let local = (~graphql=?, ~
|
|
74
|
+
let local = (~graphql=?, ~login=?, ()): (unit => promise<connection>) => {
|
|
106
75
|
let endpoint =
|
|
107
76
|
graphql->Option.getOr(envOr("REVENTLESS_GRAPHQL_ENDPOINT", "http://localhost:4000/graphql"))
|
|
108
|
-
let uploadEndpoint =
|
|
109
|
-
upload->Option.getOr(
|
|
110
|
-
envOr("REVENTLESS_UPLOAD_ENDPOINT", "http://localhost:4000/__inmemory/upload"),
|
|
111
|
-
)
|
|
112
77
|
let loginEndpoint =
|
|
113
78
|
login->Option.getOr(envOr("REVENTLESS_LOGIN_ENDPOINT", "http://localhost:4000/__inmemory/login"))
|
|
114
79
|
() =>
|
|
115
80
|
make(
|
|
116
81
|
~label="local",
|
|
117
82
|
~endpoint,
|
|
118
|
-
~uploadEndpoint,
|
|
119
83
|
~login=viaLoginEndpoint(~loginEndpoint),
|
|
120
84
|
~localDefaults=true,
|
|
121
85
|
)
|
|
@@ -6,12 +6,9 @@ import * as Seed_Client$ReventlessSeed from "./Seed_Client.res.mjs";
|
|
|
6
6
|
import * as Seed_Prompt$ReventlessSeed from "./Seed_Prompt.res.mjs";
|
|
7
7
|
import * as Seed_Upload$ReventlessSeed from "./Seed_Upload.res.mjs";
|
|
8
8
|
|
|
9
|
-
async function make(label, endpoint,
|
|
10
|
-
let uploadEndpoints = uploadEndpointsOpt !== undefined ? uploadEndpointsOpt : ({});
|
|
9
|
+
async function make(label, endpoint, login, localDefaultsOpt) {
|
|
11
10
|
let localDefaults = localDefaultsOpt !== undefined ? localDefaultsOpt : false;
|
|
12
|
-
let
|
|
13
|
-
let uploadEndpoint$1 = skip ? "" : uploadEndpoint;
|
|
14
|
-
let uploadEndpoints$1 = skip ? ({}) : uploadEndpoints;
|
|
11
|
+
let uploadsSkipped = Seed_Upload$ReventlessSeed.uploadsSkipped();
|
|
15
12
|
let match = await Seed_Prompt$ReventlessSeed.credentials(localDefaults);
|
|
16
13
|
let token = await login(match[0], match[1]);
|
|
17
14
|
let client = Seed_Client$ReventlessSeed.make({
|
|
@@ -20,27 +17,11 @@ async function make(label, endpoint, uploadEndpoint, uploadEndpointsOpt, login,
|
|
|
20
17
|
Seed_Client$ReventlessSeed.useToken(client, token);
|
|
21
18
|
return {
|
|
22
19
|
client: client,
|
|
23
|
-
|
|
24
|
-
uploadEndpoints: uploadEndpoints$1,
|
|
20
|
+
uploadsSkipped: uploadsSkipped,
|
|
25
21
|
label: label
|
|
26
22
|
};
|
|
27
23
|
}
|
|
28
24
|
|
|
29
|
-
function uploadEndpointFor(c, store) {
|
|
30
|
-
let endpoint = Seed_Upload$ReventlessSeed.endpointFor(store, c.uploadEndpoint, c.uploadEndpoints);
|
|
31
|
-
if (endpoint !== undefined) {
|
|
32
|
-
return {
|
|
33
|
-
TAG: "Ok",
|
|
34
|
-
_0: endpoint
|
|
35
|
-
};
|
|
36
|
-
} else {
|
|
37
|
-
return {
|
|
38
|
-
TAG: "Error",
|
|
39
|
-
_0: Seed_Upload$ReventlessSeed.unresolvedReason(store, c.uploadEndpoints)
|
|
40
|
-
};
|
|
41
|
-
}
|
|
42
|
-
}
|
|
43
|
-
|
|
44
25
|
function viaLoginEndpoint(loginEndpoint) {
|
|
45
26
|
return async (username, password) => {
|
|
46
27
|
let client = Seed_Client$ReventlessSeed.make({
|
|
@@ -66,16 +47,14 @@ function envOr(key, fallback) {
|
|
|
66
47
|
return Stdlib_Option.getOr(Seed_Prompt$ReventlessSeed.envValue(key), fallback);
|
|
67
48
|
}
|
|
68
49
|
|
|
69
|
-
function local(graphql,
|
|
50
|
+
function local(graphql, login, param) {
|
|
70
51
|
let endpoint = Stdlib_Option.getOr(graphql, Stdlib_Option.getOr(Seed_Prompt$ReventlessSeed.envValue("REVENTLESS_GRAPHQL_ENDPOINT"), "http://localhost:4000/graphql"));
|
|
71
|
-
let uploadEndpoint = Stdlib_Option.getOr(upload, Stdlib_Option.getOr(Seed_Prompt$ReventlessSeed.envValue("REVENTLESS_UPLOAD_ENDPOINT"), "http://localhost:4000/__inmemory/upload"));
|
|
72
52
|
let loginEndpoint = Stdlib_Option.getOr(login, Stdlib_Option.getOr(Seed_Prompt$ReventlessSeed.envValue("REVENTLESS_LOGIN_ENDPOINT"), "http://localhost:4000/__inmemory/login"));
|
|
73
|
-
return () => make("local", endpoint,
|
|
53
|
+
return () => make("local", endpoint, viaLoginEndpoint(loginEndpoint), true);
|
|
74
54
|
}
|
|
75
55
|
|
|
76
56
|
export {
|
|
77
57
|
make,
|
|
78
|
-
uploadEndpointFor,
|
|
79
58
|
viaLoginEndpoint,
|
|
80
59
|
envOr,
|
|
81
60
|
local,
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
@@ -1,7 +1,7 @@
|
|
|
1
1
|
// One shared readline interface for every interactive prompt in a seed run.
|
|
2
2
|
//
|
|
3
3
|
// The reason this module exists: creating and closing a fresh `readline`
|
|
4
|
-
// interface per prompt leaves stdin paused after the first `close`, so the
|
|
4
|
+
// interface per prompt leaves NodeProcess.stdin paused after the first `close`, so the
|
|
5
5
|
// second prompt (password after username) never fires and the run hangs. A
|
|
6
6
|
// single interface, created lazily and closed exactly once, avoids that — and a
|
|
7
7
|
// `muted` gate on its output lets password entry reuse the same interface
|
|
@@ -14,18 +14,8 @@ open Seed_Types
|
|
|
14
14
|
|
|
15
15
|
// ── Node bindings ─────────────────────────────────────────────────────────────
|
|
16
16
|
|
|
17
|
-
type stream
|
|
18
|
-
@val @scope("process") external stdin: stream = "stdin"
|
|
19
|
-
@val @scope("process") external stdout: stream = "stdout"
|
|
20
|
-
@send external writeStream: (stream, string) => unit = "write"
|
|
21
|
-
@get external isTTY: stream => bool = "isTTY"
|
|
22
|
-
@send external pauseStream: stream => unit = "pause"
|
|
23
|
-
@send external unrefStream: stream => unit = "unref"
|
|
24
|
-
|
|
25
|
-
@scope("process") @val external processEnv: dict<string> = "env"
|
|
26
|
-
|
|
27
17
|
type rl
|
|
28
|
-
type rlOptions = {input: stream, output: stream, terminal?: bool}
|
|
18
|
+
type rlOptions = {input: NodeProcess.stream, output: NodeProcess.stream, terminal?: bool}
|
|
29
19
|
@module("node:readline") external createInterface: rlOptions => rl = "createInterface"
|
|
30
20
|
@send external question: (rl, string, string => unit) => unit = "question"
|
|
31
21
|
@send external closeRl: rl => unit = "close"
|
|
@@ -42,10 +32,10 @@ let iface = (): rl =>
|
|
|
42
32
|
switch rlRef.contents {
|
|
43
33
|
| Some(rl) => rl
|
|
44
34
|
| None =>
|
|
45
|
-
let rl = createInterface({input: stdin, output: stdout, terminal: true})
|
|
35
|
+
let rl = createInterface({input: NodeProcess.stdin, output: NodeProcess.stdout, terminal: true})
|
|
46
36
|
rl->setWriteToOutput(s =>
|
|
47
37
|
if !muted.contents {
|
|
48
|
-
stdout->
|
|
38
|
+
NodeProcess.stdout->NodeProcess.write(s)
|
|
49
39
|
}
|
|
50
40
|
)
|
|
51
41
|
rlRef := Some(rl)
|
|
@@ -58,23 +48,23 @@ let close = (): unit =>
|
|
|
58
48
|
rl->closeRl
|
|
59
49
|
rlRef := None
|
|
60
50
|
// Closing the interface is not enough: a terminal-mode readline leaves
|
|
61
|
-
// stdin resumed and reffed, which keeps the event loop alive so the CLI
|
|
51
|
+
// NodeProcess.stdin resumed and reffed, which keeps the event loop alive so the CLI
|
|
62
52
|
// never exits after seeding. Release it explicitly.
|
|
63
|
-
stdin->
|
|
64
|
-
stdin->
|
|
53
|
+
NodeProcess.stdin->NodeProcess.pause
|
|
54
|
+
NodeProcess.stdin->NodeProcess.unref
|
|
65
55
|
| None => ()
|
|
66
56
|
}
|
|
67
57
|
|
|
68
58
|
// ── Env + TTY ─────────────────────────────────────────────────────────────────
|
|
69
59
|
|
|
70
60
|
let envValue = (key: string): option<string> =>
|
|
71
|
-
switch
|
|
61
|
+
switch NodeProcess.env->Dict.get(key) {
|
|
72
62
|
| Some(v) if v->String.trim != "" => Some(v->String.trim)
|
|
73
63
|
| _ => None
|
|
74
64
|
}
|
|
75
65
|
|
|
76
66
|
let requireTty = (): unit =>
|
|
77
|
-
if !(stdin->isTTY) {
|
|
67
|
+
if !(NodeProcess.stdin->NodeProcess.isTTY->Option.getOr(false)) {
|
|
78
68
|
throw(
|
|
79
69
|
Failed(
|
|
80
70
|
"no TTY for an interactive prompt — set the documented SEED_* / REVENTLESS_DEMO_* " ++
|
|
@@ -101,7 +91,7 @@ let askHidden = (query: string): promise<string> =>
|
|
|
101
91
|
let rl = iface()
|
|
102
92
|
rl->question(query, answer => {
|
|
103
93
|
muted := false
|
|
104
|
-
stdout->
|
|
94
|
+
NodeProcess.stdout->NodeProcess.write("\n")
|
|
105
95
|
resolve(answer)
|
|
106
96
|
})
|
|
107
97
|
muted := true
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
@@ -2,11 +2,9 @@
|
|
|
2
2
|
|
|
3
3
|
open Seed_Types
|
|
4
4
|
|
|
5
|
-
@scope("process") @val external exit: int => unit = "exit"
|
|
6
|
-
@scope("process") @val external env: dict<string> = "env"
|
|
7
5
|
|
|
8
6
|
let envOr = (key: string, fallback: string): string =>
|
|
9
|
-
env->Dict.get(key)->Option.getOr(fallback)
|
|
7
|
+
NodeProcess.env->Dict.get(key)->Option.getOr(fallback)
|
|
10
8
|
|
|
11
9
|
/** One line of progress per phase, so a slow run never looks hung. */
|
|
12
10
|
let report = (line: string): unit => Console.log(` ${line}`)
|
|
@@ -127,7 +125,7 @@ let run = async (main: unit => promise<unit>): unit =>
|
|
|
127
125
|
// Exit cleanly: HTTP keep-alive sockets (and, on the interactive path, the
|
|
128
126
|
// readline/stdin handle) can otherwise keep the event loop alive so the CLI
|
|
129
127
|
// appears to hang after a successful run.
|
|
130
|
-
exit(0)
|
|
128
|
+
NodeProcess.exit(0)
|
|
131
129
|
} catch {
|
|
132
130
|
| Failed(message) =>
|
|
133
131
|
Console.error("")
|
|
@@ -135,7 +133,7 @@ let run = async (main: unit => promise<unit>): unit =>
|
|
|
135
133
|
Console.error("fresh store once the cause below is fixed.")
|
|
136
134
|
Console.error("")
|
|
137
135
|
Console.error(message)
|
|
138
|
-
exit(1)
|
|
136
|
+
NodeProcess.exit(1)
|
|
139
137
|
| exn =>
|
|
140
138
|
Console.error("")
|
|
141
139
|
Console.error("Seeding aborted with an unexpected error:")
|
|
@@ -143,7 +141,7 @@ let run = async (main: unit => promise<unit>): unit =>
|
|
|
143
141
|
Console.error(
|
|
144
142
|
exn->JsExn.fromException->Option.flatMap(JsExn.message)->Option.getOr("unknown"),
|
|
145
143
|
)
|
|
146
|
-
exit(1)
|
|
144
|
+
NodeProcess.exit(1)
|
|
147
145
|
}
|
|
148
146
|
|
|
149
147
|
/**
|
|
@@ -172,7 +170,7 @@ let abortStartup = (message: string): unit => {
|
|
|
172
170
|
Console.error("Seeding did not start — nothing was written. Fix the cause below and re-run.")
|
|
173
171
|
Console.error("")
|
|
174
172
|
Console.error(message)
|
|
175
|
-
exit(1)
|
|
173
|
+
NodeProcess.exit(1)
|
|
176
174
|
}
|
|
177
175
|
|
|
178
176
|
/**
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|
|
Binary file
|