anchor.diff:      | Some state -> setF state
       | None -> never)
   
  +let reset =
  +    unsetPair Auth.SessionAuthCookie
  +    >>= Redirection.FOUND Path.home
  +
  +let redirectWithReturnPath redirection =
  +    request (fun x ->
  +        let path = x.url.AbsolutePath
  +        Redirection.FOUND (redirection |> Path.withParam ("returnPath", path)))
  +
   let returnPathOrHome = 
       request (fun x -> 
           let path = 
  
positive.code:             | Choice1Of2 path -> path
              | _ -> Path.home
          Redirection.FOUND path)
  
  let html container =
      OK (View.index container)
  
negative.code: open System
  
  open Suave
  open Suave.Cookie
  open Suave.Form
  open Suave.Http
  open Suave.Http.Successful
  