@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.
Files changed (111) hide show
  1. package/CHANGELOG.md +15 -0
  2. package/lib/bs/.compiler.log +2 -2
  3. package/lib/bs/.sourcedirs.json +1 -1
  4. package/lib/bs/ReventlessSeed.cmi +0 -0
  5. package/lib/bs/ReventlessSeed.cmt +0 -0
  6. package/lib/bs/ReventlessSeed.mlmap +1 -1
  7. package/lib/bs/compiler-info.json +2 -2
  8. package/lib/bs/src/Seed-ReventlessSeed.cmi +0 -0
  9. package/lib/bs/src/Seed-ReventlessSeed.cmt +0 -0
  10. package/lib/bs/src/Seed.ast +0 -0
  11. package/lib/bs/src/Seed.res +4 -5
  12. package/lib/bs/src/Seed_Client-ReventlessSeed.cmi +0 -0
  13. package/lib/bs/src/Seed_Client-ReventlessSeed.cmj +0 -0
  14. package/lib/bs/src/Seed_Client-ReventlessSeed.cmt +0 -0
  15. package/lib/bs/src/Seed_Client.ast +0 -0
  16. package/lib/bs/src/Seed_Client.res +4 -0
  17. package/lib/bs/src/Seed_Client.res.mjs +5 -0
  18. package/lib/bs/src/Seed_Connect-ReventlessSeed.cmi +0 -0
  19. package/lib/bs/src/Seed_Connect-ReventlessSeed.cmj +0 -0
  20. package/lib/bs/src/Seed_Connect-ReventlessSeed.cmt +0 -0
  21. package/lib/bs/src/Seed_Connect.ast +0 -0
  22. package/lib/bs/src/Seed_Connect.res +13 -49
  23. package/lib/bs/src/Seed_Connect.res.mjs +5 -26
  24. package/lib/bs/src/Seed_Prompt-ReventlessSeed.cmi +0 -0
  25. package/lib/bs/src/Seed_Prompt-ReventlessSeed.cmt +0 -0
  26. package/lib/bs/src/Seed_Prompt.ast +0 -0
  27. package/lib/bs/src/Seed_Prompt.res +10 -20
  28. package/lib/bs/src/Seed_Prompt.res.mjs +1 -1
  29. package/lib/bs/src/Seed_Random-ReventlessSeed.cmt +0 -0
  30. package/lib/bs/src/Seed_Runner-ReventlessSeed.cmi +0 -0
  31. package/lib/bs/src/Seed_Runner-ReventlessSeed.cmt +0 -0
  32. package/lib/bs/src/Seed_Runner.ast +0 -0
  33. package/lib/bs/src/Seed_Runner.res +5 -7
  34. package/lib/bs/src/Seed_Types-ReventlessSeed.cmt +0 -0
  35. package/lib/bs/src/Seed_Upload-ReventlessSeed.cmi +0 -0
  36. package/lib/bs/src/Seed_Upload-ReventlessSeed.cmj +0 -0
  37. package/lib/bs/src/Seed_Upload-ReventlessSeed.cmt +0 -0
  38. package/lib/bs/src/Seed_Upload.ast +0 -0
  39. package/lib/bs/src/Seed_Upload.res +39 -100
  40. package/lib/bs/src/Seed_Upload.res.mjs +61 -93
  41. package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmi +0 -0
  42. package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmj +0 -0
  43. package/lib/bs/tests/Seed_RandomTest-ReventlessSeed.cmt +0 -0
  44. package/lib/bs/tests/Seed_RandomTest.ast +0 -0
  45. package/lib/bs/tests/Seed_RandomTest.res +160 -0
  46. package/lib/bs/tests/Seed_RandomTest.res.mjs +208 -0
  47. package/lib/ocaml/.compiler.log +2 -2
  48. package/lib/ocaml/ReventlessSeed.cmi +0 -0
  49. package/lib/ocaml/ReventlessSeed.cmt +0 -0
  50. package/lib/ocaml/ReventlessSeed.mlmap +1 -1
  51. package/lib/ocaml/Seed-ReventlessSeed.cmi +0 -0
  52. package/lib/ocaml/Seed-ReventlessSeed.cmt +0 -0
  53. package/lib/ocaml/Seed.ast +0 -0
  54. package/lib/ocaml/Seed.res +4 -5
  55. package/lib/ocaml/Seed_Client-ReventlessSeed.cmi +0 -0
  56. package/lib/ocaml/Seed_Client-ReventlessSeed.cmj +0 -0
  57. package/lib/ocaml/Seed_Client-ReventlessSeed.cmt +0 -0
  58. package/lib/ocaml/Seed_Client.ast +0 -0
  59. package/lib/ocaml/Seed_Client.res +4 -0
  60. package/lib/ocaml/Seed_Connect-ReventlessSeed.cmi +0 -0
  61. package/lib/ocaml/Seed_Connect-ReventlessSeed.cmj +0 -0
  62. package/lib/ocaml/Seed_Connect-ReventlessSeed.cmt +0 -0
  63. package/lib/ocaml/Seed_Connect.ast +0 -0
  64. package/lib/ocaml/Seed_Connect.res +13 -49
  65. package/lib/ocaml/Seed_Prompt-ReventlessSeed.cmi +0 -0
  66. package/lib/ocaml/Seed_Prompt-ReventlessSeed.cmt +0 -0
  67. package/lib/ocaml/Seed_Prompt.ast +0 -0
  68. package/lib/ocaml/Seed_Prompt.res +10 -20
  69. package/lib/ocaml/Seed_Random-ReventlessSeed.cmt +0 -0
  70. package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmi +0 -0
  71. package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmj +0 -0
  72. package/lib/ocaml/Seed_RandomTest-ReventlessSeed.cmt +0 -0
  73. package/lib/ocaml/Seed_RandomTest.ast +0 -0
  74. package/lib/ocaml/Seed_RandomTest.res +160 -0
  75. package/lib/ocaml/Seed_Runner-ReventlessSeed.cmi +0 -0
  76. package/lib/ocaml/Seed_Runner-ReventlessSeed.cmt +0 -0
  77. package/lib/ocaml/Seed_Runner.ast +0 -0
  78. package/lib/ocaml/Seed_Runner.res +5 -7
  79. package/lib/ocaml/Seed_Types-ReventlessSeed.cmt +0 -0
  80. package/lib/ocaml/Seed_Upload-ReventlessSeed.cmi +0 -0
  81. package/lib/ocaml/Seed_Upload-ReventlessSeed.cmj +0 -0
  82. package/lib/ocaml/Seed_Upload-ReventlessSeed.cmt +0 -0
  83. package/lib/ocaml/Seed_Upload.ast +0 -0
  84. package/lib/ocaml/Seed_Upload.res +39 -100
  85. package/package.json +5 -2
  86. package/rescript.json +1 -0
  87. package/src/Seed.res +4 -5
  88. package/src/Seed_Client.res +4 -0
  89. package/src/Seed_Client.res.mjs +5 -0
  90. package/src/Seed_Connect.res +13 -49
  91. package/src/Seed_Connect.res.mjs +5 -26
  92. package/src/Seed_Prompt.res +10 -20
  93. package/src/Seed_Prompt.res.mjs +1 -1
  94. package/src/Seed_Runner.res +5 -7
  95. package/src/Seed_Upload.res +39 -100
  96. package/src/Seed_Upload.res.mjs +61 -93
  97. package/tests/Seed_RandomTest.res +160 -0
  98. package/tests/Seed_RandomTest.res.mjs +208 -0
  99. package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmi +0 -0
  100. package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmj +0 -0
  101. package/lib/bs/tests/UploadEndpointResolutionTest-ReventlessSeed.cmt +0 -0
  102. package/lib/bs/tests/UploadEndpointResolutionTest.ast +0 -0
  103. package/lib/bs/tests/UploadEndpointResolutionTest.res +0 -101
  104. package/lib/bs/tests/UploadEndpointResolutionTest.res.mjs +0 -59
  105. package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmi +0 -0
  106. package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmj +0 -0
  107. package/lib/ocaml/UploadEndpointResolutionTest-ReventlessSeed.cmt +0 -0
  108. package/lib/ocaml/UploadEndpointResolutionTest.ast +0 -0
  109. package/lib/ocaml/UploadEndpointResolutionTest.res +0 -101
  110. package/tests/UploadEndpointResolutionTest.res +0 -101
  111. 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
