anchor.diff:                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 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
  +              | _       -> KnownFormat Json
  +        | KnownFormat e   -> KnownFormat e
           | UnknownFormat f -> UnknownFormat f
   
       let test ex =
  
positive.code:                    |> List.filter
                       (fun e -> match e.Timestamp with
                                 | t when t >= timestamp -> true
                                 | _ -> false)
                     |> json 
                     |> OK
          }
  
negative.code:       | KnownFormat v -> f v
        | NotFound commander -> (sprintf "Commander %s not found (๑´╹‸╹`๑)" commander) |> NOT_FOUND
        | BadString s -> (sprintf "Couldn't parse time %s ヘ（。□°）ヘ" s) |> BAD_REQUEST
        | UnknownFormat s -> (sprintf "Unknown file format requested %s (╬ ꒪Д꒪)ノ" s) |> BAD_REQUEST
    member this.Return value = value
  
  let cmdr = CmdrBuilder()
  