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)