anchor.diff:  open Newtonsoft.Json
   open Suave
   open Suave.Http
  -open Suave.Web
   open System.Text
   
   let private tryParseJson (r:Types.HttpRequest) =
  
positive.code: 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"
      ]
negative.code:   with
    | e -> None, str
  
  let private serializeObject obj =
      JsonConvert.SerializeObject(obj)
  
  