anchor.diff:    """ page.AsType (propertyTemplate page)
   
   let bundleSecondTypeTemplate page = if needsFormType page then sprintf "%s" page.AsFormType else sprintf "DummyForm"
  -let bundleValidateFormTemplate page = if needsValidation page then sprintf "Some validate%s" page.AsFormType else "None"
  +let bundleValidateFormTemplate page = if needsValidation page then sprintf "Some validation_%s" page.AsFormVal else "None"
   let bundleConvertFormTemplate page = if needsConvert page then sprintf "Some convert%s" page.AsFormType else "None"
   let bundleFakeSingleTemplate page = if needsFakeData page then sprintf "Some fake_%s" page.AsVal else "None"
   let bundleFakeManyTemplate page = if needsFakeData page then sprintf "Some fake_many_%s" page.AsVal else "None"
  
positive.code:     [
        GET >=> OK view_register
        POST >=> bindToForm %s (fun %s ->
          let validation = validate%s %s
          if validation = [] then
            let converted = convert%s %s
            let id = insert_%s converted
            FOUND "/"
          else
            OK (view_errored_%s validation %s))
      ]""" page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsFormType page.AsFormVal page.AsVal page.AsVal page.AsFormVal
      | Login    ->
        sprintf """
  let login =
  
negative.code:     [
        GET >=> OK view_login
        POST >=> bindToForm %s (fun %s ->
          let validation = validation_%s %s
          if validation = [] then
            let converted = convert%s %s
            ignore converted
            OK ""
          else
            OK (view_errored_%s validation %s))
      ]"""  page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormType page.AsFormVal page.AsVal page.AsFormVal
  
    pageHandlerTemplate page page.PageMode
  
  