diff --git a/projects/miragesdk/src/Dockerfile.build b/projects/miragesdk/src/Dockerfile.build index 449b1b5ad..4c0cfb568 100644 --- a/projects/miragesdk/src/Dockerfile.build +++ b/projects/miragesdk/src/Dockerfile.build @@ -6,6 +6,7 @@ RUN opam pin -n add mirage-net-unix https://github.com/samoht/mirage-net-unix.gi RUN opam depext -iy mirage-net-unix logs-syslog irmin-unix cohttp decompress RUN opam depext -iy rawlink tuntap.1.0.0 jbuilder irmin-watcher inotify +RUN opam install rresult RUN sudo mkdir -p /src COPY ./sdk /src/sdk @@ -15,5 +16,7 @@ RUN sudo chown opam -R /src USER opam WORKDIR /src +RUN opam pin add cstruct --dev # for ppx/jbuilder + RUN opam config exec -- jbuilder build dhcp-client/main.exe RUN sudo cp /src/_build/default/dhcp-client/main.exe /dhcp-client diff --git a/projects/miragesdk/src/dhcp-client/main.ml b/projects/miragesdk/src/dhcp-client/main.ml index e88041f87..35809c587 100644 --- a/projects/miragesdk/src/dhcp-client/main.ml +++ b/projects/miragesdk/src/dhcp-client/main.ml @@ -52,7 +52,7 @@ let run () cmd ethif path = ] in Ctl.v "/data" >>= fun ctl -> let fd = Init.(Fd.fd @@ Pipe.(priv ctl)) in - let ctl () = Ctl.serve ~routes ctl fd in + let ctl () = Ctl.Server.listen ~routes ctl fd in let handlers () = Handlers.watch path in Init.run ~net ~ctl ~handlers cmd )