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

When viewing variants, metrics up to priority 4 are shown

Browse Source
This commit is contained in:
Filip Gralinski 2020-09-05 15:28:52 +02:00
parent 48506a69fd
commit c0ef2319ca
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Handler/Query.hs
View File

@ -9,6 +9,8 @@ import PersistSHA1
import Handler.Tables import Handler.Tables
import Text.Blaze
import qualified Yesod.Table as Table import qualified Yesod.Table as Table
import Database.Persist.Sql import Database.Persist.Sql
@ -181,6 +183,9 @@ processQuery query = do
setTitle "query results" setTitle "query results"
$(widgetFile "query-results") $(widgetFile "query-results")
priorityLimitForViewVariant :: Int
priorityLimitForViewVariant = 4
getViewVariantTestR :: VariantId -> TestId -> Handler Html getViewVariantTestR :: VariantId -> TestId -> Handler Html
getViewVariantTestR variantId testId = do getViewVariantTestR variantId testId = do
mauthId <- maybeAuth mauthId <- maybeAuth
@ -191,7 +196,7 @@ getViewVariantTestR variantId testId = do
testSelected <- runDB $ get404 testId testSelected <- runDB $ get404 testId
let testSelectedEnt = Entity testId testSelected let testSelectedEnt = Entity testId testSelected
([entry], tests') <- runDB $ getChallengeSubmissionInfos 3 ([entry], tests') <- runDB $ getChallengeSubmissionInfos priorityLimitForViewVariant
(\e -> entityKey e == theSubmissionId) (\e -> entityKey e == theSubmissionId)
(\e -> entityKey e == variantId) (\e -> entityKey e == variantId)
id id
@ -230,7 +235,7 @@ getViewVariantR variantId = do
let theSubmissionId = variantSubmission variant let theSubmissionId = variantSubmission variant
theSubmission <- runDB $ get404 theSubmissionId theSubmission <- runDB $ get404 theSubmissionId
(_, tests') <- runDB $ getChallengeSubmissionInfos 3 (_, tests') <- runDB $ getChallengeSubmissionInfos priorityLimitForViewVariant
(\e -> entityKey e == theSubmissionId) (\e -> entityKey e == theSubmissionId)
(\e -> entityKey e == variantId) (\e -> entityKey e == variantId)
id id
@ -238,6 +243,8 @@ getViewVariantR variantId = do
let (mainTest:_) = sortBy (flip testComparator) tests' let (mainTest:_) = sortBy (flip testComparator) tests'
getViewVariantTestR variantId (entityKey mainTest) getViewVariantTestR variantId (entityKey mainTest)
linkedWithAnchor :: (Text.Blaze.ToMarkup a1, Text.Blaze.ToMarkup a2)
=> Text -> (t -> a2) -> (t -> Route site) -> (t -> a1) -> Table.Table site t
linkedWithAnchor h propFunc routeFunc anchorFunc = linkedWithAnchor h propFunc routeFunc anchorFunc =
Table.widget h ( Table.widget h (
\v -> [whamlet|<a href=@{routeFunc v}\\##{anchorFunc v}>#{propFunc v}|]) \v -> [whamlet|<a href=@{routeFunc v}\\##{anchorFunc v}>#{propFunc v}|])