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          "body"       -> IndentTagChildren
  12          "head"       -> IndentTagChildren
  13          "html"       -> IndentTagChildren
  14          "ol"         -> IndentTagChildren
  15          "section"    -> IndentTagChildren
  16          "table"      -> IndentTagChildren
  17          "tbody"      -> IndentTagChildren
  18          "thead"      -> IndentTagChildren
  19          "tr"         -> IndentTagChildren
  20          "ul"         -> IndentTagChildren
  21          "div"        -> IndentTagText
  22          -- "td"         -> IndentTagText
  23          "li"         -> IndentTagText
  24          _            -> IndentTagPreserve