anchor.diff:      | List      -> listFormViewTemplate page
       | Search    -> searchFormViewTemplate page
       | Register  -> [registerFormViewTemplate page; registerErroredFormViewTemplate page] |> flatten
  -    | Login     -> [loginFormViewTemplate page; loginErroredFormViewTemplate page] |> flatten
  +    | Login     -> [loginFormViewTemplate; loginErroredFormViewTemplate page] |> flatten
       | Jumbotron -> jumbotronViewTemplate site page
   
     viewTemplate site page page.PageMode
  
positive.code: let login =
    choose
      [
        GET >=> OK view_login
        POST >=> bindToForm %s (fun %s ->
          let validation = validation_%s %s
          if validation = [] then
  
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
  