Sample OWIN WebAPI startup in F#

owinstartup.fs

open System.Web.Http
open Newtonsoft.Json.Serialization
open global.Owin

type Config = {
    id : RouteParameter
}

type Startup() =
    member __.Configuration(app:IAppBuilder) =
        let config =
            let config = new HttpConfiguration()
            config.Formatters.Remove config.Formatters.XmlFormatter |> ignore // optional - don't emit data as XML
            config.Formatters.JsonFormatter.SerializerSettings.ContractResolver <- DefaultContractResolver() // optional - use the JSON serializer for F# types etc.
            config.Routes.MapHttpRoute("DefaultApi", "api/{controller}/{id}", { id = RouteParameter.Optional }) |> ignore // set up default web api route
            config
    
        app.UseWebApi config |> ignore // turn on Web API!