animate syncing and other activity icons
This commit is contained in:
parent
77eb11bc9c
commit
1c36af163c
6 changed files with 9 additions and 6 deletions
|
@ -88,8 +88,9 @@ getClickAlert i = do
|
|||
redirect $ buttonUrl b
|
||||
_ -> redirectBack
|
||||
|
||||
htmlIcon :: AlertIcon -> GWidget sub master ()
|
||||
htmlIcon ActivityIcon = bootstrapIcon "refresh"
|
||||
htmlIcon :: AlertIcon -> GWidget WebApp WebApp ()
|
||||
htmlIcon ActivityIcon = [whamlet|<img src="@{StaticR activityicon_gif}" alt="">|]
|
||||
htmlIcon SyncIcon = [whamlet|<img src="@{StaticR syncicon_gif}" alt="">|]
|
||||
htmlIcon InfoIcon = bootstrapIcon "info-sign"
|
||||
htmlIcon SuccessIcon = bootstrapIcon "ok"
|
||||
htmlIcon ErrorIcon = bootstrapIcon "exclamation-sign"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue