blob: bdbe6d5bb89d480f55f24a16894eb7b94975a3b9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
module View.Icon
( renderIcon
, renderSpinIcon
) where
import Html exposing (..)
import Html.Attributes exposing (..)
renderIcon : String -> Html
renderIcon iconClass =
i
[ class <| "fa fa-fw fa-" ++ iconClass ]
[]
renderSpinIcon : Html
renderSpinIcon =
i
[ class <| "fa fa-fw fa-pulse fa-spinner" ]
[]
|
