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

Just score API interface

Browse Source
This commit is contained in:
Filip Gralinski 2019-11-30 20:47:19 +01:00
parent 765b31447b
commit 1b3a55ae12
3 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Foundation.hs
View File

@ -199,8 +199,7 @@ instance Yesod App where
isAuthorized (ChallengeImageR _) _ = return Authorized
isAuthorized (ApiTxtScoreMainMetricR _) _ = return Authorized
isAuthorized (ApiTxtScoreWithMetricR _ _) _ = return Authorized
isAuthorized (ApiTxtScoreR _) _ = return Authorized
isAuthorized (ChallengeParamGraphDataR _ _ _) _ = return Authorized
isAuthorized (IndicatorGraphDataR _) _ = return Authorized

11
Handler/Query.hs
View File

@ -59,11 +59,12 @@ fetchSubmissionByOut (Entity _ out) = do
fsi <- getFullInfo theSubmissionEnt
return (fsi, outChecksum out)
getApiTxtScoreMainMetricR :: Text -> Handler Text
getApiTxtScoreMainMetricR sha1Prefix = getApiTxtScore Nothing sha1Prefix
getApiTxtScoreWithMetricR :: Text -> Text -> Handler Text
getApiTxtScoreWithMetricR sha1Prefix metricName = getApiTxtScore (Just metricName) sha1Prefix
getApiTxtScoreR :: Text -> Handler Text
getApiTxtScoreR query =
if T.null post
then getApiTxtScore Nothing pre
else getApiTxtScore (Just $ T.tail post) pre
where (pre, post) = T.breakOn "-" query
getApiTxtScore :: Maybe Text -> Text -> Handler Text
getApiTxtScore mMetricName sha1Prefix = do

3
config/routes
View File

@ -34,8 +34,7 @@
/view-variant/#VariantId ViewVariantR GET
/api/txt/score/#Text ApiTxtScoreMainMetricR GET
/api/txt/score/#Text/#Text ApiTxtScoreWithMetricR GET
/api/txt/score/#Text ApiTxtScoreR GET
/make-public/#SubmissionId MakePublicR GET
/hide-submission/#SubmissionId HideSubmissionR GET