X-Git-Url: http://gitweb.michael.orlitzky.com/?p=dead%2Flwn-epub.git;a=blobdiff_plain;f=src%2FLWN%2FXHTML.hs;h=f6632db19fe902afd69a8ea3017adeeba4b43655;hp=caa740336010fe5d1fc21df6ae3ece5c44a845c2;hb=2953924e2016393a1ffb9e2e82b4c90c8c57dfd3;hpb=10f322ce20600de109c4643967b6ce3f61f69bf6

diff --git a/src/LWN/XHTML.hs b/src/LWN/XHTML.hs
index caa7403..f6632db 100644
--- 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