diff options
Diffstat (limited to 'Assistant/WebApp/SideBar.hs')
| -rw-r--r-- | Assistant/WebApp/SideBar.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Assistant/WebApp/SideBar.hs b/Assistant/WebApp/SideBar.hs index 2c630324c..a4b837897 100644 --- a/Assistant/WebApp/SideBar.hs +++ b/Assistant/WebApp/SideBar.hs @@ -49,15 +49,16 @@ sideBarDisplay = do (alertBlockDisplay alert) (bootstrapclass $ alertClass alert) (alertHeader alert) + (alertIcon alert) $ case alertMessage alert of StringAlert s -> [whamlet|#{s}|] WidgetAlert w -> w alert rendermessage msg = addalert firstAlertId True False - "alert-info" Nothing [whamlet|#{msg}|] + "alert-info" Nothing (Just "exclamation-sign") [whamlet|#{msg}|] - addalert :: AlertId -> Bool -> Bool -> Text -> Maybe String -> Widget -> Widget - addalert i closable block divclass heading widget = do + addalert :: AlertId -> Bool -> Bool -> Text -> Maybe String -> Maybe String -> Widget -> Widget + addalert i closable block divclass heading icon widget = do let alertid = show i let closealert = CloseAlert i $(widgetFile "sidebar/alert") |