ry
/
datarekisteri
6
0
Fork 0
Code Issues 10 Pull Requests Packages Projects Releases Wiki Activity

Compare commits

base: ry:8cda69d30d3316f5af7ebd3b50f52b55cd345a31
Branches Tags
ry:main
ry:keyring
..
compare: ry:3d3b5d6bd21548c43dc5c213db62bea66e532b38
Branches Tags
ry:main
ry:keyring

No commits in common. "8cda69d30d3316f5af7ebd3b50f52b55cd345a31" and "3d3b5d6bd21548c43dc5c213db62bea66e532b38" have entirely different histories.
8cda69d30d ... 3d3b5d6bd2

1 changed files with 3 additions and 4 deletions
Show Stats Expand all files Collapse all files

7
frontend/src/Datarekisteri/Frontend/Handlers/Apply.hs
View File

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