fix(course): don't delete applications when deregistering

Fixes #648
2020-11-02 17:02:10 +01:00 · 2020-11-02 17:02:10 +01:00 · b6664089f7
commit b6664089f7
parent 1c2c8fe3d9
1 changed files with 0 additions and 1 deletions
--- a/src/Handler/Course/Register.hs
+++ b/src/Handler/Course/Register.hs
@ -273,7 +273,6 @@ deleteApplicationFiles appId = deleteWhere [ CourseApplicationFileApplication ==

 deregisterParticipant :: UserId -> CourseId -> DB ()
 deregisterParticipant uid cid = do
-  deleteApplications uid cid
  part <- fmap (assertM . has $ _entityVal . _courseParticipantState . _CourseParticipantActive) . getBy $ UniqueParticipant uid cid
  forM_ part $ \(Entity partId CourseParticipant{}) -> do
    update partId [CourseParticipantState =. CourseParticipantInactive False]