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: 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
  
  