fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor(audit): renamed transaction constructor

Browse Source
This commit is contained in:
Sarah Vaupel 2019-08-29 13:07:17 +02:00
parent c8fcb6a06f
commit 696ebd889a
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Audit/Types.hs
View File

@ -48,7 +48,7 @@ data Transaction
, transactionUser :: UserId
, transactionCourseApplication :: CourseApplicationId
}
| TransactionSubmissionEdit
| TransactionSubmissionUser
{ transactionSubmission :: SubmissionId
, transactionUser :: UserId
}

4
src/Handler/Corrections.hs
View File

@ -948,7 +948,7 @@ postCorrectionsCreateR = do
{ submissionUserUser = sheetUser
, submissionUserSubmission = subId
}
audit $ TransactionSubmissionEdit subId uid
audit $ TransactionSubmissionUser subId uid
when (null groups) $
addMessageI Warning $ MsgSheetNoRegisteredGroup sheetGroupDesc
| length groups < 2
@ -965,7 +965,7 @@ postCorrectionsCreateR = do
{ submissionUserUser = sheetPseudonymUser
, submissionUserSubmission = subId
}
audit $ TransactionSubmissionEdit subId uid
audit $ TransactionSubmissionUser subId uid
when (length spGroup > 1) $
addMessageI Warning $ MsgSheetNoGroupSubmission sheetGroupDesc
when allDone $