From 8792b9dde67dd64506384e28402f277a5f4ad68a Mon Sep 17 00:00:00 2001
From: Saku Laesvuori <saku@laesvuori.fi>
Date: Wed, 27 Sep 2023 15:22:39 +0300
Subject: [PATCH] Redirect applicants to verify their emails

---
 frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs b/frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs
index ca44230..df37677 100644
--- a/frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs
+++ b/frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs
@@ -80,7 +80,7 @@ postApplyR :: (YesodAuth DataIdClient, AuthId DataIdClient ~ Text) => Handler Ht
 postApplyR = do
     ((result, widget), enctype) <- runFormPost applyForm
     case result of
-      FormSuccess application -> apiRequest @Apply False application >>= \x ->
-          redirect $ ProfileR $ let ApplyApply {..} = apply x in id
+      FormSuccess application -> apiRequest @Apply False application >> redirect VerifyEmailR
+      -- TODO: Automatically log in
       _ -> do
           defaultLayout $ applyW (widget, enctype)