2015-09-04 23:23:32 +02:00
|
|
|
module Handler.ListChallenges where
|
|
|
|
|
|
|
|
|
|
import Import
|
|
|
|
|
|
|
|
|
|
getListChallengesR :: Handler Html
|
|
|
|
|
getListChallengesR = do
|
2018-01-25 16:43:50 +01:00
|
|
|
challenges <- runDB $ selectList [] [Desc ChallengeStarred, Desc ChallengeStamp]
|
2015-09-04 23:23:32 +02:00
|
|
|
defaultLayout $ do
|
|
|
|
|
setTitle "List challenges"
|
|
|
|
|
$(widgetFile "list-challenges")
|
|
|
|
|
|
|
|
|
|
listChallengesCore challenges = $(widgetFile "list-challenges-core")
|
2018-01-18 08:21:06 +01:00
|
|
|
|
|
|
|
|
getChallengeImageR :: ChallengeId -> Handler Html
|
|
|
|
|
getChallengeImageR challengeId = do
|
|
|
|
|
challenge <- runDB $ get404 challengeId
|
|
|
|
|
case challengeImage challenge of
|
|
|
|
|
Just image -> do
|
|
|
|
|
addHeader "Content-Disposition" "attachment; filename=\"image.png\""
|
|
|
|
|
sendResponse (typePng, toContent image)
|
|
|
|
|
Nothing -> sendResponseStatus status202 ()
|
