src/Text/Blaze/HTML5.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Text.Blaze.HTML5 where
   3
   4 import Data.Bool
   5 import Data.Text (Text)
   6
   7 isInlinedElement :: Text -> Bool
   8 isInlinedElement = \case
   9  "a"      -> True
  10  "br"     -> True
  11  "code"   -> True
  12  "em"     -> True
  13  "i"      -> True
  14  "q"      -> True
  15  "span"   -> True
  16  "sub"    -> True
  17  "sup"    -> True
  18  "strong" -> True
  19  "u"      -> True
  20  _        -> False