anchor.diff:                >=> statefulForSession
                 >=> sessionStore (fun store -> store.set "user_id" loginAttempt.UserID)
                 >=> request (fun _ -> FOUND "/")
  -            | None -> OK view_login
  +            | 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
  
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:     | List      -> listFormViewTemplate page
      | Search    -> searchFormViewTemplate page
      | Register  -> [registerFormViewTemplate page; registerErroredFormViewTemplate page] |> flatten
      | Login     -> [loginFormViewTemplate; loginErroredFormViewTemplate page] |> flatten
      | Jumbotron -> jumbotronViewTemplate site page
  
    viewTemplate site page page.PageMode
  