{-# LANGUAGE OverloadedStrings #-}

module View.Icon
  ( renderIcon
  ) where

import Data.String (fromString)

import Text.Blaze.Html
import Text.Blaze.Html5
import Text.Blaze.Html5.Attributes

renderIcon :: String -> Html
renderIcon iconName =
  i
    ! class_ (fromString $ "fa fa-fw fa-" ++ iconName)
    $ ""