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

start working on C3

Browse Source
This commit is contained in:
Filip Gralinski 2018-07-26 22:01:21 +02:00
parent ae75c806c7
commit 276ca4d596
3 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Foundation.hs
View File

@ -153,6 +153,8 @@ instance Yesod App where
isAuthorized (ApiTxtScoreR _) _ = return Authorized isAuthorized (ApiTxtScoreR _) _ = return Authorized
isAuthorized (ChallengeParamGraphDataR _ _) _ = return Authorized
-- Default to Authorized for now. -- Default to Authorized for now.
isAuthorized _ _ = isTrustedAuthorized isAuthorized _ _ = isTrustedAuthorized

9
Handler/Graph.hs
View File

@ -10,6 +10,15 @@ import Database.Persist.Sql
getChallengeGraphDataR :: Text -> Handler Value getChallengeGraphDataR :: Text -> Handler Value
getChallengeGraphDataR challengeName = submissionsToJSON (\_ -> True) challengeName getChallengeGraphDataR challengeName = submissionsToJSON (\_ -> True) challengeName
getChallengeParamGraphDataR :: Text -> Text -> Handler Value
getChallengeParamGraphDataR challengeName paramName = do
return $ object [ "xs" .= object [
"data1" .= ("x1" :: Text),
"data2" .= ("x2" :: Text)],
"columns" .= [
["x1"::Text, "10", "30", "40"],
["x2", "10", "20", "50"] ]]
submissionsToJSON :: ((Entity Submission) -> Bool) -> Text -> Handler Value submissionsToJSON :: ((Entity Submission) -> Bool) -> Text -> Handler Value
submissionsToJSON condition challengeName = do submissionsToJSON condition challengeName = do
(Entity challengeId _) <- runDB $ getBy404 $ UniqueName challengeName (Entity challengeId _) <- runDB $ getBy404 $ UniqueName challengeName

1
config/routes
View File

@ -20,6 +20,7 @@
/challenge-how-to/#Text ChallengeHowToR GET /challenge-how-to/#Text ChallengeHowToR GET
/challenge-graph-data/#Text ChallengeGraphDataR GET /challenge-graph-data/#Text ChallengeGraphDataR GET
/challenge-discussion/#Text ChallengeDiscussionR GET POST /challenge-discussion/#Text ChallengeDiscussionR GET POST
/challenge-param-graph-data/#Text/#Text ChallengeParamGraphDataR GET
/challenge-discussion-rss/#Text ChallengeDiscussionFeedR GET /challenge-discussion-rss/#Text ChallengeDiscussionFeedR GET
/trigger-remotely TriggerRemotelyR POST /trigger-remotely TriggerRemotelyR POST
/trigger-locally TriggerLocallyR POST /trigger-locally TriggerLocallyR POST