From b6336a65afa5ce088d8fbcc0d3932986bb025f62 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Sun, 19 Feb 2017 16:12:14 +0100 Subject: [PATCH] add auxiliary function --- Handler/Common.hs | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/Handler/Common.hs b/Handler/Common.hs index 379b40f..f104fd1 100644 --- a/Handler/Common.hs +++ b/Handler/Common.hs @@ -54,3 +54,11 @@ isPasswordAcceptable p = length p >= minPasswordLength && (p /= "0123456789") && tooWeakPasswordMessage :: Handler () tooWeakPasswordMessage = 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