diff --git a/src/Handler/Course/Register.hs b/src/Handler/Course/Register.hs index 92297d3d9..c4e770f9f 100644 --- 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]