anchor.diff:            if parsed && value > 1
             then
               many_fake_%s value
  -            OK <| get_list_%s ()
  +            let data = getMany_%s()
  +            OK <| get_list_%s data
             else
               let data = fake_%s ()
               OK <| get_edit_%s data
  
positive.code:     | Some(data) -> OK <| get_%s data)""" page.AsVal page.AsType page.AsVal
      | List  ->
        sprintf """
  let list_%s = GET >=> warbler (fun _ -> OK <| get_list_%s ())""" page.AsVal page.AsVal
      | Search ->
        sprintf """
  let search_%s =
  
negative.code:         ]
        ]
      ]
      scripts.datatable_bundle""" page.AsVal page.AsVal 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 """
  