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

Fix build.

Browse Source
This commit is contained in:
SJost 2018-10-11 10:39:28 +02:00
parent d937e3d894
commit bef662d162
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Handler/Profile.hs
View File

@ -151,13 +151,13 @@ postProfileDataR = do
-- first determine all submission that solely depend on this user: -- first determine all submission that solely depend on this user:
-- SubmissionGroup / SubmissionGroupUser -- SubmissionGroup / SubmissionGroupUser
-- Submission / SubmissionUser -- Submission / SubmissionUser
-- runDB $ deleteCascade uid -- runDB $ deleteCascade uid
(FormSuccess BtnAbort ) -> do (FormSuccess BtnAbort ) -> do
addMessageI Info MsgAborted addMessageI Info MsgAborted
getProfileDataR redirect ProfileDataR
_other -> do _other -> return ()
getProfileDataR getProfileDataR
getProfileDataR :: Handler Html getProfileDataR :: Handler Html