Skip to content
Browse files

Add destination cookie in register form.

  • Loading branch information...
1 parent 0c43d74 commit 86f660a50782bee039b6ef6000d610293b0da6dd @jgm committed Dec 28, 2008
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

0 comments on commit 86f660a

Please sign in to comment.
Something went wrong with that request. Please try again.