NanoWebServer.fs

Program.fs

open Suave
open Argu

type Args = 
| [<EqualsAssignment>] IP   of host:string
| [<EqualsAssignment>] Port of port:int
with
    interface IArgParserTemplate with
        member s.Usage =
            match s with
            | IP _ -> "Address where WebAPI will be available."
            | Port _ -> "WebAPI port."

[<EntryPoint>]
let main argv = 
    let parser = ArgumentParser.Create<Args>()
    let args = parser.Parse argv
    let host = args.GetResult IP   
    let port = args.GetResult Port 

    startWebServer {
        defaultConfig with 
            bindings = [ HttpBinding.createSimple HTTP host port ]
    } (Successful.OK "Hello from NanoWebServer!")

    0

run.cmd

NanoWebServer.exe --ip=127.0.0.1 --port=8082