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