summaryrefslogtreecommitdiff
path: root/Assistant/WebApp/SideBar.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-07-31 03:10:16 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-07-31 03:10:16 -0400
commite9d9d9d5ea36c9d20913470079db9ea8ac0db994 (patch)
tree7bca8dc47839471aade565f34887b3cfe4f09841 /Assistant/WebApp/SideBar.hs
parentf0a88e120367fb68f36e316361c14639c338f8c3 (diff)
add icons
Diffstat (limited to 'Assistant/WebApp/SideBar.hs')
-rw-r--r--Assistant/WebApp/SideBar.hs7
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")