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 , transactionUser :: UserId
, transactionCourseApplication :: CourseApplicationId , transactionCourseApplication :: CourseApplicationId
} }
| TransactionSubmissionEdit | TransactionSubmissionUser
{ transactionSubmission :: SubmissionId { transactionSubmission :: SubmissionId
, transactionUser :: UserId , transactionUser :: UserId
} }

4
src/Handler/Corrections.hs
View File

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