FSharp Script TO Run Local Http Server

RunSuave.fs

// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.

open Suave
open Suave.Filters
open Suave.Operators
open Suave.Successful
open Suave.Sockets
open System.Net

let mkMimeType name compression = 
    { name=name; compression=compression } |> Some 


let app =  
    choose[
        GET >=> choose
            [   
                path "/test.bin" >=> Files.file "test.bin"
                path "/test" >=> OK "Hello Test"
            ]
        POST >=> choose
            [   
                path "/test.bin" >=> Files.file "test.bin"
            ]
    ]

let defaultMimeTypesMap = function
    | ".bin" -> mkMimeType "application/octet-stream" false
    | _ -> None

[<EntryPoint>]
let main argv = 
    let socketBinding = {ip = IPAddress.Any; port = uint16 84}
    let binding = {scheme = Protocol.HTTP; socketBinding = socketBinding}
    let bindings = [|binding|] |> Array.toList
    let webConfig = {defaultConfig with mimeTypesMap = defaultMimeTypesMap; bindings = bindings}
    startWebServer webConfig app
    0 // return an integer exit code