forked from filipg/gonito
43 lines
1.4 KiB
Haskell
43 lines
1.4 KiB
Haskell
|
module Handler.YourAccount where
|
||
|
|
|
||
|
|
import Import
|
||
|
|
import Yesod.Form.Bootstrap3 (BootstrapFormLayout (..), renderBootstrap3,
|
||
|
|
withSmallInput)
|
||
|
|
|
||
|
|
import Handler.Shared
|
||
|
|
import Handler.Extract
|
||
|
|
|
||
|
|
getYourAccountR :: Handler Html
|
||
|
|
getYourAccountR = do
|
||
|
|
userId <- requireAuthId
|
||
|
|
user <- runDB $ get404 userId
|
||
|
|
(formWidget, formEnctype) <- generateFormPost (yourAccountForm $ userName user)
|
||
|
|
let submission = Nothing :: Maybe (Import.FileInfo, Text)
|
||
|
|
handlerName = "getYourAccountR" :: Text
|
||
|
|
defaultLayout $ do
|
||
|
|
aDomId <- newIdent
|
||
|
|
setTitle "Your account"
|
||
|
|
$(widgetFile "your-account")
|
||
|
|
|
||
|
|
postYourAccountR :: Handler Html
|
||
|
|
postYourAccountR = do
|
||
|
|
((result, formWidget), formEnctype) <- runFormPost (yourAccountForm Nothing)
|
||
|
|
let handlerName = "postYourAccountR" :: Text
|
||
|
|
accountData = case result of
|
||
|
|
FormSuccess res -> Just res
|
||
|
|
_ -> Nothing
|
||
|
|
Just (name, aboutMe) = accountData
|
||
|
|
userId <- requireAuthId
|
||
|
|
runDB $ update userId [UserName =. name]
|
||
|
|
user <- runDB $ get404 userId
|
||
|
|
defaultLayout $ do
|
||
|
|
aDomId <- newIdent
|
||
|
|
setTitle "Your account"
|
||
|
|
$(widgetFile "your-account")
|
||
|
|
|
||
|
|
|
||
|
|
yourAccountForm :: Maybe Text -> Form (Maybe Text, Maybe Text)
|
||
|
|
yourAccountForm maybeName = renderBootstrap3 BootstrapBasicForm $ (,)
|
||
|
|
<$> aopt textField (fieldSettingsLabel MsgAccountName) (Just maybeName)
|
||
|
|
<*> aopt textField (fieldSettingsLabel MsgAboutMe) Nothing
|