Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add destination cookie in register form.

  • Loading branch information...
commit 86f660a50782bee039b6ef6000d610293b0da6dd 1 parent 0c43d74
@jgm jgm authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  Gitit.hs
View
1  Gitit.hs
@@ -1007,6 +1007,7 @@ registerForm = do
registerUserForm :: String -> Params -> Web Response
registerUserForm _ params =
+ addCookie (60 * 10) (mkCookie "destination" $ substitute " " "%20" $ fromMaybe "/" $ pReferer params) >>
registerForm >>=
formattedPage (defaultPageLayout { pgShowPageTools = False, pgTabs = [], pgTitle = "Register for an account" }) "_register" params
Please sign in to comment.
Something went wrong with that request. Please try again.