module Text.XHtml.Strict (
     
     Html, HtmlAttr,
     
     HTML(..), ADDATTRS(..), CHANGEATTRS(..),
     
     (<<), concatHtml, (+++), 
     noHtml, isNoHtml, tag, itag,
     htmlAttrPair, emptyAttr, intAttr, strAttr, htmlAttr,
     primHtml, stringToHtmlString,
     docType,
     
     showHtml, renderHtml, renderHtmlWithLanguage, prettyHtml,
     showHtmlFragment, renderHtmlFragment, prettyHtmlFragment,
     module Text.XHtml.Strict.Elements,
     module Text.XHtml.Strict.Attributes,
     module Text.XHtml.Extras
  ) where
import Text.XHtml.Internals
import Text.XHtml.Strict.Elements
import Text.XHtml.Strict.Attributes
import Text.XHtml.Extras
docType :: String
docType :: String
docType = String
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\""
          String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">"
showHtml :: HTML html => html -> String
showHtml :: forall html. HTML html => html -> String
showHtml = String -> html -> String
forall html. HTML html => String -> html -> String
showHtmlInternal String
docType
renderHtml :: HTML html => html -> String
renderHtml :: forall html. HTML html => html -> String
renderHtml = String -> html -> String
forall html. HTML html => String -> html -> String
renderHtmlInternal String
docType
renderHtmlWithLanguage :: HTML html
                       => String 
                       -> html 
                       -> String
renderHtmlWithLanguage :: forall html. HTML html => String -> html -> String
renderHtmlWithLanguage String
l html
theHtml =
    String
docType String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"\n" String -> String -> String
forall a. [a] -> [a] -> [a]
++ Html -> String
forall html. HTML html => html -> String
renderHtmlFragment Html
code  String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
"\n"
  where
    code :: Html
code = String -> Html -> Html
tag String
"html" (Html -> Html) -> [HtmlAttr] -> Html -> Html
forall a. ADDATTRS a => a -> [HtmlAttr] -> a
! [ String -> String -> HtmlAttr
strAttr String
"xmlns" String
"http://www.w3.org/1999/xhtml"
                           , String -> String -> HtmlAttr
strAttr String
"lang" String
l
                           , String -> String -> HtmlAttr
strAttr String
"xml:lang" String
l
                           ] (Html -> Html) -> html -> Html
forall a b. HTML a => (Html -> b) -> a -> b
<< html
theHtml
prettyHtml :: HTML html => html -> String
prettyHtml :: forall html. HTML html => html -> String
prettyHtml = String -> html -> String
forall html. HTML html => String -> html -> String
prettyHtmlInternal String
docType