anchor.diff:  
       let gen = System.Random()
   
  -    type Requires(reqs) =
  +    type Requires(reqs, onGetRequires: M.Info -> unit) =
   
           [<System.NonSerialized>]
           let reqs = reqs
   
           interface WebSharper.Html.Client.IRequiresResources with
  -            member this.Requires meta = reqs :> seq<_>
  +            member this.Requires meta =
  +                onGetRequires meta
  +                reqs :> seq<_>
   
       let Handler (event: string) (q: Expr<#WebSharper.JavaScript.Dom.Event -> unit>) =
           let declType, name, reqs =
  
positive.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 func =
              match WebSharper.Web.Shared.Metadata.GetAddress declType with
              | None ->
                  failwithf "Error in Handler at %s: Couldn't find address for method"
                      (getLocation q)
  
negative.code:                     match a.Parent with
                      | None -> acc
                      | Some p -> mk acc p
                  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 a -> [a]
  
  namespace WebSharper.UI.Next.Client
  
  