11 import Text.XML.HXT.Core (
25 to_xhtml :: a -> String
28 to_xml :: (ArrowXml b) => a -> (b XmlTree XmlTree)
30 -- | Options used when parsing HTML.
31 my_read_opts :: SysConfigList
32 my_read_opts = [ withValidate no,
36 -- | My version of HandsomeSoup's parseHTML.
37 parse_lwn :: String -> IOStateArrow s b XmlTree
38 parse_lwn = readString my_read_opts