Fix build.

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