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

more concise and clear code comments

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