-- | General XML stuff.
--
module Xml (
+ DtdName(..),
ToFromXml(..),
parse_opts,
pickle_unpickle )
from_xml_fk :: AutoKey (Container a) -> Xml a -> a
from_xml_fk _ = from_xml
+
+-- | Represents the DTD filename ("SYSTEM") part of the DOCTYPE
+-- definition.
+newtype DtdName = DtdName String
+
-- | A list of options passed to 'readDocument' when we parse an XML
-- document. We don't validate because the DTDs from TSN are
-- wrong. As a result, we don't want to keep useless DTDs