anchor.diff:    write (destination "generated_handlers.fs") generated_handlers_result
     write (destination "generated_forms.fs") generated_forms_result
     write (destination "generated_types.fs") generated_types_result
  +  write (destination "generated_bundles.fs") generated_bundles_result
     write (destination "generated_paths.fs") generated_paths_result
     write (destination "generated_validation.fs") generated_validation_result
     write (destination "generated_unittests.fs") generated_unittests_result
  
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
  