14 lines
386 B
Haskell
14 lines
386 B
Haskell
|
module Handler.ListChallenges where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
|
||
|
|
getListChallengesR :: Handler Html
|
||
|
|
getListChallengesR = do
|
||
|
|
challenges' <- runDB $ selectList [] [Desc ChallengeStamp]
|
||
|
|
let challenges = map (\(Entity _ v) -> v) challenges'
|
||
|
|
defaultLayout $ do
|
||
|
|
setTitle "List challenges"
|
||
|
|
$(widgetFile "list-challenges")
|
||
|
|
|
||
|
|
listChallengesCore challenges = $(widgetFile "list-challenges-core")
|