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