anchor.diff:                      | false, _ -> Map.empty
                   d.[c.CustomizedName] <-
                       (existing, allowedMeths)
  -                    ||> Seq.fold (fun map m -> Map.add (Option.map Http.Method.OfString m) i map)
  +                    ||> Seq.fold (fun map m ->
  +                        let k = (Option.map Http.Method.OfString m)
  +                        Map.add k (i :: defaultArg (map.TryFind k) []) map)
                   let fields = c.GetFields()
                   parseTuple t (uC c)
                       (fields |> Array.mapi (fun i f ->
  
positive.code:                 let sb = System.Text.StringBuilder 128
                  if input = null then None else
                      let parts = input.Split '/'
                      let e = (parts :> seq<string>).GetEnumerator()
                      let n () = if e.MoveNext() then Some e.Current else None
                      let parsed = d.Decode { Request = req; Read = n }
                      // Checking that we are at the end of the url,
                      // at worst with an extra / (ie. an extra empty segment)
                      if e.MoveNext() && not (e.Current = "" && not (e.MoveNext()))
                      then None
                      else parsed
              show = fun value ->
                  let sb = System.Text.StringBuilder 128
                  let q = List()
  
negative.code:                 | false, _ -> None))
      | Other t ->
          let parse = parsePrimitiveType t
          D.Make(false, Set.empty, fun (p: Parameters) ->
              match p.Read () with
              | Some s -> parse s |> Option.map Success
              | None -> None)
  