{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.HTML5 where

import Data.Bool
import Data.Text (Text)

isInlinedElement :: Text -> Bool
isInlinedElement = \case
 "a"    -> True
 "b"    -> True
 "br"   -> True
 "code" -> True
 "em"   -> True
 "i"    -> True
 "q"    -> True
 "u"    -> True
 "span" -> True
 _      -> False