@@ -1,2 +1,2 @@
1
- #Start(1785495045271)
2
- #Done(1785495045300)
1
+ #Start(1785603404546)
2
+ #Done(1785603404581)
@@ -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
@@ -4,7 +4,7 @@ Seed_Client
4
4
  Seed_Connect
5
5
  Seed_Prompt
6
6
  Seed_Random
7
+ Seed_RandomTest
7
8
  Seed_Runner
8
9
  Seed_Types
9
10
  Seed_Upload
10
- UploadEndpointResolutionTest
@@ -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": "550cd18b4200d0c4e45b3591d7a21cc8a90b9eb330c7f516684df53c86aeda60",
5
+ "rescript_config_hash": "25cfff836d200084949fdfdfec2f6875901bfee1f04d84634eca252ef1ca1ef1",
6
6
  "runtime_path": "/home/runner/work/reventless-core/reventless-core/node_modules/@rescript/runtime",
7
- "generated_at": "1785495045302"
7
+ "generated_at": "1785603404584"
8
8
  }
Binary file
Binary file
Binary file
@@ -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, the
18
- // deployment's upload endpoints (the legacy single service and the per-store
19
- // map, either of which may be empty), and a label.
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
- uploadEndpoint: string,
23
- uploadEndpoints: dict<string>,
22
+ uploadsSkipped: bool,
24
23
  label: string,
