Commit 57c6e36c authored by Josh Kunz's avatar Josh Kunz

Allows the user to pick their own listen port.

parent cc49ba11
......@@ -181,4 +181,9 @@ let main port =
accept_loop () in
accept_loop ();;
main 8080;;
match Sys.argv with
| [| name |] -> main 8080;
| [| name; port |] -> int_of_string port |> main;
| _ ->
prerr_endline "Unrecognized command line arguments.";
Pervasives.exit 1;;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment