Compare commits
2 Commits
3d3b5d6bd2
...
8cda69d30d
Author | SHA1 | Date |
---|---|---|
Saku Laesvuori | 8cda69d30d | |
Saku Laesvuori | 8792b9dde6 |
|
@ -67,7 +67,8 @@ 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.
|
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">
|
<input type="submit" value="Hae jäseneksi">
|
||||||
|]
|
|]
|
||||||
|
|
||||||
|
@ -80,7 +81,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 >>= \x ->
|
FormSuccess application -> apiRequest @Apply False application >> redirect VerifyEmailR
|
||||||
redirect $ ProfileR $ let ApplyApply {..} = apply x in id
|
-- TODO: Automatically log in
|
||||||
_ -> do
|
_ -> do
|
||||||
defaultLayout $ applyW (widget, enctype)
|
defaultLayout $ applyW (widget, enctype)
|
||||||
|
|
Loading…
Reference in New Issue