25
24
  }
26
25
 
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
@@ -9,15 +9,13 @@
9
9
 
10
10
  open Seed_Types
11
11
 
12
- // `uploadEndpoint` is the legacy single presign service (and the local dev
13
- // server's one upload route); `uploadEndpoints` maps the qualified
14
- // `{plugin}.{store}` of each declared store to its own presign endpoint. Both,
15
- // because a deployment may publish either or both — see `Seed_Upload.endpointFor`
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
- uploadEndpoint: string,
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 connection to carry no upload endpoint at
38
- // all, so a data set's upload phase no-ops the same way it does when a
39
- // deployment serves none. Use it to seed domain data fast, or to skip a
40
- // broken/absent upload path without editing the data set. It is the single
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, uploadEndpoint, uploadEndpoints, label}
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 per-store map: the local dev server serves every store through its one
102
- * upload route, so a data set naming a store resolves to that route by the
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=?, ~upload=?, ~login=?, ()): (unit => promise<connection>) => {
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, uploadEndpoint, uploadEndpointsOpt, login, localDefaultsOpt) {
10
- let uploadEndpoints = uploadEndpointsOpt !== undefined ? uploadEndpointsOpt : ({});
9
+ async function make(label, endpoint, login, localDefaultsOpt) {
11
10
  let localDefaults = localDefaultsOpt !== undefined ? localDefaultsOpt : false;
12
- let skip = Stdlib_Option.isSome(Seed_Prompt$ReventlessSeed.envValue("SEED_SKIP_UPLOADS"));
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
- uploadEndpoint: uploadEndpoint$1,
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, upload, login, param) {
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, uploadEndpoint, undefined, viaLoginEndpoint(loginEndpoint), true);
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
@@ -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->writeStream(s)
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->pauseStream
64
- stdin->unrefStream
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 processEnv->Dict.get(key) {
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->writeStream("\n")
94
+ NodeProcess.stdout->NodeProcess.write("\n")
105
95
  resolve(answer)
106
96
  })
107
97
  muted := true
@@ -53,7 +53,7 @@ function envValue(key) {
53
53
  }
54
54
 
55
55
  function requireTty() {
56
- if (process.stdin.isTTY) {
56
+ if (Stdlib_Option.getOr(process.stdin.isTTY, false)) {
57
57
  return;
58
58
  }
59
59
  throw {
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