anchor.diff:  let genericNotFound = RequestErrors.NOT_FOUND "Not found"  
   
   let tryMapJson (f: 'a -> Types.WebPart): Types.WebPart =
  -  choose
  -    [
  -      ParsingAndControl.parse_post_data >>= tryMapJson' f
  -      RequestErrors.BAD_REQUEST "Unable to parse post data"
  -    ]+    Suave.Types.request (fun r ->  
  +      match tryParseJson r with
  +      | Some request_json, _ -> f request_json
  +      | None, str -> RequestErrors.BAD_REQUEST ("Could not parse JSON: " + str)
  +  )
positive.code: open Newtonsoft.Json
  open Suave
  open Suave.Http
  open Suave.Web
  open System.Text
  
  let private tryParseJson (r:Types.HttpRequest) =
  
negative.code:   with
    | e -> None, str
  
  let private serializeObject obj =
      JsonConvert.SerializeObject(obj)
  
  