eidolon/Handler/ProfileSettings.hs

78 lines
2.9 KiB
Haskell
Raw Normal View History

2015-01-18 19:44:41 +00:00
-- eidolon -- A simple gallery in Haskell and Yesod
-- Copyright (C) 2015 Amedeo Molnár
--
-- This program is free software: you can redistribute it and/or modify
-- it under the terms of the GNU Affero General Public License as published
-- by the Free Software Foundation, either version 3 of the License, or
-- (at your option) any later version.
--
-- This program is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-- GNU Affero General Public License for more details.
--
-- You should have received a copy of the GNU Affero General Public License
2015-01-21 09:00:18 +00:00
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
2015-01-18 19:44:41 +00:00
2014-09-05 18:40:12 +00:00
module Handler.ProfileSettings where
import Import
2015-10-19 06:32:47 +00:00
import qualified Data.Text as T
2014-12-28 00:08:35 +00:00
import Handler.Commons
2014-09-05 18:40:12 +00:00
getProfileSettingsR :: UserId -> Handler Html
getProfileSettingsR userId = do
2014-12-27 23:01:40 +00:00
checkRes <- profileCheck userId
case checkRes of
Right user -> do
2015-10-19 06:32:47 +00:00
(profileSettingsWidget, enctype) <- generateFormPost $
renderBootstrap3 BootstrapBasicForm $ profileSettingsForm user
2016-09-07 15:32:56 +00:00
defaultLayout $ do
2014-12-27 23:01:40 +00:00
setTitle "Eidolon :: Profile settings"
$(widgetFile "profileSettings")
Left (errorMsg, route) -> do
setMessage errorMsg
2015-09-14 16:54:46 +00:00
redirect route
2014-09-05 18:40:12 +00:00
postProfileSettingsR :: UserId -> Handler Html
postProfileSettingsR userId = do
2014-12-27 23:01:40 +00:00
checkRes <- profileCheck userId
case checkRes of
Right user -> do
2015-10-19 06:32:47 +00:00
((result, _), _) <- runFormPost $
renderBootstrap3 BootstrapBasicForm$ profileSettingsForm user
2014-12-27 23:01:40 +00:00
case result of
FormSuccess temp -> do
runDB $ update userId [
2015-09-14 16:54:46 +00:00
UserName =. userName temp
, UserSlug =. userSlug temp
, UserEmail =. userEmail temp
2016-12-19 01:27:09 +00:00
, UserDefaultLicence =. (userDefaultLicence temp)
2014-12-27 23:01:40 +00:00
]
setMessage "Profile settings changed successfully"
redirect $ UserR $ userName user
_ -> do
setMessage "There was an error changing your settings"
redirect $ ProfileSettingsR userId
Left (errorMsg, route) -> do
setMessage errorMsg
2015-09-14 16:54:46 +00:00
redirect route
2014-09-05 18:40:12 +00:00
2015-10-19 06:32:47 +00:00
profileSettingsForm :: User -> AForm Handler User
profileSettingsForm user = User
<$> areq textField (bfs ("Username" :: T.Text)) (Just $ userName user)
<*> areq textField (bfs ("Userslug" :: T.Text)) (Just $ userSlug user)
<*> areq emailField (bfs ("Email" :: T.Text)) (Just $ userEmail user)
2014-09-05 18:40:12 +00:00
<*> pure (userSalt user)
<*> pure (userSalted user)
<*> pure (userAlbums user)
<*> pure (userAdmin user)
2016-12-18 23:28:07 +00:00
<*> areq (selectField licences) (bfs ("Default licence for media" :: T.Text))
(Just $ userDefaultLicence user)
2017-04-24 05:46:34 +00:00
<*> pure (userActive user)
2015-10-19 06:32:47 +00:00
<* bootstrapSubmit ("Change settings" :: BootstrapSubmit Text)
2016-12-18 23:28:07 +00:00
where
2017-08-06 02:42:31 +00:00
licences = optionsPairs $ map (\a -> (T.pack (show (a :: Licence)), a))
[minBound..maxBound]