filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

Refactor listing challenges

Browse Source
This commit is contained in:
Filip Gralinski 2020-10-12 07:17:48 +02:00
parent c15dd30804
commit 5b05c4441c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Handler/ListChallenges.hs
View File

@ -8,12 +8,17 @@ getListChallengesR = generalListChallenges [ChallengeArchived !=. Just True]
getListArchivedChallengesR :: Handler Html getListArchivedChallengesR :: Handler Html
getListArchivedChallengesR = generalListChallenges [ChallengeArchived ==. Just True] getListArchivedChallengesR = generalListChallenges [ChallengeArchived ==. Just True]
generalListChallenges :: [Filter Challenge] -> Handler Html
generalListChallenges filterExpr = do generalListChallenges filterExpr = do
challenges <- runDB $ selectList filterExpr [Desc ChallengeStarred, Desc ChallengeStamp] challenges <- getChallenges filterExpr
defaultLayout $ do defaultLayout $ do
setTitle "List challenges" setTitle "List challenges"
$(widgetFile "list-challenges") $(widgetFile "list-challenges")
getChallenges :: [Filter Challenge] -> Handler [Entity Challenge]
getChallenges filterExpr = runDB $ selectList filterExpr [Desc ChallengeStarred, Desc ChallengeStamp]
listChallengesCore :: [Entity Challenge] -> Widget
listChallengesCore challenges = $(widgetFile "list-challenges-core") listChallengesCore challenges = $(widgetFile "list-challenges-core")
getChallengeImageR :: ChallengeId -> Handler Html getChallengeImageR :: ChallengeId -> Handler Html