anchor.diff:         | 0 -> ()
          | a -> failwithf "Failed to grant rights for listening to http, exit code: %d" a
   
  +/// Starts a http listener on the given server and port.
   let start log serverName port requestMap =
       let cts = new CancellationTokenSource()
       let usedPort = getPort port
  
positive.code: 
  let private getStatus args (ctx : HttpListenerContext) = "Http listener is running"
  
  let defaultRoutes =
      [ "GET", "", getStatus] 
  
  let createRoutes routes = 
      routes
      |> Seq.map (fun (verb, route : string, func) ->        
  
negative.code:     ctx.Response.AddHeader("access-control-allow-headers", "content-type, accept")
      ctx.Response.Close(response, true)
  
  /// [omit]
  let placeholderRegex = new Regex("{([^}]+)}",RegexOptions.Compiled)
  
  /// [omit]
  let routeMatcher route =
      let dict = new System.Collections.Generic.Dictionary<int,string>()
  
  