Preserve service submodules for embedding via `raco exe`

2023-10-12 16:51:53 +02:00 · 2023-10-12 16:51:53 +02:00 · d1286b43f0
parent e75453d0b4
commit d1286b43f0
1 changed files with 1 additions and 0 deletions
--- a/syndicate/service.rkt
+++ b/syndicate/service.rkt
@ -47,6 +47,7 @@
    [(_ [dataspace] body ...)
     (module+ #%service
       (provide #%service)
+       (module+ declare-preserve-for-embedding)
       (define (#%service service-name dataspace)
         (syntax-parameterize ([registry-dataspace (make-rename-transformer #'dataspace)])
           (log-syndicate/service-debug "Providing ~v" (ServiceState service-name (State-ready)))