src/View/Icon.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{-# 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)
    $ ""