filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

handle tags correctly in case of re-submission

Browse Source
This commit is contained in:
Filip Gralinski 2018-09-01 15:27:11 +02:00
parent bed12dee34
commit 2ed724bf05
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Handler/ShowChallenge.hs
View File

@ -243,7 +243,10 @@ doCreateSubmission userId challengeId mDescription mTags repoSpec chan = do
submissionId <- getSubmission userId repoId (repoCurrentCommit repo) challengeId (fromMaybe (fromMaybe "???" mCommitDescription) mDescription) chan submissionId <- getSubmission userId repoId (repoCurrentCommit repo) challengeId (fromMaybe (fromMaybe "???" mCommitDescription) mDescription) chan
_ <- getOuts chan submissionId _ <- getOuts chan submissionId
runDB $ addTags submissionId (if isNothing mTags then mCommitTags else mTags) [] currentTagIds <- runDB $ selectList [SubmissionTagSubmission ==. submissionId] []
runDB $ addTags submissionId (if isNothing mTags then mCommitTags else mTags) (
map (submissionTagTag . entityVal) currentTagIds)
msg chan "SUBMISSION CREATED" msg chan "SUBMISSION CREATED"
app <- getYesod app <- getYesod