anchor.diff:      let timeRoute = fun s -> match s with
                                | Some(t) -> match InstantPattern.GeneralPattern.Parse(t) with
                                             | e when e.Success = true -> Parsed e.Value
  -                                          | _ -> BadString t
  -                             | None -> Parsed Instant.MinValue
  +                                          | _                       -> BadString t
  +                             | None    -> Parsed Instant.MinValue
   
       let listOperations commander =
         request(fun request ->
           let timestampString = match request.queryParam "last" with
  -                              | Choice1Of2 s -> Some(s)
  +                              | Choice1Of2 s     -> Some(s)
                                 | Choice2Of2 other -> None
   
           cmdr {
  
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
          }
  