From c5048d7007a359a6ef7f6f6a17bc869ab91f9a2d Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Sat, 22 Feb 2020 19:12:07 +0100 Subject: [PATCH] Fix some warnings --- Handler/ShowChallenge.hs | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/Handler/ShowChallenge.hs b/Handler/ShowChallenge.hs index df53cde..74d2b98 100644 --- a/Handler/ShowChallenge.hs +++ b/Handler/ShowChallenge.hs @@ -7,7 +7,6 @@ import qualified Data.Text.Lazy as TL import Text.Markdown import qualified Data.Text as T -import qualified Data.Map.Strict as M import qualified Yesod.Table as Table @@ -33,22 +32,13 @@ import qualified Text.Read as TR import GEval.Core import GEval.EvaluationScheme -import GEval.Common (MetricValue) -import GEval.OptionsParser -import GEval.ParseParams (parseParamsFromFilePath, OutputFileParsed(..)) import PersistSHA1 -import Options.Applicative - import System.IO (readFile) -import System.FilePath (takeFileName, dropExtensions, (-<.>)) - import Data.Text (pack, unpack) -import Data.Conduit.SmartSource - import Data.List (nub) import qualified Database.Esqueleto as E @@ -92,6 +82,7 @@ getShowChallengeR name = do tests altTests) +hasMetricsOfSecondPriority :: (PersistQueryRead backend, MonadIO m, BaseBackend backend ~ SqlBackend) => Key Challenge -> ReaderT backend m Bool hasMetricsOfSecondPriority challengeId = do tests' <- selectList [TestChallenge ==. challengeId, TestActive ==. True] [] let tests = filter (\t -> (evaluationSchemePriority $ testMetric $ entityVal t) == 2) tests'