diff options
Diffstat (limited to 'Assistant/Alert.hs')
| -rw-r--r-- | Assistant/Alert.hs | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/Assistant/Alert.hs b/Assistant/Alert.hs index 7e825d8b2..e953e1a5e 100644 --- a/Assistant/Alert.hs +++ b/Assistant/Alert.hs @@ -18,7 +18,6 @@ import qualified Data.Text as T import Data.Text (Text) import qualified Data.Map as M import Data.String -import Yesod {- Different classes of alerts are displayed differently. -} data AlertClass = Success | Message | Activity | Warning | Error @@ -57,17 +56,6 @@ data Alert = Alert data AlertIcon = ActivityIcon | SuccessIcon | ErrorIcon | InfoIcon | TheCloud -htmlIcon :: AlertIcon -> GWidget sub master () -htmlIcon ActivityIcon = bootStrapIcon "refresh" -htmlIcon InfoIcon = bootStrapIcon "info-sign" -htmlIcon SuccessIcon = bootStrapIcon "ok" -htmlIcon ErrorIcon = bootStrapIcon "exclamation-sign" --- utf-8 umbrella (utf-8 cloud looks too stormy) -htmlIcon TheCloud = [whamlet|☂|] - -bootStrapIcon :: Text -> GWidget sub master () -bootStrapIcon name = [whamlet|<i .icon-#{name}></i>|] - {- When clicked, a button always redirects to a URL - It may also run an IO action in the background, which is useful - to make the button close or otherwise change the alert. -} |