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

minor refactor

Browse Source
This commit is contained in:
SJost 2019-02-17 15:25:36 +01:00
parent 76ac563627
commit ad5741e4ae
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/Utils/Form.hs
View File

@ -430,20 +430,18 @@ optionsFinite = do
-- Special Forms -- -- Special Forms --
------------------- -------------------
aformSection' :: (MonadHandler m, site ~ HandlerSite m, RenderMessage site FormMessage) => SomeMessage site -> AForm m () -- | Alternative implementation for 'aformSection' in a more standard that
-- allows tooltips and arbitrary attributs. Section header must be given through `fsLabel`
aformSection' :: (MonadHandler m, site ~ HandlerSite m, RenderMessage site FormMessage) => FieldSettings site -> AForm m ()
aformSection' = formToAForm . fmap (second pure) . formSection' aformSection' = formToAForm . fmap (second pure) . formSection'
-- | Alternative implementation for 'formSection' in a more standard that shows how allows tooltips and attributs -- | Alternative implementation for 'formSection' in a more standard that
formSection' :: (MonadHandler m, site ~ HandlerSite m, RenderMessage site FormMessage) => SomeMessage site -> MForm m (FormResult (), FieldView site) -- TODO: WIP, delete -- allows tooltips and arbitrary attributs. Section header must be given through `fsLabel`
formSection' formSectionTitle = mreq noinputField sectionSettings Nothing formSection' :: (MonadHandler m, site ~ HandlerSite m, RenderMessage site FormMessage) =>
FieldSettings site -> MForm m (FormResult (), FieldView site) -- TODO: WIP, delete
formSection' formSectionTitleSettings = mreq noinputField sectionSettings Nothing
where where
sectionSettings = FieldSettings sectionSettings = formSectionTitleSettings { fsId = Just idFormSectionNoinput }
{ fsLabel = formSectionTitle
, fsTooltip = Nothing
, fsId = Just idFormSectionNoinput
, fsName = Nothing
, fsAttrs = [("class",idFormSectionNoinput)] -- TODO: check if this it useful at all
}