Commits

Anonymous committed 739548a

Fix -p flag.

Comments (0)

Files changed (1)

         let sigRx = (sigRx :> [ `Signal of int ] G.rx) in
         let sigTx = (sigTx :> Iom_reactor.control_t G.tx) in
         G.simplex >>= fun (ctrlRx, ctrlTx) ->
-        TCP.listen ~c:ctrlRx ~e:Opt.maxEndpoints k >>=
+        TCP.listen ~src:Opt.addr ~c:ctrlRx ~e:Opt.maxEndpoints k >>=
             fun (listenRx, eventRx) ->
         let listenRx = (listenRx :> TCP.listener_signal_t G.rx) in
         let eventRx = (eventRx :> TCP.connection G.rx) in