anchor.diff:               })
   
                pathScan "/%s/operations" listOperations
  -
  -             pathScan "/kek%s" test
  +             
  +             path "/kek" >=> test
  +             pathScan "/kek.%s" test2
                
                NOT_FOUND "Route not found ¯\_(ツ)_/¯" ]
           ]
  
positive.code:         }
        )
      
      let FormatExtractor = fun(extension, request:HttpRequest) ->
        let ex = match extension with
                 | ".json" -> KnownFormat Json
                 | ".csv"  -> KnownFormat Csv
                 | ".xml"  -> KnownFormat Xml
                 | ""      -> KnownFormat Default
                 | f       -> UnknownFormat f
  
        match ex with
          | KnownFormat Default ->
                let accept = request.headers.Where(fun (k, v) -> k = "accept").Select(fun (k, v) -> v).First()
                let accepts = accept.Split [|';'|]
                let format = accepts |> List.ofSeq |> List.fold(fun acc elem -> match acc with
                                                                                | Some(r) -> Some(r)
                                                                                | _       -> match elem with
                                                                                             | "text/json" -> Some(Json)
                                                                                             | "text/csv"  -> Some(Csv)
                                                                                             | "text/xml"  -> Some(Xml)
                                                                                             | _           -> None) None
                match format with
                | Some(f) -> KnownFormat f
                | _       -> KnownFormat Json
          | KnownFormat e   -> KnownFormat e
          | UnknownFormat f -> UnknownFormat f
  
      let test ex =
        request(fun request ->
            cmdr {
                let! format = FormatExtractor(ex, request)
                return format |> json |> OK
            }
        )
  
negative.code: open EDEngineer.Models.Barda.Collections
  open EDEngineer.Models
  
  type Format = Json | Xml | Csv
  
  type Cmdr<'TGood, 'TBad> = 
    | Found of 'TGood
  