Rename the ImportResult constructors.

[dead/htsn-import.git] / src / Xml.hs

diff --git a/src/Xml.hs b/src/Xml.hs
index dfb6d055ac0e297b94d42d92eff810e1464d42ec..96ba0116e184986b7b0a1942a5d96c002eb860db 100644 (file)
--- a/src/Xml.hs
+++ b/src/Xml.hs
@@ -3,6 +3,7 @@
 -- | General XML stuff.
 --
 module Xml (
+  DtdName(..),
   ToFromXml(..),
   parse_opts,
   pickle_unpickle )
@@ -59,6 +60,11 @@ class ToFromXml a where
   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