Fix issue with multiple evaluation results

This commit is contained in:
Filip Gralinski 2020-03-04 08:35:59 +01:00
parent 6347d6fbb8
commit 389a018254
2 changed files with 5 additions and 2 deletions

View File

@ -553,5 +553,7 @@ fetchTheEvaluation out version = do
case evals' of
[eval] -> return $ Just eval
[] -> return Nothing
_ -> error "More than evaluation for the same test and version!"
_ -> error "More than evaluation for the same test, checksum and version!"
_ -> error ("More than 1 evaluation for the same test and version!" ++ (show evals))
(eval:_) -> return $ Just eval
-- -> error ("More than 1 evaluation for the same test, checksum and version!" ++ (show evals))

View File

@ -128,6 +128,7 @@ Evaluation
stamp UTCTime default=now()
-- Should be just SHA1 (without Maybe) - Maybe is just a legacy
version SHA1 Maybe
deriving Show
Comment
challenge ChallengeId
author UserId