Commit 77a02d5f authored by Aaron Wolf's avatar Aaron Wolf

more concise and clear code comments

parent 05d42acb
......@@ -40,11 +40,9 @@
-- The Auth subsite (login + logout)
/auth AuthR Auth getAuth
-- Referrer: hack. I believe there could be a better way to send users to
-- their original destination after logging in with Persona, but this is
-- used in the meanwhile.
-- Referrer: hack to redirect after Persona log in, but buggy; we need better.
/dest PostLoginR GET
-- Extra pages needed for password logins.
-- Pages for managing user auth for hashdb
/create-account CreateAccountR GET POST
/reset-password ResetPasswordR GET POST
......@@ -29,7 +29,7 @@ main = do
exists <- doesFileExist "Snowdrift.cabal"
unless exists $ error "please run from the project's root directory"
sdm <- getProgName >>= cmdArgs . mkSdm
run "sudo" ["-K"] -- require a password the first time 'sudo' is run
run "sudo" ["-K"] -- require the sudo passphrase each time running sdm
runReaderT handle sdm
data Sdm = Sdm
......@@ -179,8 +179,7 @@ getPHomeR handle = do
snowdriftTitle $ projectName project
$(widgetFile "project/home")
-- | The account creation page for new users using our own (password-based)
-- authentication.
-- | The new account page using hashdb (passphrase-based) authentication.
getCreateAccountR :: Handler Html
getCreateAccountR = do
(form, _) <- generateFormPost $ createUserForm Nothing
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment