Text/Blaze/HTML5.hs

   1 {-# LANGUAGE OverloadedStrings #-}
   2 module Text.Blaze.HTML5 where
   3
   4 import Data.Text (Text)
   5
   6 import Text.Blaze.Utils
   7
   8 indentTag :: Text -> IndentTag
   9 indentTag t =
  10         case t of
  11          "aside"      -> IndentTagChildren
  12          "body"       -> IndentTagChildren
  13          "div"        -> IndentTagChildren
  14          "dl"         -> IndentTagChildren
  15          "head"       -> IndentTagChildren
  16          "html"       -> IndentTagChildren
  17          "nav"        -> IndentTagChildren
  18          "ol"         -> IndentTagChildren
  19          "section"    -> IndentTagChildren
  20          "table"      -> IndentTagChildren
  21          "tbody"      -> IndentTagChildren
  22          "thead"      -> IndentTagChildren
  23          "tr"         -> IndentTagChildren
  24          "ul"         -> IndentTagChildren
  25          -- "td"         -> IndentTagText
  26          "li"         -> IndentTagText
  27          _            -> IndentTagPreserve