anchor.diff:  let login =
     choose
       [
  -      GET >=> OK view_login
  +      GET >=> (OK <| view_login false "")
         POST >=> bindToForm %s (fun %s ->
           let validation = validation_%s %s
           if validation = [] then
  
positive.code:     ]
      scripts.common""" page.AsFormVal page.AsFormType page.Name page.Name (formatErroredFields page page.Fields 5)
  
  let loginFormViewTemplate (page : Page) =
    sprintf """
  let view_login =
    base_html
      "%s"
      [
        base_header brand
        common_register_form
          "%s"
          [
  %s
          ]
      ]
      scripts.common""" page.Name page.Name (formatEditFields page.Fields 5)
  
  let loginErroredFormViewTemplate (page : Page) =
    sprintf """
  
negative.code:               >=> statefulForSession
                >=> sessionStore (fun store -> store.set "user_id" loginAttempt.UserID)
                >=> request (fun _ -> FOUND "/")
              | None -> OK <| view_login true loginForm.Email
          else
            OK (view_errored_%s validation %s))
      ]"""  page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormVal page.AsFormVal page.AsVal page.AsFormVal
  