miragesdk: fix compilation of the dhcp-client image

Signed-off-by: Thomas Gazagnaire <thomas@gazagnaire.org>
This commit is contained in:
Thomas Gazagnaire
2017-03-30 18:35:52 +02:00
parent faa9e1811d
commit d4db6c65a1
2 changed files with 4 additions and 1 deletions

View File

@@ -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
)