anchor.diff:      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
  +               | ".csv"  -> KnownFormat Csv
  +               | ".xml"  -> KnownFormat Xml
  +               | ""      -> KnownFormat Default
  +               | f       -> UnknownFormat f
   
         match ex with
           | KnownFormat Default ->
  
positive.code:               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 =
  
negative.code:                    |> List.filter
                       (fun e -> match e.Timestamp with
                                 | t when t >= timestamp -> true
                                 | _                     -> false)
                     |> json 
                     |> OK
          }
  