diff --git a/src/Handler/Profile.hs b/src/Handler/Profile.hs index 867e69149..874971fec 100644 --- a/src/Handler/Profile.hs +++ b/src/Handler/Profile.hs @@ -151,13 +151,13 @@ postProfileDataR = do -- first determine all submission that solely depend on this user: -- SubmissionGroup / SubmissionGroupUser -- Submission / SubmissionUser - -- runDB $ deleteCascade uid (FormSuccess BtnAbort ) -> do addMessageI Info MsgAborted - getProfileDataR - _other -> do - getProfileDataR + redirect ProfileDataR + _other -> return () + getProfileDataR + getProfileDataR :: Handler Html