add icons

Assistant/Alert.hs

@@ -34,6 +34,7 @@ data Alert = Alert
 	, alertBlockDisplay :: Bool
 	, alertClosable :: Bool
 	, alertPriority :: AlertPriority
+	, alertIcon :: Maybe String
 	}
 
 type AlertPair = (AlertId, Alert)
@@ -108,26 +109,15 @@ makeAlertFiller success alert
 	| otherwise = alert
 		{ alertClass = if c == Activity then c' else c
 		, alertPriority = Filler
-		, alertHeader = finished <$> h
-		, alertMessage = massage m
 		, alertClosable = True
+		, alertIcon = Just $ if success then "ok" else "exclamation-sign"
 		}
 	where
-		h = alertHeader alert
-		m = alertMessage alert
 		c = alertClass alert
 		c'
 			| success = Success
 			| otherwise = Error
 
-		massage (WidgetAlert w) = WidgetAlert w -- renders old on its own
-		massage (StringAlert s) = StringAlert $
-			maybe (finished s) (const s) h
-
-		finished s
-			| success = s ++ ": Ok"
-			| otherwise = s ++ ": Failed"
-
 isFiller :: Alert -> Bool
 isFiller alert = alertPriority alert == Filler
 
@@ -163,6 +153,7 @@ baseActivityAlert = Alert
 	, alertBlockDisplay = False
 	, alertClosable = False
 	, alertPriority = Medium
+	, alertIcon = Just "refresh"
 	}
 
 activityAlert :: Maybe String -> String -> Alert
@@ -220,4 +211,5 @@ sanityCheckFixAlert msg = Alert
 	, alertBlockDisplay = True
 	, alertPriority = High
 	, alertClosable = True
+	, alertIcon = Just "exclamation-sign"
 	}

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")