anchor.diff:            FOUND <| sprintf "%s" id
           else
             OK (post_create_errored_%s validation %s))
  -    ]""" page.AsVal page.AsVal page.AsVal page.AsVal page.AsVal page.AsVal page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsFormType page.AsFormVal page.AsType page.AsViewHref page.AsVal page.AsFormVal
  +    ]""" page.AsVal page.AsVal page.AsType page.AsVal page.AsVal page.AsVal page.AsVal page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsFormType page.AsFormVal page.AsType page.AsViewHref page.AsVal page.AsFormVal
       | Submit    ->
         sprintf """
   let submit_%s =
  
positive.code:         ]
        ]
      ]
      scripts.datatable_bundle""" page.AsVal page.AsVal page.AsType page.AsVal page.AsType page.AsViewHref page.AsVal idField.AsProperty page.AsVal page.AsType (fieldsToTd page) page.Name page.Name page.AsCreateHref (fieldsToHeaders page) page.AsVal
  
  let searchFormViewTemplate (page : Page) =
    sprintf """
  
negative.code: let listFormViewTemplate (page : Page) =
    let idField = page.Fields |> List.find (fun field -> field.FieldType = Id)
    sprintf """
  let get_list_%s %ss =
    let toTr (%s : %s) inner =
      trLink (sprintf "%s" %s.%s) inner
  
  