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  "b"    -> True
  11  "br"   -> True
  12  "code" -> True
  13  "em"   -> True
  14  "i"    -> True
  15  "q"    -> True
  16  "u"    -> True
  17  "span" -> True
  18  _      -> False