s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

add auxiliary function

Browse Source
This commit is contained in:
Filip Gralinski 2017-02-19 16:12:14 +01:00
parent 846c2964cb
commit b6336a65af
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Handler/Common.hs
View File

@ -54,3 +54,11 @@ isPasswordAcceptable p = length p >= minPasswordLength && (p /= "0123456789") &&
tooWeakPasswordMessage :: Handler () tooWeakPasswordMessage :: Handler ()
tooWeakPasswordMessage = tooWeakPasswordMessage =
setMessage $ toHtml ("Password is too weak!!! A password needs to have at least " ++ (show minPasswordLength) ++ " characters.") setMessage $ toHtml ("Password is too weak!!! A password needs to have at least " ++ (show minPasswordLength) ++ " characters.")
checkIfCanEdit :: SubmissionId -> Handler Bool
checkIfCanEdit submissionId = do
submission <- runDB $ get404 submissionId
mUser <- maybeAuth
return $ case mUser of
Just (Entity userId user) -> userId == submissionSubmitter submission || userIsAdmin user
Nothing -> False