From 301343e3a225a6066cd299b25c199806f16ae36c Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Fri, 5 Feb 2021 11:31:03 +0100 Subject: [PATCH] Remove warnings --- Handler/ShowChallenge.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index 470e865..9e00cf5 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -816,23 +816,23 @@ getAddUserR = do Nothing -> return $ Bool False getChallengeAllSubmissionsJsonR :: Text -> Handler Value -getChallengeAllSubmissionsJsonR name = do - v <- fetchAllSubmissionsView name +getChallengeAllSubmissionsJsonR challengeName = do + v <- fetchAllSubmissionsView challengeName return $ toJSON v getChallengeMySubmissionsJsonR :: Text -> Handler Value -getChallengeMySubmissionsJsonR name = do - v <- fetchMySubmissionsView name +getChallengeMySubmissionsJsonR challengeName = do + v <- fetchMySubmissionsView challengeName return $ toJSON v fetchAllSubmissionsView :: Text -> Handler SubmissionsView -fetchAllSubmissionsView name = do - fetchChallengeSubmissionsView (const True) name +fetchAllSubmissionsView challengeName = do + fetchChallengeSubmissionsView (const True) challengeName fetchMySubmissionsView :: Text -> Handler SubmissionsView -fetchMySubmissionsView name = do +fetchMySubmissionsView challengeName = do Entity userId _ <- requireAuthPossiblyByToken - fetchChallengeSubmissionsView (\(Entity _ submission) -> (submissionSubmitter submission == userId)) name + fetchChallengeSubmissionsView (\(Entity _ submission) -> (submissionSubmitter submission == userId)) challengeName convertTagInfoToView :: (Entity Import.Tag, Entity SubmissionTag) -> TagView convertTagInfoToView tagInfo =