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 case evals' of
[eval] -> return $ Just eval [eval] -> return $ Just eval
[] -> return Nothing [] -> return Nothing
_ -> error "More than evaluation for the same test and version!" _ -> error ("More than 1 evaluation for the same test and version!" ++ (show evals))
_ -> error "More than evaluation for the same test, checksum and version!" (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() stamp UTCTime default=now()
-- Should be just SHA1 (without Maybe) - Maybe is just a legacy -- Should be just SHA1 (without Maybe) - Maybe is just a legacy
version SHA1 Maybe version SHA1 Maybe
deriving Show
Comment Comment
challenge ChallengeId challenge ChallengeId
author UserId author UserId