frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs

@@ -67,8 +67,7 @@ applyW (applyWidget, applyEnctype) = do
     ^{applyWidget}
     <p>
         Lähettämällä jäsenhakemuksen vakuutat antamiesi tietojen oikeellisuuden ja puuttettomuuden
-        sekä sitoudut pitämään ne ajan tasalla. Rekisteriin kirjattuja tietoja käsitellään
-        <a href="https://datat.fi/rekisteriseloste">rekisteriselosteen</a> mukaisesti.
+        sekä sitoudut pitämään ne ajan tasalla.
     <input type="submit" value="Hae jäseneksi">
 |]
 
@@ -81,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 >> redirect VerifyEmailR
-      -- TODO: Automatically log in
+      FormSuccess application -> apiRequest @Apply False application >>= \x ->
+          redirect $ ProfileR $ let ApplyApply {..} = apply x in id
       _ -> do
           defaultLayout $ applyW (widget, enctype)