Module for declaring MVC route configurations in F#

RouteConfig.fs

/// MVC Route configurations
module RouteConfig =
 
  open System.Web.Mvc
  open System.Web.Routing
 
  let registerRoutes (routes: RouteCollection) =
    routes.IgnoreRoute("{resource}.axd/{*pathInfo}")
 
  /// create a pair, boxing the second item
  let inline (=>) a b = a, box b
 
  /// set the Defaults property from a given dictionary
  let setDefaults defaultDict (route : Route) =
    route.Defaults <- RouteValueDictionary(defaultDict)
 
  routes.MapRoute(name="Default", url="{controller}/{action}/{id}")
  |> setDefaults (dict ["controller" => "Home"
                        "action" => "Index"
                        "id" => UrlParameter.Optional])