module Text.HTML.Light.Constant where
import Text.XML.Light
copy :: Content
copy = Text (CData CDataRaw "©" Nothing)
darr :: Content
darr = Text (CData CDataRaw "↓" Nothing)
dArr :: Content
dArr = Text (CData CDataRaw "⇓" Nothing)
deg :: Content
deg = Text (CData CDataRaw "°" Nothing)
hellip :: Content
hellip = Text (CData CDataRaw "…" Nothing)
larr :: Content
larr = Text (CData CDataRaw "←" Nothing)
empty :: Content
empty = Text (CData CDataRaw "∅" Nothing)
lArr :: Content
lArr = Text (CData CDataRaw "⇐" Nothing)
laquo :: Content
laquo = Text (CData CDataRaw "«" Nothing)
nbsp :: Content
nbsp = Text (CData CDataRaw " " Nothing)
rarr :: Content
rarr = Text (CData CDataRaw "→" Nothing)
rArr :: Content
rArr = Text (CData CDataRaw "⇒" Nothing)
raquo :: Content
raquo = Text (CData CDataRaw "»" Nothing)
uarr :: Content
uarr = Text (CData CDataRaw "↑" Nothing)
uArr :: Content
uArr = 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, ">"]
html5_dt :: DocType
html5_dt = "<!DOCTYPE html>"