set port
This commit is contained in:
parent
b9906af27f
commit
72426790b4
1 changed files with 7 additions and 1 deletions
|
|
@ -13,6 +13,7 @@
|
||||||
You should have received a copy of the GNU Affero General Public License
|
You should have received a copy of the GNU Affero General Public License
|
||||||
along with this program. If not, see <https://www.gnu.org/licenses/>. *)
|
along with this program. If not, see <https://www.gnu.org/licenses/>. *)
|
||||||
|
|
||||||
|
(* TODO check for mathcing ETAG with a middleware instead? *)
|
||||||
(* /terms + /privacy
|
(* /terms + /privacy
|
||||||
- try to find a response with an acceptable mime-type
|
- try to find a response with an acceptable mime-type
|
||||||
- pick the version in the most preferred language of the user
|
- pick the version in the most preferred language of the user
|
||||||
|
|
@ -91,7 +92,12 @@ let routes =
|
||||||
]
|
]
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
|
let cfg =
|
||||||
|
let port = 3696 in
|
||||||
|
let sockaddr = Unix.(ADDR_INET (inet_addr_loopback, port)) in
|
||||||
|
Vif.config sockaddr
|
||||||
|
in
|
||||||
Miou_unix.run @@ fun () ->
|
Miou_unix.run @@ fun () ->
|
||||||
let env = () in
|
let env = () in
|
||||||
let middlewares = Vif.Middlewares.[] in
|
let middlewares = Vif.Middlewares.[] in
|
||||||
Vif.run ~middlewares routes env
|
Vif.run ~cfg ~middlewares routes env
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue