anchor.diff:                                          let n = a.Name.LocalName
                                           if n.StartsWith dataEvent then
                                               let eventName = n.[dataEvent.Length..]
  -                                            let cbVar = getCallbackVar a.Value
  +                                            let cbVar = getVar a.Value
                                               <@ Attr.Handler eventName %cbVar @>
                                           else
                                               match getParts a.Value with
  
positive.code:                                     | null -> <@ Doc.Element n %attrs %nodes @>
                                      | a ->
                                          if n.ToLower() = "input" then
                                              let var = getStringVarVar a.Value
                                              <@ Doc.Input %attrs %var @>
                                          elif n.ToLower() = "textarea" then
                                              let var = getStringVarVar a.Value
                                              <@ Doc.InputArea %attrs %var @>
                                          else failwithf "data-var attribute \"%s\" on invalid element \"%s\"" a.Value n
  
                              | a -> getDocVar a.Value
                          
                          let mainExpr = t |> createNode true
  
  
negative.code:     let templateTy = ProvidedTypeDefinition(thisAssembly, rootNamespace, "Template", None)
  
      let mutable watcher: FileSystemWatcher = null
  
      let textHoleRegex = Regex @"\$\{([^\}]+)\}" 
      let dataHole = xn"data-hole"
  