Link to rekisteriseloste when applying

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

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