anchor.diff:  %s
     }
     """ page.AsType (propertyTemplate page)
  +
  +let bundleTemplate (page : Page) =
  +  if (not (page.PageMode = Create || page.PageMode = CVEL || page.PageMode = CVELS) ) || page.Fields = [] then ""
  +  else
  +    String.Format("""let {0}Bundle : Bundle<{1}> =
  +  {{
  +    single_fake = fake_{0}
  +    many_fake = many_fake_{0}
  +    getMany = getMany_{1}
  +    get_list = get_list_{0}
  +    get_edit = get_edit_{0}
  +    get_create = get_create_{0}
  +  }}
  +  """, page.AsVal, page.AsType)
   
   let converterTemplate (page : Page) =
     if page.Fields = [] then ""
  
positive.code:           FOUND <| sprintf "%s" id
          else
            OK (post_create_errored_%s validation %s))
      ]""" 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 =
  
negative.code:   let types_results = site.Pages |> List.map typeTemplate |> flatten
    let generated_types_result = generated_types_template types_results
  
    let bundles_results = site.Pages |> List.map bundleTemplate |> flatten
    let generated_bundles_result = generated_bundles_template bundles_results
  
    let page_paths = site.Pages |> List.map pagePathTemplate |> flatten
    let api_paths = site.APIs |> List.map apiPathTemplate |> flatten
    let paths_results = [page_paths; api_paths] |> flatten
  