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