blob: 9fa5f8ad605680cab9c2f4039d382fffdd1ed265 (
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 : String -> Html
renderSpinIcon iconClass =
i
[ class <| "fa fa-fw fa-spin fa-" ++ iconClass ]
[]
|
