From 46ddb826a9ba7e53e578021ce82dc877e4c34116 Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Mon, 23 Sep 2019 17:35:39 +0200 Subject: [PATCH] Fix update challenge --- Handler/CreateChallenge.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Handler/CreateChallenge.hs b/Handler/CreateChallenge.hs index e422f94..c7db92e 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, 0, 0) -incrementVersion MinorChange (major, minor, patch) = (major, minor + 1, 0) +incrementVersion MajorChange (major, _, _) = (major + 1, 0, 0) +incrementVersion MinorChange (major, minor, _) = (major, minor + 1, 0) incrementVersion ChallengePatch (major, minor, patch) = (major, minor, patch + 1)