From 5b188cf7187522736c3dc0bb11335dfba4b652af Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Fri, 20 Sep 2019 19:51:44 +0200 Subject: [PATCH] Fix version incrementation --- Handler/CreateChallenge.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/CreateChallenge.hs b/Handler/CreateChallenge.hs index 5272833..e422f94 100644 --- a/Handler/CreateChallenge.hs +++ b/Handler/CreateChallenge.hs @@ -192,8 +192,8 @@ doChallengeUpdate challengeId updateType publicUrl publicBranch publicGitAnnexRe incrementVersion :: ChallengeUpdateType -> (Int, Int, Int) -> (Int, Int, Int) -incrementVersion MajorChange (major, minor, patch) = (major + 1, minor, patch) -incrementVersion MinorChange (major, minor, patch) = (major, minor + 1, patch) +incrementVersion MajorChange (major, minor, patch) = (major + 1, 0, 0) +incrementVersion MinorChange (major, minor, patch) = (major, minor + 1, 0) incrementVersion ChallengePatch (major, minor, patch) = (major, minor, patch + 1)