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" ]
    []