Fix update challenge

This commit is contained in:
Filip Gralinski 2019-09-23 17:35:39 +02:00
parent 5b188cf718
commit 46ddb826a9

View File

@ -192,8 +192,8 @@ doChallengeUpdate challengeId updateType publicUrl publicBranch publicGitAnnexRe
incrementVersion :: ChallengeUpdateType -> (Int, Int, Int) -> (Int, Int, Int) incrementVersion :: ChallengeUpdateType -> (Int, Int, Int) -> (Int, Int, Int)
incrementVersion MajorChange (major, minor, patch) = (major + 1, 0, 0) incrementVersion MajorChange (major, _, _) = (major + 1, 0, 0)
incrementVersion MinorChange (major, minor, patch) = (major, minor + 1, 0) incrementVersion MinorChange (major, minor, _) = (major, minor + 1, 0)
incrementVersion ChallengePatch (major, minor, patch) = (major, minor, patch + 1) incrementVersion ChallengePatch (major, minor, patch) = (major, minor, patch + 1)