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

refactor(notifications): notifications don't support custom icons

Browse Source
This commit is contained in:
Gregor Kleen 2019-07-25 08:49:58 +02:00
parent 864338174a
commit bdaa9c6ecf
1 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/Utils/Form.hs
View File

@ -741,16 +741,15 @@ wformMessage :: (MonadHandler m) => Message -> WForm m ()
wformMessage = void . aFormToWForm . aformMessage wformMessage = void . aFormToWForm . aformMessage
formMessage :: (MonadHandler m) => Message -> MForm m (FormResult (), FieldView site) formMessage :: (MonadHandler m) => Message -> MForm m (FormResult (), FieldView site)
formMessage Message{..} = do formMessage Message{ messageIcon = _, ..} = do -- custom icons are not currently implemented for `.notification`
let icn = maybeAttribute "data-icon" iconJS messageIcon return (FormSuccess (), FieldView
return (FormSuccess (), FieldView { fvLabel = mempty
{ fvLabel = mempty , fvTooltip = Nothing
, fvTooltip = Nothing , fvId = idFormMessageNoinput
, fvId = idFormMessageNoinput , fvErrors = Nothing
, fvErrors = Nothing , fvRequired = False
, fvRequired = False , fvInput = [whamlet|<div .notification .notification-#{toPathPiece messageStatus}>#{messageContent}|]
, fvInput = [whamlet|<div .notification .notification-#{toPathPiece messageStatus} *{icn}>#{messageContent}|] })
})
--------------------- ---------------------
-- Form evaluation -- -- Form evaluation --