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

fix: hlint

Browse Source
This commit is contained in:
Sarah Vaupel 2019-10-09 10:20:22 +02:00
parent 3750da81dc
commit c19f427cd7
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Utils/Icon.hs
View File

@ -121,9 +121,7 @@ icon ic = [shamlet|
-- Create an icon (defaults to "?") with a specified tooltip -- Create an icon (defaults to "?") with a specified tooltip
iconTooltip :: forall site. WidgetFor site () -> Maybe Icon -> Bool -> WidgetFor site () iconTooltip :: forall site. WidgetFor site () -> Maybe Icon -> Bool -> WidgetFor site ()
iconTooltip tooltip mIcon isInlineTooltip = let iconTooltip tooltip mIcon isInlineTooltip = let
ic = iconText $ case mIcon of ic = iconText $ fromMaybe IconTooltipDefault mIcon
Nothing -> IconTooltipDefault
Just i -> i
urgency = "urgency__info" :: Text urgency = "urgency__info" :: Text
in $(whamletFile "templates/widgets/tooltip.hamlet") in $(whamletFile "templates/widgets/tooltip.hamlet")

8
src/Utils/Message.hs
View File

@ -195,13 +195,13 @@ getMessages = fmap decodeMessage <$> ClassyPrelude.Yesod.getMessages
messageTooltip :: forall site. Message -> WidgetFor site () messageTooltip :: forall site. Message -> WidgetFor site ()
messageTooltip Message{..} = let urgency = statusToUrgencyClass messageStatus messageTooltip Message{..} = let urgency = statusToUrgencyClass messageStatus
ic = iconText $ case messageIcon of ic = iconText $ fromMaybe
Nothing -> case messageStatus of (case messageStatus of
Utils.Message.Error -> IconProblem Utils.Message.Error -> IconProblem
Utils.Message.Warning -> IconWarning Utils.Message.Warning -> IconWarning
Utils.Message.Success -> IconOK Utils.Message.Success -> IconOK
Utils.Message.Info -> IconTooltipDefault Utils.Message.Info -> IconTooltipDefault)
Just i -> i messageIcon
tooltip = toWidget messageContent :: WidgetFor site () tooltip = toWidget messageContent :: WidgetFor site ()
isInlineTooltip = False isInlineTooltip = False
in $(whamletFile "templates/widgets/tooltip.hamlet") in $(whamletFile "templates/widgets/tooltip.hamlet")