s464900/gonito
1
0
Fork 0
forked from filipg/gonito
Code Issues Pull Requests Projects Releases Wiki Activity

Fix some warnings

Browse Source
This commit is contained in:
Filip Gralinski 2020-02-22 19:12:07 +01:00
parent bc59a700a6
commit c5048d7007
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Handler/ShowChallenge.hs
View File

@ -7,7 +7,6 @@ import qualified Data.Text.Lazy as TL
import Text.Markdown import Text.Markdown
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Map.Strict as M
import qualified Yesod.Table as Table import qualified Yesod.Table as Table
@ -33,22 +32,13 @@ import qualified Text.Read as TR
import GEval.Core import GEval.Core
import GEval.EvaluationScheme import GEval.EvaluationScheme
import GEval.Common (MetricValue)
import GEval.OptionsParser
import GEval.ParseParams (parseParamsFromFilePath, OutputFileParsed(..))
import PersistSHA1 import PersistSHA1
import Options.Applicative
import System.IO (readFile) import System.IO (readFile)
import System.FilePath (takeFileName, dropExtensions, (-<.>))
import Data.Text (pack, unpack) import Data.Text (pack, unpack)
import Data.Conduit.SmartSource
import Data.List (nub) import Data.List (nub)
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
@ -92,6 +82,7 @@ getShowChallengeR name = do
tests tests
altTests) altTests)
hasMetricsOfSecondPriority :: (PersistQueryRead backend, MonadIO m, BaseBackend backend ~ SqlBackend) => Key Challenge -> ReaderT backend m Bool
hasMetricsOfSecondPriority challengeId = do hasMetricsOfSecondPriority challengeId = do
tests' <- selectList [TestChallenge ==. challengeId, TestActive ==. True] [] tests' <- selectList [TestChallenge ==. challengeId, TestActive ==. True] []
let tests = filter (\t -> (evaluationSchemePriority $ testMetric $ entityVal t) == 2) tests' let tests = filter (\t -> (evaluationSchemePriority $ testMetric $ entityVal t) == 2) tests'