s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Add challenge-info endpoint

Browse Source
This commit is contained in:
Filip Gralinski 2021-02-15 18:27:10 +01:00
parent 9a681701e5
commit bb28d2c590
3 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Foundation.hs
View File

@ -154,6 +154,7 @@ instance Yesod App where
isAuthorized (QueryResultsR _) _ = regularAuthorization isAuthorized (QueryResultsR _) _ = regularAuthorization
isAuthorized ListChallengesR _ = regularAuthorization isAuthorized ListChallengesR _ = regularAuthorization
isAuthorized ListChallengesJsonR _ = regularAuthorization isAuthorized ListChallengesJsonR _ = regularAuthorization
isAuthorized (ChallengeInfoJsonR _) _ = regularAuthorization
isAuthorized (LeaderboardJsonR _) _ = regularAuthorization isAuthorized (LeaderboardJsonR _) _ = regularAuthorization
isAuthorized (ViewVariantR _ ) _ = regularAuthorization isAuthorized (ViewVariantR _ ) _ = regularAuthorization
isAuthorized (ViewVariantTestR _ _) _ = regularAuthorization isAuthorized (ViewVariantTestR _ _) _ = regularAuthorization

20
Handler/ListChallenges.hs
View File

@ -22,13 +22,26 @@ declareListChallengesSwagger :: Declare (Definitions Schema) Swagger
declareListChallengesSwagger = do declareListChallengesSwagger = do
-- param schemas -- param schemas
listChallengesResponse <- declareResponse (Proxy :: Proxy [Entity Challenge]) listChallengesResponse <- declareResponse (Proxy :: Proxy [Entity Challenge])
challengeInfoResponse <- declareResponse (Proxy :: Proxy (Entity Challenge))
let challengeNameSchema = toParamSchema (Proxy :: Proxy String)
return $ mempty return $ mempty
& paths .~ & paths .~
[ ("/api/list-challenges", mempty & get ?~ (mempty [ ("/api/list-challenges", mempty & get ?~ (mempty
& produces ?~ MimeList ["application/json"] & produces ?~ MimeList ["application/json"]
& description ?~ "Returns the list of all challenges" & description ?~ "Returns the list of all challenges"
& at 200 ?~ Inline listChallengesResponse)) & at 200 ?~ Inline listChallengesResponse)),
("/api/challenge-info/{challengeName}",
mempty & get ?~ (mempty
& parameters .~ [ Inline $ mempty
& name .~ "challengeName"
& required ?~ True
& schema .~ ParamOther (mempty
& in_ .~ ParamPath
& paramSchema .~ challengeNameSchema) ]
& produces ?~ MimeList ["application/json"]
& description ?~ "Returns metadata for a specific challenge"
& at 200 ?~ Inline challengeInfoResponse))
] ]
listChallengesApi :: Swagger listChallengesApi :: Swagger
@ -93,6 +106,11 @@ getChallenges filterExpr = runDB $ selectList filterExpr [Desc ChallengeStarred,
listChallengesCore :: [Entity Challenge] -> Widget listChallengesCore :: [Entity Challenge] -> Widget
listChallengesCore challenges = $(widgetFile "list-challenges-core") listChallengesCore challenges = $(widgetFile "list-challenges-core")
getChallengeInfoJsonR :: Text -> Handler Value
getChallengeInfoJsonR challengeName = do
entCh <- runDB $ getBy404 $ UniqueName challengeName
return $ toJSON entCh
getChallengeImageR :: ChallengeId -> Handler Html getChallengeImageR :: ChallengeId -> Handler Html
getChallengeImageR challengeId = do getChallengeImageR challengeId = do
challenge <- runDB $ get404 challengeId challenge <- runDB $ get404 challengeId

1
config/routes
View File

@ -21,6 +21,7 @@
/api/challenge-readme/#Text/markdown ChallengeReadmeInMarkdownR GET /api/challenge-readme/#Text/markdown ChallengeReadmeInMarkdownR GET
/api/challenge-image/#ChallengeId ChallengeImageR GET /api/challenge-image/#ChallengeId ChallengeImageR GET
/api/query/#Text QueryJsonR GET /api/query/#Text QueryJsonR GET
/api/challenge-info/#Text ChallengeInfoJsonR GET
/list-archived-challenges ListArchivedChallengesR GET /list-archived-challenges ListArchivedChallengesR GET
/challenge/#Text ShowChallengeR GET /challenge/#Text ShowChallengeR GET