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

Add hash to leaderboard entries

Browse Source
This commit is contained in:
Filip Gralinski 2021-02-15 14:44:19 +01:00
parent 64a5bd52be
commit 9a681701e5
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Handler/ShowChallenge.hs
View File

@ -76,6 +76,7 @@ instance ToJSON LeaderboardEntry where
(leaderboardBestVariant entry) (leaderboardBestVariant entry)
(leaderboardParams entry) (leaderboardParams entry)
, "times" .= leaderboardNumberOfSubmissions entry , "times" .= leaderboardNumberOfSubmissions entry
, "hash" .= (fromSHA1ToText $ submissionCommit $ leaderboardBestSubmission entry)
] ]
instance ToSchema LeaderboardEntry where instance ToSchema LeaderboardEntry where
@ -90,8 +91,9 @@ instance ToSchema LeaderboardEntry where
, ("version", stringSchema) , ("version", stringSchema)
, ("description", stringSchema) , ("description", stringSchema)
, ("times", intSchema) , ("times", intSchema)
, ("hash", stringSchema)
] ]
& required .~ [ "submitter", "when", "version", "description", "times" ] & required .~ [ "submitter", "when", "version", "description", "times", "hash" ]
declareLeaderboardSwagger :: Declare (Definitions Schema) Swagger declareLeaderboardSwagger :: Declare (Definitions Schema) Swagger