anchor.diff:                                              | p ->
                                                   let rec collect parts =
                                                       match parts with
  -                                                    | [ TextHole h ] -> getVar h
  +                                                    | [ TextHole h ] -> getViewHole h
                                                       | [ TextHole h; TextPart t ] -> 
  -                                                        <@ View.Map (fun s -> s + t) %(getVar h) @>
  +                                                        <@ View.Map (fun s -> s + t) %(getViewHole h) @>
                                                       | [ TextPart t; TextHole h ] -> 
  -                                                        <@ View.Map (fun s -> t + s) %(getVar h) @>
  +                                                        <@ View.Map (fun s -> t + s) %(getViewHole h) @>
                                                       | [ TextPart t1; TextHole h; TextPart t2 ] ->
  -                                                        <@ View.Map (fun s -> t1 + s + t2) %(getVar h) @>
  +                                                        <@ View.Map (fun s -> t1 + s + t2) %(getViewHole h) @>
                                                       | TextHole h :: rest ->
  -                                                        <@ View.Map2 (fun s1 s2 -> s1 + s2) %(getVar h) %(collect rest) @>
  +                                                        <@ View.Map2 (fun s1 s2 -> s1 + s2) %(getViewHole h) %(collect rest) @>
                                                       | TextPart t :: TextHole h :: rest ->
  -                                                        <@ View.Map2 (fun s1 s2 -> t + s1 + s2) %(getVar h) %(collect rest) @>
  +                                                        <@ View.Map2 (fun s1 s2 -> t + s1 + s2) %(getViewHole h) %(collect rest) @>
                                                       | _ -> failwithf "collecting attribute parts failure" // should not happen
                                                   <@ Attr.Dynamic n %(collect p) @>
                                       )
  
positive.code:                         )    
                                          
                      let addTemplateMethod (t: XElement) (toTy: ProvidedTypeDefinition) =                        
                          let vars = ResizeArray()
  
                          let getVar name : Expr<'T> =
                              let v = Var(name, typeof<'T>)
                              vars.Add(v)
                              Expr.Var v |> Expr.Cast
  
                          let getParts (t: string) =
                              if t = "" then [] else
  
negative.code: namespace WebSharper.UI.Next.Templating
  
  open System
  open System.Collections.Generic
  open System.IO
  open System.Reflection
  open System.Xml.Linq
  