diff options
| author | Clombrong <clombrong@egregore.fun> | 2025-05-29 22:32:05 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-05-29 22:32:05 +0200 |
| commit | 94ca2d0a5052edbba7a629254cf509d8f8aff6a8 (patch) | |
| tree | 3e38a78576d9aabfc7ebd9920bbed6ab1b4ae39d | |
| parent | b2bb4644c85f055fb2cfed1e0726044c7e85d00f (diff) | |
feat(portal): make portal_ws an implementation of portal
| -rw-r--r-- | portal/lib/ws/dune | 1 | ||||
| -rw-r--r-- | portal/lib/ws/portal.ml (renamed from portal/lib/ws/portal_ws.ml) | 0 | ||||
| -rw-r--r-- | portal/test/js/websockets_hello.ml | 6 |
3 files changed, 4 insertions, 3 deletions
diff --git a/portal/lib/ws/dune b/portal/lib/ws/dune index a7c9844..fa14219 100644 --- a/portal/lib/ws/dune +++ b/portal/lib/ws/dune @@ -1,5 +1,6 @@ (library (name portal_ws) + (implements portal) (public_name portal-websockets) (libraries lwt js_of_ocaml js_of_ocaml-lwt xmlm markup markup-lwt) (preprocess (pps js_of_ocaml-ppx))) diff --git a/portal/lib/ws/portal_ws.ml b/portal/lib/ws/portal.ml index b0fe295..b0fe295 100644 --- a/portal/lib/ws/portal_ws.ml +++ b/portal/lib/ws/portal.ml diff --git a/portal/test/js/websockets_hello.ml b/portal/test/js/websockets_hello.ml index 795135e..5705dc9 100644 --- a/portal/test/js/websockets_hello.ml +++ b/portal/test/js/websockets_hello.ml @@ -19,9 +19,9 @@ let () = run @@ let domain = "egregore.fun" in let* stream, push = - Portal_ws.connect domain in - push (Some (Portal_ws.stanza_open domain)); - push (Some Portal_ws.stanza_close); + Portal.connect domain in + push (Some (Portal.stanza_open domain)); + push (Some Portal.stanza_close); Lwt_stream.iter (fun stanza -> print_endline (">>> " ^ stanza)) |