anchor.diff:                      match a.Parent with
                       | None -> acc
                       | Some p -> mk acc p
  -                String.concat "." (mk [name] a)
  -        SingleAttr("on" + event, func + "(event)", Some (Requires(reqs) :> _))
  +                attr.Value <- String.concat "." (mk [name] a) + "(event)"
  +        SingleAttr attr 
   
       let rec AsAttributes attr : list<Attribute> =
           match attr with
  -        | AppendAttr a ->
  -            List.collect AsAttributes a
  -        | SingleAttr(name, value, req) ->
  -            [{Name = name; Value = value; Annotation = req}]
  +        | AppendAttr a -> List.collect AsAttributes a
  +        | SingleAttr a -> [a]
   
   namespace WebSharper.UI.Next.Client
   
  
positive.code: 
      let gen = System.Random()
  
      type Requires(reqs) =
  
          [<System.NonSerialized>]
          let reqs = reqs
  
          interface WebSharper.Html.Client.IRequiresResources with
              member this.Requires meta = reqs :> seq<_>
  
      let Handler (event: string) (q: Expr<#WebSharper.JavaScript.Dom.Event -> unit>) =
          let declType, name, reqs =
  
negative.code:                 let rm = R.Method.Parse m
                  rm.DeclaringType, rm.Name, [M.MethodNode rm; M.TypeNode rm.DeclaringType]
              | _ -> failwithf "Invalid handler function: %A" q
          let rec attr : WebSharper.Html.Server.Html.Attribute =
              { Name = "on" + event
                Value = ""
                Annotation = Some (Requires(reqs, func) :> _) }
          and func (meta: M.Info) =
              match meta.GetAddress declType with
              | None ->
                  failwithf "Error in Handler at %s: Couldn't find address for method"
                      (getLocation q)
  