fraport/fradrive
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add behavior section headline to profile form

Browse Source
This commit is contained in:
Felix Hamann 2019-02-16 18:30:56 +01:00
parent e4f37a1bcc
commit 2b61d8f180
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Profile.hs
View File

@ -37,10 +37,11 @@ makeSettingForm template = identForm FIDsettings $ \html -> do
<*> areq (selectField $ dateTimeFormatOptions SelFormatDateTime) (fslI MsgDateTimeFormat) (stgDateTime <$> template) <*> areq (selectField $ dateTimeFormatOptions SelFormatDateTime) (fslI MsgDateTimeFormat) (stgDateTime <$> template)
<*> areq (selectField $ dateTimeFormatOptions SelFormatDate) (fslI MsgDateFormat) (stgDate <$> template) <*> areq (selectField $ dateTimeFormatOptions SelFormatDate) (fslI MsgDateFormat) (stgDate <$> template)
<*> areq (selectField $ dateTimeFormatOptions SelFormatTime) (fslI MsgTimeFormat) (stgTime <$> template) <*> areq (selectField $ dateTimeFormatOptions SelFormatTime) (fslI MsgTimeFormat) (stgTime <$> template)
<* aformSection notificationSection <* aformSection behaviorSection
<*> areq checkBoxField (fslI MsgDownloadFiles <*> areq checkBoxField (fslI MsgDownloadFiles
& setTooltip MsgDownloadFilesTip & setTooltip MsgDownloadFilesTip
) (stgDownloadFiles <$> template) ) (stgDownloadFiles <$> template)
<* aformSection notificationSection
<*> (NotificationSettings <$> funcForm nsForm (fslI MsgNotificationSettings) True) <*> (NotificationSettings <$> funcForm nsForm (fslI MsgNotificationSettings) True)
-- <$> aFormGroup "Cosmetics" cosmeticsForm -- <$> aFormGroup "Cosmetics" cosmeticsForm
-- <*> aFormGroup "Notifications" notificationsForm -- <*> aFormGroup "Notifications" notificationsForm
@ -49,6 +50,8 @@ makeSettingForm template = identForm FIDsettings $ \html -> do
where where
cosmeticsSection :: Text cosmeticsSection :: Text
cosmeticsSection = "Cosmetics" cosmeticsSection = "Cosmetics"
behaviorSection :: Text
behaviorSection = "Behavior"
notificationSection :: Text notificationSection :: Text
notificationSection = "Notifications" notificationSection = "Notifications"
themeList = [Option (display t) t (toPathPiece t) | t <- universeF] themeList = [Option (display t) t (toPathPiece t) | t <- universeF]