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