Move the wrapper div inside the ArticlePage to_xhtml function.

[dead/lwn-epub.git] / src / LWN / XHTML.hs

diff --git a/src/LWN/XHTML.hs b/src/LWN/XHTML.hs
index caa740336010fe5d1fc21df6ae3ece5c44a845c2..f6632db19fe902afd69a8ea3017adeeba4b43655 100644 (file)
--- a/src/LWN/XHTML.hs
+++ b/src/LWN/XHTML.hs
@@ -1,11 +1,15 @@
 module LWN.XHTML (
   XHTML,
+  XML,
+  my_read_opts,
   parse_lwn,
-  to_xhtml
+  to_xhtml,
+  to_xml
   )
 where
 
 import Text.XML.HXT.Core (
+  ArrowXml,
   IOStateArrow,
   SysConfigList,
   XmlTree,
@@ -20,7 +24,8 @@ import Text.XML.HXT.Core (
 class XHTML a where
   to_xhtml :: a -> String
 
-
+class XML a where
+  to_xml :: (ArrowXml b) => a -> (b XmlTree XmlTree)
 
 -- | Options used when parsing HTML.
 my_read_opts :: SysConfigList