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

import Data.Text (Text)

import Text.Blaze.Utils

indentTag :: Text -> IndentTag
indentTag t =
	case t of
	 "aside"      -> IndentTagChildren
	 "body"       -> IndentTagChildren
	 "div"        -> IndentTagChildren
	 "dl"         -> IndentTagChildren
	 "head"       -> IndentTagChildren
	 "html"       -> IndentTagChildren
	 "nav"        -> IndentTagChildren
	 "ol"         -> IndentTagChildren
	 "section"    -> IndentTagChildren
	 "table"      -> IndentTagChildren
	 "tbody"      -> IndentTagChildren
	 "thead"      -> IndentTagChildren
	 "tr"         -> IndentTagChildren
	 "ul"         -> IndentTagChildren
	 -- "td"         -> IndentTagText
	 "li"         -> IndentTagText
	 _            -> IndentTagPreserve