module Graphics.Badge.Barrier
(
Badge
, flat
, flatSquare
, plastic
, renderBadge
, HasLeftColor(..)
, HasRightColor(..)
, module Graphics.Badge.Barrier.Color
) where
import Graphics.Badge.Barrier.Internal
import Graphics.Badge.Barrier.Color
import Graphics.Badge.Barrier.Style.Flat
import Graphics.Badge.Barrier.Style.FlatSquare
import Graphics.Badge.Barrier.Style.Plastic
import Text.Blaze.Svg.Renderer.Utf8
import Data.Text(Text)
import Data.ByteString.Lazy(ByteString)
renderBadge :: Badge b => b
-> Text
-> Text
-> ByteString
renderBadge b l r = renderSvg $ makeBadge b l r