anchor.diff:      | 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
  +let list_%s = GET >=> warbler (fun _ -> OK <| get_list_%s (getMany_%s ()))""" page.AsVal page.AsVal page.AsType
       | Search ->
         sprintf """
   let search_%s =
  
positive.code: let listFormViewTemplate (page : Page) =
    let idField = page.Fields |> List.find (fun field -> field.FieldType = Id)
    sprintf """
  let get_list_%s () =
    let %ss = getMany_%s ()
    let toTr (%s : %s) inner =
      trLink (sprintf "%s" %s.%s) inner
  
  
negative.code:           if parsed && value > 1
            then
              many_fake_%s value
              let data = getMany_%s()
              OK <| get_list_%s data
            else
              let data = fake_%s ()
              OK <| get_edit_%s data
  