Fix issue with multiple evaluation results
This commit is contained in:
parent
6347d6fbb8
commit
389a018254
@ -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))
|
||||||
|
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user