blob: 468265fd91ba674a3a23c0c3ffbd459a1295f699 (
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-spin fa-spinner" ]
[]
|
