anchor.diff:              let txt = System.Text.Encoding.ASCII.GetString(h.request.rawForm)
               try 
                 let o = JToken.Parse(txt)
  -              let evt = JsonEventArgs(h, o, pat, m, def)
  +              let evt = JsonEventArgs(h, o, pat, m)
                 async { e.Trigger(evt) } |> Async.Start |> ignore
                 return! evt.Result h
               with _ -> return None
  
positive.code:     open System.Text.RegularExpressions
      open Newtonsoft.Json.Linq
  
      type HttpEventArgs(h:HttpContext, path:string, m:Match, def:WebPart) =
          inherit System.EventArgs()
  
          let mutable result : Option<WebPart> = None
  
negative.code:       }
  
      let json_react (evt : JsonEventBind) =
        let pat, e = evt
        POST
        >=>
        contentType "application/json"
  