From bef662d1629cbfcb472328f1c2e0028ab71248ca Mon Sep 17 00:00:00 2001 From: SJost Date: Thu, 11 Oct 2018 10:39:28 +0200 Subject: [PATCH] Fix build. --- src/Handler/Profile.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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