module Text.HTML.Light.Constant where
import Text.XML.Light
copy :: Content
copy = Text (CData CDataRaw "©" Nothing)
larr :: Content
larr = Text (CData CDataRaw "←" Nothing)
nbsp :: Content
nbsp = Text (CData CDataRaw " " Nothing)
rarr :: Content
rarr = Text (CData CDataRaw "→" Nothing)
xml_1_0 :: String
xml_1_0 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>"
type DocType = String
xhtml_1_0_strict :: DocType
xhtml_1_0_strict =
let dtd = "PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
url = "\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\""
in concat ["<!DOCTYPE html ", dtd, " ", url, ">"]
xhtml_1_0_transitional :: DocType
xhtml_1_0_transitional =
let dtd = "PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\""
url = "\"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\""
in concat ["<!DOCTYPE html ", dtd, " ", url, ">"]