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

import Data.Bool
import Data.Text (Text)

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