diff --git a/Makefile b/Makefile --- a/Makefile +++ b/Makefile @@ -3,15 +3,14 @@ HXT_HOME = . software = hxt +VERSION = 7.5 dist = $(software)-$(VERSION) +DIST = $(software)-$(VERSION) DIST_FILES = Makefile README LICENCE Setup.lhs hxt.cabal DIST_TAR = $(dist).tar.gz -SOFTWARE = hxt -VERSION = 7.4 -VERSIONTAG = $(software)-7-04 # use: make tag for creating darcs tag -LASTVERSION = 7.3 -DIST = $(SOFTWARE)-$(VERSION) +VERSIONTAG = $(software)-7-05 # use: make tag for creating darcs tag +LASTVERSION = 7.4 PUBDATE := $(shell date +%Y-%m-%d) EDIT_VERSION = sed 's/%DISTFILE%/$(DIST)/g' \ @@ -68,6 +67,11 @@ uninstall : $(MAKE) -C src uninstall + +distdate = $(shell date -r $(DIST_TAR) +%Y-%m-%d.%R) + +distcopy : $(DIST_TAR) + scp $(DIST_TAR) hxt@darcs.fh-wedel.de:/home/hxt/hxt/hxt-head-$(distdate).tar.gz # -------------------------------------------------- diff --git a/doc/hdoc/Control-Arrow-ArrowIO.html b/doc/hdoc/Control-Arrow-ArrowIO.html --- a/doc/hdoc/Control-Arrow-ArrowIO.html +++ b/doc/hdoc/Control-Arrow-ArrowIO.html @@ -19,7 +19,7 @@ > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeunlistA :: a [b] bthis :: a b bmergeA :: (a (a1, b1) a1 -> a (a1, b1) b1 -> a (a1, b1) c) -> a (a1, b1) cperform :: a b c -> a b bunlistA :: a [b] b

the inverse of listA +

 listA af >>> unlistA = af

unlistA is defined as arrL id +

, $< +

mergeA :: (a (a1, b1) a1 -> a (a1, b1) b1 -> a (a1, b1) c) -> a (a1, b1) c

merge the result pairs of an arrow with type a a1 (b1, b2) + by combining the tuple components with the op arrow +

examples with simple list arrows working on strings and XmlTrees +

     a1 :: a String (XmlTree, XmlTree)
+     a1 = selem "foo" [this >>> mkText]
+ 	  &&&
+ 	  selem "bar" [arr (++"0") >>> mkText]
+ 
+     runLA (a1 >>> mergeA (<+>) >>> xshow this) "42" == ["<foo>42</foo>","<bar>420</bar>"]
+     runLA (a1 >>> mergeA (+=)  >>> xshow this) "42" == ["<foo>42<bar>420</bar></foo>"]
+

see also: applyA, $< and += in class ArrowXml

Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeDeepSeq QName Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeparseHtmlTagSoup :: ArrowList a => Bool -> Bool -> Bool -> Bool -> Bool -> a (String, String) XmlTreevalidateDoc :: :: ArrowList a => a String XmlTreeparseHtmlTagSoup :: ArrowList a => Bool -> Bool -> Bool -> Bool -> Bool -> a (String, String) XmlTree Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeparseHtmlDocument :: Bool -> :: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTreeparseHtmlDocument :: Bool -> :: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTree Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code
  • a_tagsoup : use light weight and lasy parser based on tagsoup lib +
  • a_parse_by_mimetype : select the parser by the mime type of the document + (pulled out of the HTTP header). When the mime type is set to "text/html" + the HTML parser (parsec or tagsoup) is taken, when it's set to + "text/xml" or "text/xhtml" the XML parser (parsec or tagsoup) is taken. + If the mime type is something else no further processing is performed, + the contents is given back to the application in form of a single text node. + If the default document encoding (a_encoding) is set to isoLatin1, this even enables processing + of arbitray binary data. +
  • a_validate
     readDocument [ (a_parse_html, "1")
               , (a_encoding, isoLatin1)
+              , (a_tagsoup,    "1")
               ] ""

    isoLatin1 +>, +parsing is done with tagsoup parser 

     readDocument [ (a_parse_html,     "1")
diff --git a/doc/hdoc/Text-XML-HXT-Arrow-WriteDocument.html b/doc/hdoc/Text-XML-HXT-Arrow-WriteDocument.html
--- a/doc/hdoc/Text-XML-HXT-Arrow-WriteDocument.html
+++ b/doc/hdoc/Text-XML-HXT-Arrow-WriteDocument.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeXmlTree StringprepareContents :: Attributes -> IOStateArrow s XmlTree XmlTreewriteDocument.
+prepareContents :: Attributes -> IOStateArrow s XmlTree XmlTreeindent and format output
 
+
+Text.XML.HXT.Arrow.XPath
     Haskell Xml Toolbox 7.5: The complete APISource codeContentsIndex
    Text.XML.HXT.Arrow.XPath
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    Arrows for working with XPath and XmlNodeSets.
+
    Most of the XPath arrows come in two versions,
+   one without dealing with namespaces, element and attribute names
+   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
+
    The second variant uses a namespace environment for associating the right
+   namespace for the appropriate prefix. an entry for the empty prefix
+   defines the default namespace for the expression.
+
    The second variant should be used, when in the application namespaces
+   are significant, that means when namespace propagation is done for
+   the documents to be processed.
+
    NodeSets are sets of "pointer" into an XML tree to reference
+   subnodes. These nodesets can be computed by XPath expressions or
+   normal arrows. The nodesets can then be used later for selecting
+   or modifying subtrees of this tree in an efficient way.
+
    Synopsis
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getXPathNodeSet :: ArrowXml a => String -> a XmlTree XmlNodeSet
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    Documentation
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    Select parts of a whole XML document with root node by a XPath expression.
+
    The main filter for selecting parts of a document via XPath.
+
    The string argument must be a XPath expression with an absolute location path,
+ the argument tree must be a complete document tree.
+
    Before evaluating the xpath query, the document is canonicalized
+ with canonicalizeForXPath
+
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+ XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+ are convertet to text nodes.
+
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTreesInDoc but with namespace environment for the XPath names
+
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    Select parts of an arbitrary XML tree by a XPath expression.
+
    The main filter for selecting parts of an arbitrary XML tree via XPath.
+ The string argument must be a XPath expression with an absolute location path,
+ There are no restrictions on the argument tree.
+
    No canonicalization is performed before evaluating the query
+
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+ XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+ are convertet to text nodes.
+
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTrees but with namespace environment for the XPath names
+
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes selected by the predicate arrow
+
    computation of the set of element nodes with name "a" is done with
+
     getElemNodeSet (hasName "a")
+
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes including attribute nodes
+ elected by the predicate arrow
+
    getXPathNodeSet :: ArrowXml a => String -> a XmlTree XmlNodeSet
    Select a set of nodes via an XPath expression from an arbitray XML tree
+
    The result is a set of "pointers" to nodes. This set can be used to
+ access or modify the values of the subnodes in subsequent calls to getFromNodeSet or processFromNodeSet.
+
    This function enables for parsing an XPath expressions and traversing the tree for node selection once
+ and reuse this result possibly many times for later selection and modification operations.
+
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    select all subtrees specified by a previously computed node set
+
    the following law holds:
+
     getFromNodeSet $< getElemNodeSet f == multi f
+
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    process all subtrees selected by an XPath expression
+
    the following law holds:
+
     processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
+
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    Same as processXPathTrees but with namespace environment for the XPath names
+
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    process all subtrees specified by a previously computed node set in bottom up manner
+
    the follwoing law holds:
+
     processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
+
    when attributes are contained in the node set (see getElemAndAttrNodeSet), these are processed
+ after the children and before the node itself
+
    the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
+ from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
+
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc/Text-XML-HXT-Arrow-XPathSimple.html b/doc/hdoc/Text-XML-HXT-Arrow-XPathSimple.html
new file mode 100644
--- /dev/null
+++ b/doc/hdoc/Text-XML-HXT-Arrow-XPathSimple.html
@@ -0,0 +1,2001 @@
+
+
+Text.XML.HXT.Arrow.XPathSimple
     Haskell Xml Toolbox 7.5: The complete APISource codeContentsIndex
    Text.XML.HXT.Arrow.XPathSimple
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    XPath selection for simple XPath expressions with list arrows
+   instead of navigatable trees.
+
    It is recomended, that this module is imported qualified,
+   e.g like Text.XML.HXT.Arrow.XPathSimple as XS.
+
    The arrows defined in this module have the same
+   functionality as the functions in XPath.
+
    The computation modell in XPath is a navigatable tree,
+   that means a tree wicht can be traveresed in arbitrary directions,
+   not only from the root to the leafs. Sometimes this modell
+   leads to inefficent XPath processing for simple queries, which
+   only need a top down tree traversal.
+
    When evaluating an XPath expression with these functions, first an attempt is made
+   to map the XPath expression to a pure arrow. If this is possible
+   due to the siplicity of the XPath expressions, the result is computed
+   directly, else the query is processed by the corresponding
+   function in XPath.
+
    The simple evaluation is possible, when in the XPath expression
+   only the top down axis (self, child, descendant, descendant or self are used,
+   when no builtin functions concerning the position of a node are used,
+   and no comparison of nodes e.g. in node set union is required.
+
    Synopsis
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    tryGetXPath :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXP :: NsEnv -> String -> LA XmlTree XmlTree
    type XPArrow b c = Maybe (LA b c)
    mk :: LA b c -> XPArrow b c
    unwrap :: XPArrow b b -> LA b b
    (>>>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    (&&&&) :: XPArrow b b -> XPArrow b b -> XPArrow b (b, b)
    (<+>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    guards' :: XPArrow b b -> XPArrow b b -> XPArrow b b
    this' :: XPArrow b b
    this'' :: XPArrow b b
    toThis :: XPArrow b b -> XPArrow b b
    getChildren' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    getAttrl' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    multi' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    deep' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    xIndex :: Int -> LA [b] b
    xString :: XPArrow XmlTree XmlTree -> LA XmlTree String
    xNumber' :: XPArrow XmlTree XmlTree -> LA XmlTree XPNumber
    deadEndStreet :: Monad m => m a
    compXPath :: MonadPlus m => Expr -> m (LA XmlTree XmlTree)
    compXP :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compFP :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compLP :: MonadPlus m => [XStep] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compXS :: MonadPlus m => XStep -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compNTE :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNTA :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNameT :: Monad m => LA XmlTree XmlTree -> QName -> m (XPArrow XmlTree XmlTree)
    compNT :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compPred :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compPred1 :: MonadPlus m => Expr -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compRelPathExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compStringExpr :: MonadPlus m => Expr -> m String
    compNumberExpr :: MonadPlus m => Expr -> m XPNumber
    compIntExpr :: MonadPlus m => Expr -> m Int
    compBoolExpr :: MonadPlus m => Expr -> m Bool
    compGenExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compString :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compNumber :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compBool :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compPath :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    toNumber :: String -> XPNumber
    equalNodeSet :: Eq a => [a] -> [a] -> [a]
    Documentation
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesInDoc
+
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesInDocWithNsEnv
+
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    Same Functionality as getXPathTrees
+
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesWithNsEnv
+
    tryGetXPath :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    The xpath interpreter for simple xpath expressions.
+
    In case of a too complicated or illegal xpath expression an error
+ node is returned, else the list of selected XML trees
+
    getXP :: NsEnv -> String -> LA XmlTree XmlTree
    type XPArrow b c = Maybe (LA b c)
    mk :: LA b c -> XPArrow b c
    unwrap :: XPArrow b b -> LA b b
    (>>>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    (&&&&) :: XPArrow b b -> XPArrow b b -> XPArrow b (b, b)
    (<+>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    guards' :: XPArrow b b -> XPArrow b b -> XPArrow b b
    this' :: XPArrow b b
    this'' :: XPArrow b b
    toThis :: XPArrow b b -> XPArrow b b
    getChildren' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    getAttrl' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    multi' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    deep' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    xIndex :: Int -> LA [b] b
    xString :: XPArrow XmlTree XmlTree -> LA XmlTree String
    xNumber' :: XPArrow XmlTree XmlTree -> LA XmlTree XPNumber
    deadEndStreet :: Monad m => m a
    compXPath :: MonadPlus m => Expr -> m (LA XmlTree XmlTree)
    compXP :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compFP :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compLP :: MonadPlus m => [XStep] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compXS :: MonadPlus m => XStep -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compNTE :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNTA :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNameT :: Monad m => LA XmlTree XmlTree -> QName -> m (XPArrow XmlTree XmlTree)
    compNT :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compPred :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compPred1 :: MonadPlus m => Expr -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compRelPathExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compStringExpr :: MonadPlus m => Expr -> m String
    compNumberExpr :: MonadPlus m => Expr -> m XPNumber
    compIntExpr :: MonadPlus m => Expr -> m Int
    compBoolExpr :: MonadPlus m => Expr -> m Bool
    compGenExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compString :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compNumber :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compBool :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compPath :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    toNumber :: String -> XPNumber
    equalNodeSet :: Eq a => [a] -> [a] -> [a]
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc/Text-XML-HXT-Arrow-XmlArrow.html b/doc/hdoc/Text-XML-HXT-Arrow-XmlArrow.html
--- a/doc/hdoc/Text-XML-HXT-Arrow-XmlArrow.html
+++ b/doc/hdoc/Text-XML-HXT-Arrow-XmlArrow.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codehasNameWith :: ( :: (QName -> Bool) -> a XmlTreehasQName ::  :: QName -> a XmlTreehasQAttr ::  :: QName -> a XmlTreehasQAttrValue ::  :: QName -> (String -> Bool) -> a XmlTreemkElement ::  :: QName -> a n XmlTreemkAttr ::  :: QName -> a n XmlTreemkPi ::  :: QName -> a n XmlTreemkqelem ::  :: QName -> [a n XmlTreeqattr ::  :: QName -> a n XmlTreesqattr ::  :: QName -> String -> a n XmlTreegetPiName :: a XmlTree  QNamegetElemName :: a XmlTree  QNamegetAttrName :: a XmlTree  QNamegetQName :: a XmlTree  QNamegetQAttrValue ::  :: QName -> a XmlTreegetQAttrValue0 ::  :: QName -> a XmlTreechangeQName :: ( :: (QName ->  -> QName) -> a XmlTreechangeElemName :: ( :: (QName ->  -> QName) -> a XmlTreechangeAttrName :: ( :: (QName ->  -> QName) -> a XmlTreechangePiName :: ( :: (QName ->  -> QName) -> a XmlTreesetQName ::  :: QName -> a XmlTreesetElemName ::  :: QName -> a XmlTreesetAttrName ::  :: QName -> a XmlTreesetPiName ::  :: QName -> a XmlTreeremoveQAttr ::  :: QName -> a XmlTreehasNameWith :: ( :: (QName -> Bool) -> a XmlTreehasQName ::  :: QName -> a XmlTreehasQAttr ::  :: QName -> a XmlTreehasQAttrValue ::  :: QName -> (String -> Bool) -> a XmlTreemkElement ::  :: QName -> a n XmlTreemkAttr ::  :: QName -> a n XmlTreemkPi ::  :: QName -> a n XmlTreemkqelem ::  :: QName -> [a n XmlTreeqattr ::  :: QName -> a n XmlTreesqattr ::  :: QName -> String -> a n XmlTreegetPiName     :: a XmlTree  QNamegetElemName :: a XmlTree  QNamegetAttrName :: a XmlTree  QNamegetQName :: a XmlTree  QNamegetQAttrValue ::  :: QName -> a XmlTreegetQAttrValue0 ::  :: QName -> a XmlTreechangeQName :: ( :: (QName ->  -> QName) -> a XmlTreechangeElemName :: ( :: (QName ->  -> QName) -> a XmlTreechangeAttrName :: ( :: (QName ->  -> QName) -> a XmlTreechangePiName :: ( :: (QName ->  -> QName) -> a XmlTreesetQName ::  :: QName -> a XmlTreesetElemName ::  :: QName -> a XmlTreesetAttrName ::  :: QName -> a XmlTreesetPiName ::  :: QName -> a XmlTreeremoveQAttr ::  :: QName -> a XmlTree Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codemkPi ::  :: QName -> XmlTreesgetPiName :: a -> Maybe  :: a -> Maybe QNamegetElemName :: a -> Maybe  :: a -> Maybe QNamegetAttrName :: a -> Maybe  :: a -> Maybe QNamegetName :: a -> Maybe  :: a -> Maybe QNamechangeName :: ( :: (QName ->  -> QName) -> a -> achangeElemName :: ( :: (QName ->  -> QName) -> a -> achangeAttrName :: ( :: (QName ->  -> QName) -> a -> achangePiName :: ( :: (QName ->  -> QName) -> a -> asetName ::  :: QName -> a -> asetElemName ::  :: QName -> a -> asetAttrName ::  :: QName -> a -> asetPiName ::  :: QName -> a -> amkElementNode ::  :: QName -> XmlTreesmkAttrNode ::  :: QName -> XNodemkElement ::  :: QName -> XmlTreesmkAttr ::  :: QName -> XmlTrees
-
-Text.XML.HXT.Arrow.XmlNodeSet
     Haskell Xml Toolbox 7.4: The complete APISource codeContentsIndex
    Text.XML.HXT.Arrow.XmlNodeSet
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    Version    : $Id: XmlNodeSet.hs,v 1.5 20061112 14:52:59 hxml Exp $
-
    Arrows for working with XPath and XmlNodeSets.
-
    Most of the XPath arrows come in two versions,
-   one without dealing with namespaces, element and attribute names
-   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
-
    The second variant uses a namespace environment for associating the right
-   namespace for the appropriate prefix. an entry for the empty prefix
-   defines the default namespace for the expression.
-
    The second variant should be used, when in the application namespaces
-   are significant, that means when namespace propagation is done for
-   the documents to be processed.
-
    NodeSets are sets of "pointer" into an XML tree to reference
-   subnodes. These nodesets can be computed by XPath expressions or
-   normal arrows. The nodesets can then be used later for selecting
-   or modifying subtrees of this tree in an efficient way.
-
    Synopsis
    getXPathTreesInDoc :: ArrowList a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowList a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getXPathNodeSet :: ArrowList a => String -> a XmlTree XmlNodeSet
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    Documentation
    getXPathTreesInDoc :: ArrowList a => String -> a XmlTree XmlTree
    Select parts of a whole XML document with root node by a XPath expression.
-
    The main filter for selecting parts of a document via XPath.
-
    The string argument must be a XPath expression with an absolute location path,
- the argument tree must be a complete document tree.
-
    Before evaluating the xpath query, the document is canonicalized
- with canonicalizeForXPath
-
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
- are convertet to text nodes.
-
    getXPathTreesInDocWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTreesInDoc but with namespace environment for the XPath names
-
    getXPathTrees :: ArrowList a => String -> a XmlTree XmlTree
    Select parts of an arbitrary XML tree by a XPath expression.
-
    The main filter for selecting parts of an arbitrary XML tree via XPath.
- The string argument must be a XPath expression with an absolute location path,
- There are no restrictions on the argument tree.
-
    No canonicalization is performed before evaluating the query
-
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
- are convertet to text nodes.
-
    getXPathTreesWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTrees but with namespace environment for the XPath names
-
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes selected by the predicate arrow
-
    computation of the set of element nodes with name "a" is done with
-
     getElemNodeSet (hasName "a")
-
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes including attribute nodes
- elected by the predicate arrow
-
    getXPathNodeSet :: ArrowList a => String -> a XmlTree XmlNodeSet
    Select a set of nodes via an XPath expression from an arbitray XML tree
-
    The result is a set of "pointers" to nodes. This set can be used to
- access or modify the values of the subnodes in subsequent calls to getFromNodeSet or processFromNodeSet.
-
    This function enables for parsing an XPath expressions and traversing the tree for node selection once
- and reuse this result possibly many times for later selection and modification operations.
-
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    select all subtrees specified by a previously computed node set
-
    the following law holds:
-
     getFromNodeSet $< getElemNodeSet f == multi f
-
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    process all subtrees selected by an XPath expression
-
    the following law holds:
-
     processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
-
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    Same as processXPathTrees but with namespace environment for the XPath names
-
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    process all subtrees specified by a previously computed node set in bottom up manner
-
    the follwoing law holds:
-
     processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
-
    when attributes are contained in the node set (see getElemAndAttrNodeSet), these are processed
- after the children and before the node itself
-
    the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
- from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
-
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc/Text-XML-HXT-Arrow.html b/doc/hdoc/Text-XML-HXT-Arrow.html
--- a/doc/hdoc/Text-XML-HXT-Arrow.html
+++ b/doc/hdoc/Text-XML-HXT-Arrow.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codemodule Text.XML.HXT.Arrow.XmlNodeSetmodule Text.XML.HXT.Arrow.XPath Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeType for the namespace association list, used when propagating namespaces by
  modifying the QName values in a tree
diff --git a/doc/hdoc/Text-XML-HXT-DOM-NamespacePredicates.html b/doc/hdoc/Text-XML-HXT-DOM-NamespacePredicates.html
--- a/doc/hdoc/Text-XML-HXT-DOM-NamespacePredicates.html
+++ b/doc/hdoc/Text-XML-HXT-DOM-NamespacePredicates.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codesetNamespace :: NsEnv ->  -> QName ->  -> QNamexmlnsQN ::  :: QNameisWellformedQName ::  :: QName -> BoolisWellformedNSDecl ::  :: QName -> BoolisDeclaredNamespace ::  :: QName -> BoolsetNamespace :: NsEnv ->  -> QName ->  -> QNamexmlnsQN ::  :: QNameisWellformedQName ::  :: QName -> BoolisWellformedNSDecl ::  :: QName -> BoolisDeclaredNamespace ::  :: QName -> Bool
+
+Text.XML.HXT.DOM.QualifiedName
     Haskell Xml Toolbox 7.5: The complete APISource codeContentsIndex
    Text.XML.HXT.DOM.QualifiedName
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    The core data types of the HXT DOM.
+
    Synopsis
    data QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }
    qualifiedName :: QName -> String
    universalName :: QName -> String
    universalUri :: QName -> String
    buildUniversalName :: (String -> String -> String) -> QName -> String
    mkQName :: String -> String -> String -> QName
    mkName :: String -> QName
    mkPrefixLocalPart :: String -> String -> QName
    mkNsName :: String -> String -> QName
    mkSNsName :: String -> QName
    nullQName :: QName
    equalQName :: QName -> QName -> Bool
    equivQName :: QName -> QName -> Bool
    equivUri :: String -> String -> Bool
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    normalizeNsUri :: String -> String
    Documentation
    data QName 
    Namespace support for element and attribute names.
+
    A qualified name consists of a name prefix, a local name
+ and a namespace uri.
+ All modules, which are not namespace aware, use only the localPart component.
+ When dealing with namespaces, the document tree must be processed by propagateNamespaces
+ to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
+
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
+
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
+
    namespaceUri :: Stringthe associated namespace uri
+
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> String
    builds the full name "prefix:localPart", if prefix is not null, else the local part is the result
+
    universalName :: QName -> String
    builds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
+ (specialisation of buildUniversalName)
+
    universalUri :: QName -> String
    builds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
+ where the subject, predicate and object often are concatenated from namespace uri and local part
+ (specialisation of buildUniversalName)
+
    buildUniversalName :: (String -> String -> String) -> QName -> String
    builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
+ namespace uri and local part are combined with the combining function given by the first parameter
+
    mkQName :: String -> String -> String -> QName
    constructs a complete qualified name with namePrefix, localPart and namespaceUri.
+
    mkName :: String -> QName
    constructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
+
    mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
+
    see also mkName, mkNsName, mkSNsName
+
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
+
    see also mkName, mkPrefixLocalPart
+
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
+
    see also mkNsName, mkPrefixLocalPart
+
    nullQName :: QName
    Empty QName
+
    equalQName :: QName -> QName -> Bool
    Equality of QNames: Two QNames are equal, if the local parts are equal
+ and the namespace URIs are equal.
+ The comparison works with and without namespace propagation.
+ If namespaces have been propagated, the name is split into prefix and local part
+ and the namespace uri is set. In this case the prefix is not significant for equality test.
+ If namespaces have not been propagated, the local part contains the full name, prefix
+ and namespace URI are empty. The full name (prefix and local part) is used for comparison.
+
    equivQName :: QName -> QName -> Bool
    Equivalent QNames are defined as follows: The URIs are normalized before comparison.
+ Comparison is done with equalQNameBy and equivUri
+
    equivUri :: String -> String -> Bool
    Comparison of normalized namespace URIs using normalizeNsUri
+
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    Sometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
+ a name normalization function can be applied to the strings before comparing. Called by equalQName and
+ equivQName
+
    normalizeNsUri :: String -> String
    Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
+
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc/Text-XML-HXT-DOM-TypeDefs.html b/doc/hdoc/Text-XML-HXT-DOM-TypeDefs.html
--- a/doc/hdoc/Text-XML-HXT-DOM-TypeDefs.html
+++ b/doc/hdoc/Text-XML-HXT-DOM-TypeDefs.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.DOM.TypeDefs
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    The core data types of HDOM.
-
    Version : $Id: TypeDefs.hs,v 1.13 20061109 20:27:42 hxml Exp $
-
    The core data types of the HXT DOM.
+| XPi  QName XmlTrees| XTag  QName XmlTrees| XAttr  QNamedata QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }qualifiedName :: QName -> StringuniversalName :: QName -> StringuniversalUri :: QName -> StringbuildUniversalName :: (String -> String -> String) -> QName -> StringmkName :: String -> QNamemkPrefixLocalPart :: String -> String -> QNamemkNsName :: String -> String -> QNamemkSNsName :: String -> QNamenullQName :: QNameequalQName :: QName -> QName -> BoolequivQName :: QName -> QName -> BoolequivUri :: String -> String -> BoolequalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolnormalizeNsUri :: String -> Stringtype NsEnvattrNodes :: [ :: [QName]XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedNameXPi  QName XmlTreesXTag  QName XmlTreesXAttr  QNamedata QName 
    Namespace support for element and attribute names.
-
    A qualified name consists of a name prefix, a local name
- and a namespace uri.
- All modules, which are not namespace aware, use only the localPart component.
- When dealing with namespaces, the document tree must be processed by propagateNamespaces
- to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
-
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
-
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
-
    namespaceUri :: Stringthe associated namespace uri
-
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> Stringbuilds the full name "prefix:localPart", if prefix is not null, else the local part is the result
-universalName :: QName -> Stringbuilds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
- (specialisation of buildUniversalName)
-universalUri :: QName -> Stringbuilds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
- where the subject, predicate and object often are concatenated from namespace uri and local part
- (specialisation of buildUniversalName)
-buildUniversalName :: (String -> String -> String) -> QName -> Stringbuilds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
- namespace uri and local part are combined with the combining function given by the first parameter
-mkName :: String -> QNameconstructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
-mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
-
    see also mkName, mkNsName, mkSNsName
-
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
-
    see also mkName, mkPrefixLocalPart
-
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
-
    see also mkNsName, mkPrefixLocalPart
-
    nullQName :: QNameEmpty QName
-equalQName :: QName -> QName -> BoolEquality of QNames: Two QNames are equal, if the local parts are equal
- and the namespace URIs are equal.
- The comparison works with and without namespace propagation.
- If namespaces have been propagated, the name is split into prefix and local part
- and the namespace uri is set. In this case the prefix is not significant for equality test.
- If namespaces have not been propagated, the local part contains the full name, prefix
- and namespace URI are empty. The full name (prefix and local part) is used for comparison.
-equivQName :: QName -> QName -> BoolEquivalent QNames are defined as follows: The URIs are normalized before comparison.
- Comparison is done with equalQNameBy and equivUri
-equivUri :: String -> String -> BoolComparison of normalized namespace URIs using normalizeNsUri
-equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolSometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
- a name normalization function can be applied to the strings before comparing. Called by equalQName and
- equivQName
-normalizeNsUri :: String -> StringNormalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
-type Type for the namespace association list, used when propagating namespaces by
  modifying the QName values in a tree
@@ -1857,7 +1164,7 @@
 >attrNodes :: [ :: [QName] = [(Int, XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedName Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codea_parse_by_mimetype :: Stringa_parse_html :: Stringa_tagsoup :: Stringa_trace :: Stringk_enitityk_entity :: Stringa_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Boola_parse_by_mimetype :: Stringa_tagsoup :: Stringk_enitityk_entity :: Stringthe predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespaces"
+>the predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespace"
 a_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Bool Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codea_parse_html, a_parse_by_mimetype, a_tagsoup a_issue_warnings Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codemkQTag ::  :: QName -> XmlFiltermkQAttr ::  :: QName -> XmlFilterqetag ::  :: QName -> XmlFilterqtag ::  :: QName -> XmlFilterqattr ::  :: QName -> XmlFiltermkQTag ::  :: QName -> XmlFiltermkQAttr ::  :: QName -> XmlFilterqetag ::  :: QName -> XmlFilterqtag ::  :: QName -> XmlFilterqattr ::  :: QName -> XmlFilter Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codetextOfXNode :: XNode -> StringmkXTagTree :: String -> mkQTagTree ::  :: QName -> XmlTreesmkQAttrTree ::  :: QName -> XmlTreesshowQName ::  :: QName -> String -> StringtextOfXNode :: XNode -> StringmkQTagTree ::  :: QName -> XmlTreesmkQAttrTree ::  :: QName -> XmlTreesshowQName ::  :: QName -> String -> String Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codetype TagName =  = QNametype AttrName =  = QNametName ::  :: QName -> StringaName ::  :: QName -> StringTagName =  = QNameAttrName =  = QNametName ::  :: QName -> Stringshortcut for qualifiedName
@@ -527,14 +527,14 @@
 >aName ::  :: QName -> Stringshortcut for qualifiedName
diff --git a/doc/hdoc/Text-XML-HXT-DOM.html b/doc/hdoc/Text-XML-HXT-DOM.html
--- a/doc/hdoc/Text-XML-HXT-DOM.html
+++ b/doc/hdoc/Text-XML-HXT-DOM.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.Parser.HtmlParsec
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    HTML Parsec Parser
-
    Version : $Id: HtmlParsec.hs,v 1.11 20061208 11:48:20 hxml Exp $
-
    This parser tries to interprete everything as HTML
- no errors are emitted during parsing. If something looks
- weired, warning messages are inserted in the document tree
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
 
    all filter are pure XmlFilter,
- errror handling and IO is done in All filter are pure XmlFilter,
+   errror handling and IO is done in HtmlParser
- or other modules
+   or other modules
 
    isInnerHtmlTagOf :: String -> String -> BoolclosesHtmlTag :: String -> String -> Bool Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.Parser.HtmlParser
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    HTML Parser
-
    Version : $Id: HtmlParser.hs,v 1.4 20061112 14:53:00 hxml Exp $
-
    This parser tries to interprete everything as HTML
- no errors are emitted during parsing. If something looks
- weired, warning messages are inserted in the document tree
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
 
    module contains state filter for easy parsing and error handling
- real work is done in Module contains state filter for easy parsing and error handling
+   real work is done in HtmlParsec Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code
+
+Text.XML.HXT.Parser.TagSoup
     Haskell Xml Toolbox 7.5: The complete APISource codeContentsIndex
    Text.XML.HXT.Parser.TagSoup
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    lasy HTML and simpe XML parser implemented with tagsoup
+   parsing is done with a very simple monadic top down parser
+
    Documentation
    parseHtmlTagSoup :: Bool -> Bool -> Bool -> Bool -> Bool -> String -> String -> XmlTrees
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc/Text-XML-HXT-Parser-XhtmlEntities.html b/doc/hdoc/Text-XML-HXT-Parser-XhtmlEntities.html
--- a/doc/hdoc/Text-XML-HXT-Parser-XhtmlEntities.html
+++ b/doc/hdoc/Text-XML-HXT-Parser-XhtmlEntities.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeerrorMsgDataTypeNotAllowed :: String -> [(String, String)] -> String -> String -> String :: String -> String -> [(String, String)] -> String -> StringerrorMsgParam :: LocalName -> String -> String -> Stringrng_length :: StringalwaysOK :: Check atype FunctionTable = [(String, String -> String -> Bool)]alwaysErr :: (a -> String) -> Check astringValidFT :: FunctionTable -> DatatypeName -> Integer -> Integer -> ParamList -> CheckStringorErr :: (a -> Bool) -> (a -> String) -> Check aandCheck :: Check a -> Check a -> Check afctTableString :: FunctionTablewithVal :: Check a -> (b -> a) -> Check bfctTableList :: FunctionTableDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringnumParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Booldata CheckA a btype CheckString = CheckA String Stringtype CheckInteger = CheckA Integer IntegerperformCheck :: CheckA a b -> a -> Maybe Stringok :: CheckA a afailure :: (a -> String) -> CheckA a bassert :: (a -> Bool) -> (a -> String) -> CheckA a aassertMaybe :: (a -> Maybe b) -> (a -> String) -> CheckA a bcheckWith :: (a -> b) -> CheckA b c -> CheckA a aerrorMsgDataTypeNotAllowed :: String -> [(String, String)] -> String -> String -> String :: String -> String -> [(String, String)] -> String -> StringerrorMsgParam :: LocalName -> String -> String -> String
    Error Message for the equality test of two datatype values
+
    •  1.parameter  :  datatype
+
    •  2.parameter  :  datatype value
+
    •  3.parameter  :  datatype value
+
    example:
+
     errorMsgEqual "Int" "21" "42" -> "Datatype Int with value = 21 expected, but value = 42 found"
+
    type alwaysOK :: Check aFunctionTable = [(String, String -> String -> Bool)]Unit for checks
+>Function table type
 alwaysErr :: (a -> String) -> Check aZero for checks: Create an error message for an illegal value
-stringValidFT     :: FunctionTable -> DatatypeName -> Integer -> Integer -> ParamList -> CheckStringorErr :: (a -> Bool) -> (a -> String) -> Check afctTableString     :: FunctionTablePerform check and generate error message on failure
+>Function table for string tests,
+ XML document value is first operand, schema value second
 andCheck :: Check a -> Check a -> Check afctTableList :: FunctionTableCombine two checks
+>Function table for list tests,
+ XML document value is first operand, schema value second
 withVal :: Check a -> (b -> a) -> Check bDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringnumParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Bool
    tests whether a string value matches a numeric param
+
    valid example:
+
     <data type="CHAR"> <param name="maxLength">5</param> </data>
+
    invalid example:
+
     <data type="CHAR"> <param name="minLength">foo</param> </data>
+
    data CheckA a b
    show/hide Instances
    Arrow CheckA
    ArrowPlus CheckA
    ArrowZero CheckA
    type CheckString = CheckA String Stringtype CheckInteger = CheckA Integer IntegerperformCheck :: CheckA a b -> a -> Maybe Stringrun a check and deliver Just an error message or Nothing
+ok :: CheckA a aevery thing is fine
+failure :: (a -> String) -> CheckA a balways failure
+assert :: (a -> Bool) -> (a -> String) -> CheckA a aperform a simple check with a predicate p,
+   when the predicate holds, assert acts as identity,
+   else an error message is generated
+assertMaybe :: (a -> Maybe b) -> (a -> String) -> CheckA a bperform a simple check with a Maybe function, Nothing indicates error
+checkWith :: (a -> b) -> CheckA b c -> CheckA a aperform a check, but convert the value before checking
+ Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.RelaxNG.Simplification
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    The modul creates the simplified form of a Relax NG schema.
- See also chapter 4 of the Relax NG specification.
+   See also chapter 4 of the Relax NG specification.
  Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.RelaxNG.Utils
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Some helper functions
+>Helper functions for RelaxNG validation
 formatStringListArr :: [String] -> Stringqn2String :: QName -> StringformatStringListArr :: [String] -> Stringqn2String :: QName -> StringFormats a qualified name, e.g. "{namespace}localName"
- Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeText.XML.HXT.RelaxNG.Validation
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Validation of a XML document with respect to a valid Relax NG schema in simple form.
- Copied and modified from "An algorithm for RELAX NG validation" by James Clark
- (http://www.thaiopensource.com/relaxng/derivative.html).
 contains :: NameClass ->  -> QName -> Boolcontains     :: NameClass ->  -> QName -> BoolNameClass     contains a particular QName
diff --git a/doc/hdoc/Text-XML-HXT-RelaxNG-Validator.html b/doc/hdoc/Text-XML-HXT-RelaxNG-Validator.html
--- a/doc/hdoc/Text-XML-HXT-RelaxNG-Validator.html
+++ b/doc/hdoc/Text-XML-HXT-RelaxNG-Validator.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codexsd_string :: Stringxsd_normalizedString :: Stringxsd_token :: Stringxsd_language :: Stringxsd_NMTOKEN :: Stringxsd_NMTOKENS :: Stringxsd_Name :: Stringxsd_NCName :: Stringxsd_ID :: Stringxsd_IDREF :: Stringxsd_IDREFS :: Stringxsd_ENTITY :: Stringxsd_ENTITIES :: Stringxsd_anyURI :: Stringxsd_stringxsd_NOTATION :: Stringxsd_hexBinary :: Stringxsd_base64Binary :: Stringxsd_decimal :: Stringxsd_length :: Stringxsd_maxExclusive :: Stringxsd_minExclusive :: Stringxsd_maxInclusive :: Stringxsd_minInclusive :: Stringxsd_totalDigits :: Stringxsd_fractionDigits :: Stringxsd_pattern :: Stringxsd_string :: Stringxsd_normalizedString :: Stringxsd_token :: Stringxsd_language :: Stringxsd_NMTOKEN :: Stringxsd_NMTOKENS :: Stringxsd_Name :: Stringxsd_ID :: Stringxsd_IDREF :: Stringxsd_IDREFS :: Stringxsd_ENTITY :: Stringxsd_ENTITIES :: Stringxsd_stringxsd_NOTATION :: Stringxsd_hexBinary :: Stringxsd_base64Binary :: Stringxsd_decimal :: Stringxsd_minLength :: Stringxsd_maxExclusive :: Stringxsd_minExclusive :: Stringxsd_maxInclusive :: Stringxsd_minInclusive :: Stringxsd_totalDigits :: Stringxsd_fractionDigits :: String Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code= NameTest  QNametype KeyTab = [( = [(QName, String, NavXmlTreeNameTest  QNameKeyTab = [( = [(QName, String, NavXmlTree Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeisElemType :: XmlNode n =>  n => QName -> n -> BoolisAttrType :: XmlNode n =>  n => QName -> n -> BooltryFetchAttribute :: XmlNode n => n ->  n => n -> QName -> Maybe StringfetchAttributeWDefault :: XmlNode n => n ->  n => n -> QName -> String -> StringfetchAttribute :: XmlNode n => n ->  n => n -> QName -> StringhasAttribute :: XmlNode n => n ->  n => n -> QName -> BoolsetAttribute :: XmlNode n =>  n => QName -> String -> n -> nmkQName :: String -> String -> String -> QNamedata mkExName ::  :: QName -> ExName Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource code Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codelookupAlias :: NSAliasing ->  -> QName ->  -> QNameLiteralQName  QName Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codemkXsltName :: String ->  :: String -> QNamemkXsltAttribName :: String ->  :: String -> QNamexsltTransform ::  :: QNamexsltStylesheet ::  :: QNamexsltMessage ::  :: QNamexsltForEach ::  :: QNamexsltChoose ::  :: QNamexsltWhen ::  :: QNamexsltOtherwise ::  :: QNamexsltIf ::  :: QNamexsltElement ::  :: QNamexsltAttribute ::  :: QNamexsltText ::  :: QNamexsltValueOf ::  :: QNamexsltComment ::  :: QNamexsltProcInstr ::  :: QNamexsltInclude ::  :: QNamexsltImport ::  :: QNamexsltTemplate ::  :: QNamexsltApplyTemplates ::  :: QNamexsltApplyImports ::  :: QNamexsltCallTemplate ::  :: QNamexsltVariable ::  :: QNamexsltParam ::  :: QNamexsltWithParam ::  :: QNamexsltAttributeSet ::  :: QNamexsltCopy ::  :: QNamexsltCopyOf ::  :: QNamexsltSort ::  :: QNamexsltStripSpace ::  :: QNamexsltPreserveSpace ::  :: QNamexsltNamespaceAlias ::  :: QNamexsltTerminate ::  :: QNamexsltSelect ::  :: QNamexsltTest ::  :: QNamexsltName ::  :: QNamexsltNamespace ::  :: QNamexsltUseAttributeSets ::  :: QNamexsltHRef ::  :: QNamexsltMatch ::  :: QNamexsltPriority ::  :: QNamexsltMode ::  :: QNamexsltDataType ::  :: QNamexsltOrder ::  :: QNamexsltElements ::  :: QNamexsltStylesheetPrefix ::  :: QNamexsltResultPrefix ::  :: QNamexsltVersion ::  :: QNamexsltExlcudeResultPrefixes ::  :: QNamexsltExtensionElementPrefixes ::  :: QNamexsltUseAttributeSetsLRE ::  :: QNamexsltVersionLRE ::  :: QNamexsltExlcudeResultPrefixesLRE ::  :: QNamexsltExtensionElementPrefixesLRE ::  :: QNamexmlSpace ::  :: QName Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APISource codeHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&
+
+Haskell Xml Toolbox 7.5: The complete API (Index)
     Haskell Xml Toolbox 7.5: The complete APIContentsIndex
    ABCDEFGHIKLMNOPQRSTUVWXZ:$&+./<>
    Index (&)
    &&&&Text.XML.HXT.Arrow.XPathSimple
    
diff --git a/doc/hdoc/doc-index-43.html b/doc/hdoc/doc-index-43.html
--- a/doc/hdoc/doc-index-43.html
+++ b/doc/hdoc/doc-index-43.html
@@ -4,7 +4,7 @@
 >Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete API    Contents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.5: The complete APIControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.Arrow
    <+>>Text.XML.HXT.Arrow.XPathSimple
    </Haskell Xml Toolbox 7.4: The complete APIContents$&+
    >>>>Text.XML.HXT.Arrow.XPathSimple
    Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+a_parse_by_mimetypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowa_parse_htmla_tagsoupText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowa_tracealwaysErrText.XML.HXT.RelaxNG.DataTypeLibUtilsalwaysOKText.XML.HXT.RelaxNG.DataTypeLibUtilsancestorAxisandCheckText.XML.HXT.RelaxNG.DataTypeLibUtilsappPickleapplication_xhtmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowapplication_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowapplication_xml_dtdText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowapplication_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowapplyAText.XML.HXT.XSLT.CompilationassertText.XML.HXT.RelaxNG.DataTypeLibUtilsassertMaybeText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+buildUniversalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+CheckAText.XML.HXT.RelaxNG.DataTypeLibUtilsCheckIntegerText.XML.HXT.RelaxNG.DataTypeLibUtilsCheckStringText.XML.HXT.RelaxNG.DataTypeLibUtilsChildcheckWithText.XML.HXT.RelaxNG.DataTypeLibUtilschildAxis, Text.XML.HXT.DOM, Text.XML.HXT.ParserclosesHtmlTagText.XML.HXT.Parser.HtmlParsec, Text.XML.HXT.Parser.HtmlParser, Text.XML.HXT.ParsercmtText.XML.HXT.Parser.XmlParsec, Text.XML.HXT.Parser.XmlParser, Text.XML.HXT.ParsercompBoolText.XML.HXT.Arrow.XPathSimplecompBoolExprText.XML.HXT.Arrow.XPathSimplecompFPText.XML.HXT.Arrow.XPathSimplecompGenExprText.XML.HXT.Arrow.XPathSimplecompIntExprText.XML.HXT.Arrow.XPathSimplecompLPText.XML.HXT.Arrow.XPathSimplecompNTText.XML.HXT.Arrow.XPathSimplecompNTAText.XML.HXT.Arrow.XPathSimplecompNTEText.XML.HXT.Arrow.XPathSimplecompNameTText.XML.HXT.Arrow.XPathSimplecompNumberText.XML.HXT.Arrow.XPathSimplecompNumberExprText.XML.HXT.Arrow.XPathSimplecompPathText.XML.HXT.Arrow.XPathSimplecompPredText.XML.HXT.Arrow.XPathSimplecompPred1Text.XML.HXT.Arrow.XPathSimplecompRelPathExprText.XML.HXT.Arrow.XPathSimplecompStringText.XML.HXT.Arrow.XPathSimplecompStringExprText.XML.HXT.Arrow.XPathSimplecompXPText.XML.HXT.Arrow.XPathSimplecompXPathText.XML.HXT.Arrow.XPathSimplecompXSText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+deadEndStreetText.XML.HXT.Arrow.XPathSimpledecimalStringToIntData.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.DOM, Text.XML.HXT.Parserdeep'Text.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+equalNodeSetText.XML.HXT.Arrow.XPathSimpleequalQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowequalQNameByText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowequivQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowequivUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.XmlState, Text.XML.HXT.DOM, Text.XML.HXT.ParsererrorMsgParamText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+FunctionTableText.XML.HXT.RelaxNG.DataTypeLibUtilsfailureText.XML.HXT.RelaxNG.DataTypeLibUtilsfatalText.XML.HXT.DOM.XmlTreeFilter, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserfctTableListText.XML.HXT.RelaxNG.DataTypeLibUtilsfctTableStringText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsergetAttrl'Text.XML.HXT.Arrow.XPathSimplegetBaseURIgetChildren'Text.XML.HXT.Arrow.XPathSimplegetChildrenNTgetElemAndAttrNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowgetElemNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowgetFromNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowgetXPText.XML.HXT.Arrow.XPathSimplegetXPath1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.XPathgetXPathTrees1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow2 (Function)Text.XML.HXT.Arrow.XPathSimplegetXPathTreesInDoc1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow2 (Function)Text.XML.HXT.Arrow.XPathSimplegetXPathTreesInDocWithNsEnv1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow2 (Function)Text.XML.HXT.Arrow.XPathSimplegetXPathTreesWithNsEnv1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow2 (Function)Text.XML.HXT.Arrow.XPathSimplegetXPathTreesWithNsEnvSimpleText.XML.HXT.Arrow.XPathSimplegetXPathWithNsEnvData.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.DOM, Text.XML.HXT.Parserguards'Text.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+isHtmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowisIOAText.XML.HXT.DOM.UnicodeisXmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+k_enitityk_entitiesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowk_entitiesk_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+localPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+mergeAControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.ArrowmergeAttrlmkText.XML.HXT.Arrow.XPathSimplemkAbsURImkNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowmkNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowmkPrefixLocalPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowmkQNameText.XML.HXT.XSLT.CommonText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowmkSNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowData.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.DOM, Text.XML.HXT.Parsermulti'Text.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+namePrefixText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrownamespaceUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrownormalizeNsUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrownullQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.Validator.REnumParamValidText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+okText.XML.HXT.RelaxNG.DataTypeLibUtilsoneOrMoreData.Tree.NTree.Filter, Data.NavTree, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypes, Text.XML.HXT.DOM, Text.XML.HXT.ParserorErrText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+, Text.XML.HXT.Parser.HtmlParser, Text.XML.HXT.ParserparseHtmlTagSoup1 (Function)Text.XML.HXT.Arrow.ParserInterface2 (Function)Text.XML.HXT.Parser.TagSoupparseHtmlTextperformCheckText.XML.HXT.RelaxNG.DataTypeLibUtilspickleDocprepareContentsText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.ArrowprepareXSLTDocumentprocessFromNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowprocessXPathTreesText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowprocessXPathTreesWithNsEnvText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+QNText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedNameQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowqn2StringText.XML.HXT.RelaxNG.Utils, Text.XML.HXT.RelaxNG.DataTypeLibUtilsqtagqualifiedNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+stringValidText.XML.HXT.RelaxNG.DataTypeLibUtilsstringValidFTText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+textOfXNodeText.XML.HXT.DOM.XmlTreeFunctions, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsertext_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowtext_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrowtext_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.XSLT.Common, Text.XML.HXT.ArrowthePicklerDTDthis'Text.XML.HXT.Arrow.XPathSimplethis''Text.XML.HXT.Arrow.XPathSimplethisMtoNumberText.XML.HXT.Arrow.XPathSimpletoThisText.XML.HXT.Arrow.XPathSimpletoTreelText.XML.HXT.XSLT.CommontryGetXPathText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+universalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowuniversalUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parser, Text.XML.HXT.ArrowunlistAControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.ArrowunparseXmlDocText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.ArrowunwrapText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.ArrowwithValText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&+XPArrowText.XML.HXT.Arrow.XPathSimpleXPCommentNodexIndexText.XML.HXT.Arrow.XPathSimplexMLDeclxNumber'Text.XML.HXT.Arrow.XPathSimplexPValue2NodeSetxStringText.XML.HXT.Arrow.XPathSimplexattrxsd_ENTITIESText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_ENTITYText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDREFText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDREFSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NCNamexsd_NMTOKENText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NMTOKENSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NOTATIONText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_QNamexsd_base64BinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_decimalText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_enumerationxsd_fractionDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_hexBinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_languageText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_lengthxsd_maxExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_maxInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_maxLengthxsd_minExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_minInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_minLengthxsd_normalizedStringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_patternxsd_stringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_tokenText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_totalDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3CHaskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete API (Index)Haskell Xml Toolbox 7.5: The complete API (Index) Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContents$&Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete API Haskell Xml Toolbox 7.4: The complete APIHaskell Xml Toolbox 7.5: The complete APIContentsText.XML.HXT.Arrow.XmlArrowText.XML.HXT.Arrow.XPathText.XML.HXT.Arrow.XmlIOStateArrowText.XML.HXT.Arrow.XPathSimpleText.XML.HXT.Arrow.XmlNodeText.XML.HXT.Arrow.XmlArrowText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XmlIOStateArrowText.XML.HXT.Arrow.XmlNodeText.XML.HXT.DOM.QualifiedNameText.XML.HXT.DOM.TypeDefsText.XML.HXT.Parser.ProtocolHandlerUtilText.XML.HXT.Parser.TagSoup Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeunlistA :: a [b] bthis :: a b bmergeA :: (a (a1, b1) a1 -> a (a1, b1) b1 -> a (a1, b1) c) -> a (a1, b1) cperform :: a b c -> a b bunlistA :: a [b] b
    the inverse of listA
+
     listA af >>> unlistA = af 
    unlistA is defined as  arrL id 
+
    , $<
+
    mergeA :: (a (a1, b1) a1 -> a (a1, b1) b1 -> a (a1, b1) c) -> a (a1, b1) c
    merge the result pairs of an arrow with type a a1 (b1, b2)
+ by combining the tuple components with the op arrow
+
    examples with simple list arrows working on strings and XmlTrees
+
         a1 :: a String (XmlTree, XmlTree)
+     a1 = selem "foo" [this >>> mkText]
+ 	  &&&
+ 	  selem "bar" [arr (++"0") >>> mkText]
+ 
+     runLA (a1 >>> mergeA (<+>) >>> xshow this) "42" == ["<foo>42</foo>","<bar>420</bar>"]
+     runLA (a1 >>> mergeA (+=)  >>> xshow this) "42" == ["<foo>42<bar>420</bar></foo>"]
+
    see also: applyA, $< and += in class ArrowXml
 
     Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeDeepSeq  QName Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeparseHtmlTagSoup :: ArrowList a => Bool -> Bool -> Bool -> Bool -> Bool -> a (String, String) XmlTreevalidateDoc ::  :: ArrowList a => a String XmlTreeparseHtmlTagSoup :: ArrowList a => Bool -> Bool -> Bool -> Bool -> Bool -> a (String, String) XmlTree Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeparseHtmlDocument :: Bool ->  :: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTreeparseHtmlDocument :: Bool ->  :: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTree Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code
  •  a_tagsoup : use light weight and lasy parser based on tagsoup lib
+
  •  a_parse_by_mimetype : select the parser by the mime type of the document
+                          (pulled out of the HTTP header). When the mime type is set to "text/html"
+			  the HTML parser (parsec or tagsoup) is taken, when it's set to
+			  "text/xml" or "text/xhtml" the XML parser (parsec or tagsoup) is taken.
+			  If the mime type is something else no further processing is performed,
+			  the contents is given back to the application in form of a single text node.
+			  If the default document encoding (a_encoding) is set to isoLatin1, this even enables processing
+			  of arbitray binary data.
+
  •  a_validate
     readDocument [ (a_parse_html, "1")
               , (a_encoding, isoLatin1)
+              , (a_tagsoup,    "1")
               ] ""
 
    isoLatin1
+>,
+parsing is done with tagsoup parser
 
     readDocument [ (a_parse_html,     "1")
diff --git a/doc/hdoc_arrow/Text-XML-HXT-Arrow-WriteDocument.html b/doc/hdoc_arrow/Text-XML-HXT-Arrow-WriteDocument.html
--- a/doc/hdoc_arrow/Text-XML-HXT-Arrow-WriteDocument.html
+++ b/doc/hdoc_arrow/Text-XML-HXT-Arrow-WriteDocument.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeXmlTree StringprepareContents :: Attributes -> IOStateArrow s XmlTree XmlTreewriteDocument.
+prepareContents :: Attributes -> IOStateArrow s XmlTree XmlTreeindent and format output
 
+
+Text.XML.HXT.Arrow.XPath
     Haskell Xml Toolbox 7.5: The Arrow APISource codeContentsIndex
    Text.XML.HXT.Arrow.XPath
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    Arrows for working with XPath and XmlNodeSets.
+
    Most of the XPath arrows come in two versions,
+   one without dealing with namespaces, element and attribute names
+   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
+
    The second variant uses a namespace environment for associating the right
+   namespace for the appropriate prefix. an entry for the empty prefix
+   defines the default namespace for the expression.
+
    The second variant should be used, when in the application namespaces
+   are significant, that means when namespace propagation is done for
+   the documents to be processed.
+
    NodeSets are sets of "pointer" into an XML tree to reference
+   subnodes. These nodesets can be computed by XPath expressions or
+   normal arrows. The nodesets can then be used later for selecting
+   or modifying subtrees of this tree in an efficient way.
+
    Synopsis
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getXPathNodeSet :: ArrowXml a => String -> a XmlTree XmlNodeSet
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    Documentation
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    Select parts of a whole XML document with root node by a XPath expression.
+
    The main filter for selecting parts of a document via XPath.
+
    The string argument must be a XPath expression with an absolute location path,
+ the argument tree must be a complete document tree.
+
    Before evaluating the xpath query, the document is canonicalized
+ with canonicalizeForXPath
+
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+ XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+ are convertet to text nodes.
+
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTreesInDoc but with namespace environment for the XPath names
+
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    Select parts of an arbitrary XML tree by a XPath expression.
+
    The main filter for selecting parts of an arbitrary XML tree via XPath.
+ The string argument must be a XPath expression with an absolute location path,
+ There are no restrictions on the argument tree.
+
    No canonicalization is performed before evaluating the query
+
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+ XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+ are convertet to text nodes.
+
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTrees but with namespace environment for the XPath names
+
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes selected by the predicate arrow
+
    computation of the set of element nodes with name "a" is done with
+
     getElemNodeSet (hasName "a")
+
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes including attribute nodes
+ elected by the predicate arrow
+
    getXPathNodeSet :: ArrowXml a => String -> a XmlTree XmlNodeSet
    Select a set of nodes via an XPath expression from an arbitray XML tree
+
    The result is a set of "pointers" to nodes. This set can be used to
+ access or modify the values of the subnodes in subsequent calls to getFromNodeSet or processFromNodeSet.
+
    This function enables for parsing an XPath expressions and traversing the tree for node selection once
+ and reuse this result possibly many times for later selection and modification operations.
+
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    select all subtrees specified by a previously computed node set
+
    the following law holds:
+
     getFromNodeSet $< getElemNodeSet f == multi f
+
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    process all subtrees selected by an XPath expression
+
    the following law holds:
+
     processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
+
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    Same as processXPathTrees but with namespace environment for the XPath names
+
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    process all subtrees specified by a previously computed node set in bottom up manner
+
    the follwoing law holds:
+
     processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
+
    when attributes are contained in the node set (see getElemAndAttrNodeSet), these are processed
+ after the children and before the node itself
+
    the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
+ from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
+
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_arrow/Text-XML-HXT-Arrow-XPathSimple.html b/doc/hdoc_arrow/Text-XML-HXT-Arrow-XPathSimple.html
new file mode 100644
--- /dev/null
+++ b/doc/hdoc_arrow/Text-XML-HXT-Arrow-XPathSimple.html
@@ -0,0 +1,1877 @@
+
+
+Text.XML.HXT.Arrow.XPathSimple
     Haskell Xml Toolbox 7.5: The Arrow APISource codeContentsIndex
    Text.XML.HXT.Arrow.XPathSimple
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    XPath selection for simple XPath expressions with list arrows
+   instead of navigatable trees.
+
    It is recomended, that this module is imported qualified,
+   e.g like Text.XML.HXT.Arrow.XPathSimple as XS.
+
    The arrows defined in this module have the same
+   functionality as the functions in XPath.
+
    The computation modell in XPath is a navigatable tree,
+   that means a tree wicht can be traveresed in arbitrary directions,
+   not only from the root to the leafs. Sometimes this modell
+   leads to inefficent XPath processing for simple queries, which
+   only need a top down tree traversal.
+
    When evaluating an XPath expression with these functions, first an attempt is made
+   to map the XPath expression to a pure arrow. If this is possible
+   due to the siplicity of the XPath expressions, the result is computed
+   directly, else the query is processed by the corresponding
+   function in XPath.
+
    The simple evaluation is possible, when in the XPath expression
+   only the top down axis (self, child, descendant, descendant or self are used,
+   when no builtin functions concerning the position of a node are used,
+   and no comparison of nodes e.g. in node set union is required.
+
    Synopsis
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    tryGetXPath :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXP :: NsEnv -> String -> LA XmlTree XmlTree
    type XPArrow b c = Maybe (LA b c)
    mk :: LA b c -> XPArrow b c
    unwrap :: XPArrow b b -> LA b b
    (>>>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    (&&&&) :: XPArrow b b -> XPArrow b b -> XPArrow b (b, b)
    (<+>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    guards' :: XPArrow b b -> XPArrow b b -> XPArrow b b
    this' :: XPArrow b b
    this'' :: XPArrow b b
    toThis :: XPArrow b b -> XPArrow b b
    getChildren' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    getAttrl' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    multi' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    deep' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    xIndex :: Int -> LA [b] b
    xString :: XPArrow XmlTree XmlTree -> LA XmlTree String
    xNumber' :: XPArrow XmlTree XmlTree -> LA XmlTree XPNumber
    deadEndStreet :: Monad m => m a
    compXPath :: MonadPlus m => Expr -> m (LA XmlTree XmlTree)
    compXP :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compFP :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compLP :: MonadPlus m => [XStep] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compXS :: MonadPlus m => XStep -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compNTE :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNTA :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNameT :: Monad m => LA XmlTree XmlTree -> QName -> m (XPArrow XmlTree XmlTree)
    compNT :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compPred :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compPred1 :: MonadPlus m => Expr -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compRelPathExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compStringExpr :: MonadPlus m => Expr -> m String
    compNumberExpr :: MonadPlus m => Expr -> m XPNumber
    compIntExpr :: MonadPlus m => Expr -> m Int
    compBoolExpr :: MonadPlus m => Expr -> m Bool
    compGenExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compString :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compNumber :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compBool :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compPath :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    toNumber :: String -> XPNumber
    equalNodeSet :: Eq a => [a] -> [a] -> [a]
    Documentation
    getXPathTreesInDoc :: ArrowXml a => String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesInDoc
+
    getXPathTreesInDocWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesInDocWithNsEnv
+
    getXPathTrees :: ArrowXml a => String -> a XmlTree XmlTree
    Same Functionality as getXPathTrees
+
    getXPathTreesWithNsEnv :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    Same Functionality as getXPathTreesWithNsEnv
+
    tryGetXPath :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTreesWithNsEnvSimple :: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
    The xpath interpreter for simple xpath expressions.
+
    In case of a too complicated or illegal xpath expression an error
+ node is returned, else the list of selected XML trees
+
    getXP :: NsEnv -> String -> LA XmlTree XmlTree
    type XPArrow b c = Maybe (LA b c)
    mk :: LA b c -> XPArrow b c
    unwrap :: XPArrow b b -> LA b b
    (>>>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    (&&&&) :: XPArrow b b -> XPArrow b b -> XPArrow b (b, b)
    (<+>>) :: XPArrow b b -> XPArrow b b -> XPArrow b b
    guards' :: XPArrow b b -> XPArrow b b -> XPArrow b b
    this' :: XPArrow b b
    this'' :: XPArrow b b
    toThis :: XPArrow b b -> XPArrow b b
    getChildren' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    getAttrl' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    multi' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    deep' :: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
    xIndex :: Int -> LA [b] b
    xString :: XPArrow XmlTree XmlTree -> LA XmlTree String
    xNumber' :: XPArrow XmlTree XmlTree -> LA XmlTree XPNumber
    deadEndStreet :: Monad m => m a
    compXPath :: MonadPlus m => Expr -> m (LA XmlTree XmlTree)
    compXP :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compFP :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compLP :: MonadPlus m => [XStep] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compXS :: MonadPlus m => XStep -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compNTE :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNTA :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compNameT :: Monad m => LA XmlTree XmlTree -> QName -> m (XPArrow XmlTree XmlTree)
    compNT :: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
    compPred :: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compPred1 :: MonadPlus m => Expr -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
    compRelPathExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compStringExpr :: MonadPlus m => Expr -> m String
    compNumberExpr :: MonadPlus m => Expr -> m XPNumber
    compIntExpr :: MonadPlus m => Expr -> m Int
    compBoolExpr :: MonadPlus m => Expr -> m Bool
    compGenExpr :: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
    compString :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compNumber :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compBool :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    compPath :: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
    toNumber :: String -> XPNumber
    equalNodeSet :: Eq a => [a] -> [a] -> [a]
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_arrow/Text-XML-HXT-Arrow-XmlArrow.html b/doc/hdoc_arrow/Text-XML-HXT-Arrow-XmlArrow.html
--- a/doc/hdoc_arrow/Text-XML-HXT-Arrow-XmlArrow.html
+++ b/doc/hdoc_arrow/Text-XML-HXT-Arrow-XmlArrow.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codehasNameWith :: ( :: (QName -> Bool) -> a XmlTreehasQName ::  :: QName -> a XmlTreehasQAttr ::  :: QName -> a XmlTreehasQAttrValue ::  :: QName -> (String -> Bool) -> a XmlTreemkElement ::  :: QName -> a n XmlTreemkAttr ::  :: QName -> a n XmlTreemkPi ::  :: QName -> a n XmlTreemkqelem ::  :: QName -> [a n XmlTreeqattr ::  :: QName -> a n XmlTreesqattr ::  :: QName -> String -> a n XmlTreegetPiName :: a XmlTree  QNamegetElemName :: a XmlTree  QNamegetAttrName :: a XmlTree  QNamegetQName :: a XmlTree  QNamegetQAttrValue ::  :: QName -> a XmlTreegetQAttrValue0 ::  :: QName -> a XmlTreechangeQName :: ( :: (QName ->  -> QName) -> a XmlTreechangeElemName :: ( :: (QName ->  -> QName) -> a XmlTreechangeAttrName :: ( :: (QName ->  -> QName) -> a XmlTreechangePiName :: ( :: (QName ->  -> QName) -> a XmlTreesetQName ::  :: QName -> a XmlTreesetElemName ::  :: QName -> a XmlTreesetAttrName ::  :: QName -> a XmlTreesetPiName ::  :: QName -> a XmlTreeremoveQAttr ::  :: QName -> a XmlTreehasNameWith :: ( :: (QName -> Bool) -> a XmlTreehasQName ::  :: QName -> a XmlTreehasQAttr ::  :: QName -> a XmlTreehasQAttrValue ::  :: QName -> (String -> Bool) -> a XmlTreemkElement ::  :: QName -> a n XmlTreemkAttr ::  :: QName -> a n XmlTreemkPi ::  :: QName -> a n XmlTreemkqelem ::  :: QName -> [a n XmlTreeqattr ::  :: QName -> a n XmlTreesqattr ::  :: QName -> String -> a n XmlTreegetPiName     :: a XmlTree  QNamegetElemName :: a XmlTree  QNamegetAttrName :: a XmlTree  QNamegetQName :: a XmlTree  QNamegetQAttrValue ::  :: QName -> a XmlTreegetQAttrValue0 ::  :: QName -> a XmlTreechangeQName :: ( :: (QName ->  -> QName) -> a XmlTreechangeElemName :: ( :: (QName ->  -> QName) -> a XmlTreechangeAttrName :: ( :: (QName ->  -> QName) -> a XmlTreechangePiName :: ( :: (QName ->  -> QName) -> a XmlTreesetQName ::  :: QName -> a XmlTreesetElemName ::  :: QName -> a XmlTreesetAttrName ::  :: QName -> a XmlTreesetPiName ::  :: QName -> a XmlTreeremoveQAttr ::  :: QName -> a XmlTree Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codemkPi ::  :: QName -> XmlTreesgetPiName :: a -> Maybe  :: a -> Maybe QNamegetElemName :: a -> Maybe  :: a -> Maybe QNamegetAttrName :: a -> Maybe  :: a -> Maybe QNamegetName :: a -> Maybe  :: a -> Maybe QNamechangeName :: ( :: (QName ->  -> QName) -> a -> achangeElemName :: ( :: (QName ->  -> QName) -> a -> achangeAttrName :: ( :: (QName ->  -> QName) -> a -> achangePiName :: ( :: (QName ->  -> QName) -> a -> asetName ::  :: QName -> a -> asetElemName ::  :: QName -> a -> asetAttrName ::  :: QName -> a -> asetPiName ::  :: QName -> a -> amkElementNode ::  :: QName -> XmlTreesmkAttrNode ::  :: QName -> XNodemkElement ::  :: QName -> XmlTreesmkAttr ::  :: QName -> XmlTrees
-
-Text.XML.HXT.Arrow.XmlNodeSet
     Haskell Xml Toolbox 7.4: The Arrow APISource codeContentsIndex
    Text.XML.HXT.Arrow.XmlNodeSet
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    Version    : $Id: XmlNodeSet.hs,v 1.5 20061112 14:52:59 hxml Exp $
-
    Arrows for working with XPath and XmlNodeSets.
-
    Most of the XPath arrows come in two versions,
-   one without dealing with namespaces, element and attribute names
-   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
-
    The second variant uses a namespace environment for associating the right
-   namespace for the appropriate prefix. an entry for the empty prefix
-   defines the default namespace for the expression.
-
    The second variant should be used, when in the application namespaces
-   are significant, that means when namespace propagation is done for
-   the documents to be processed.
-
    NodeSets are sets of "pointer" into an XML tree to reference
-   subnodes. These nodesets can be computed by XPath expressions or
-   normal arrows. The nodesets can then be used later for selecting
-   or modifying subtrees of this tree in an efficient way.
-
    Synopsis
    getXPathTreesInDoc :: ArrowList a => String -> a XmlTree XmlTree
    getXPathTreesInDocWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    getXPathTrees :: ArrowList a => String -> a XmlTree XmlTree
    getXPathTreesWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    getXPathNodeSet :: ArrowList a => String -> a XmlTree XmlNodeSet
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    Documentation
    getXPathTreesInDoc :: ArrowList a => String -> a XmlTree XmlTree
    Select parts of a whole XML document with root node by a XPath expression.
-
    The main filter for selecting parts of a document via XPath.
-
    The string argument must be a XPath expression with an absolute location path,
- the argument tree must be a complete document tree.
-
    Before evaluating the xpath query, the document is canonicalized
- with canonicalizeForXPath
-
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
- are convertet to text nodes.
-
    getXPathTreesInDocWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTreesInDoc but with namespace environment for the XPath names
-
    getXPathTrees :: ArrowList a => String -> a XmlTree XmlTree
    Select parts of an arbitrary XML tree by a XPath expression.
-
    The main filter for selecting parts of an arbitrary XML tree via XPath.
- The string argument must be a XPath expression with an absolute location path,
- There are no restrictions on the argument tree.
-
    No canonicalization is performed before evaluating the query
-
    Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
- are convertet to text nodes.
-
    getXPathTreesWithNsEnv :: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
    Same as getXPathTrees but with namespace environment for the XPath names
-
    getElemNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes selected by the predicate arrow
-
    computation of the set of element nodes with name "a" is done with
-
     getElemNodeSet (hasName "a")
-
    getElemAndAttrNodeSet :: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
    compute a node set from a tree, containing all nodes including attribute nodes
- elected by the predicate arrow
-
    getXPathNodeSet :: ArrowList a => String -> a XmlTree XmlNodeSet
    Select a set of nodes via an XPath expression from an arbitray XML tree
-
    The result is a set of "pointers" to nodes. This set can be used to
- access or modify the values of the subnodes in subsequent calls to getFromNodeSet or processFromNodeSet.
-
    This function enables for parsing an XPath expressions and traversing the tree for node selection once
- and reuse this result possibly many times for later selection and modification operations.
-
    getFromNodeSet :: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
    select all subtrees specified by a previously computed node set
-
    the following law holds:
-
     getFromNodeSet $< getElemNodeSet f == multi f
-
    processXPathTrees :: ArrowXml a => a XmlTree XmlTree -> String -> a XmlTree XmlTree
    process all subtrees selected by an XPath expression
-
    the following law holds:
-
     processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
-
    processXPathTreesWithNsEnv :: ArrowXml a => a XmlTree XmlTree -> NsEnv -> String -> a XmlTree XmlTree
    Same as processXPathTrees but with namespace environment for the XPath names
-
    processFromNodeSet :: ArrowXml a => a XmlTree XmlTree -> XmlNodeSet -> a XmlTree XmlTree
    process all subtrees specified by a previously computed node set in bottom up manner
-
    the follwoing law holds:
-
     processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
-
    when attributes are contained in the node set (see getElemAndAttrNodeSet), these are processed
- after the children and before the node itself
-
    the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
- from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
-
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_arrow/Text-XML-HXT-Arrow.html b/doc/hdoc_arrow/Text-XML-HXT-Arrow.html
--- a/doc/hdoc_arrow/Text-XML-HXT-Arrow.html
+++ b/doc/hdoc_arrow/Text-XML-HXT-Arrow.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codemodule Text.XML.HXT.Arrow.XmlNodeSetmodule Text.XML.HXT.Arrow.XPath Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code
+
+Text.XML.HXT.DOM.QualifiedName
     Haskell Xml Toolbox 7.5: The Arrow APISource codeContentsIndex
    Text.XML.HXT.DOM.QualifiedName
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    The core data types of the HXT DOM.
+
    Synopsis
    data QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }
    qualifiedName :: QName -> String
    universalName :: QName -> String
    universalUri :: QName -> String
    buildUniversalName :: (String -> String -> String) -> QName -> String
    mkQName :: String -> String -> String -> QName
    mkName :: String -> QName
    mkPrefixLocalPart :: String -> String -> QName
    mkNsName :: String -> String -> QName
    mkSNsName :: String -> QName
    nullQName :: QName
    equalQName :: QName -> QName -> Bool
    equivQName :: QName -> QName -> Bool
    equivUri :: String -> String -> Bool
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    normalizeNsUri :: String -> String
    Documentation
    data QName 
    Namespace support for element and attribute names.
+
    A qualified name consists of a name prefix, a local name
+ and a namespace uri.
+ All modules, which are not namespace aware, use only the localPart component.
+ When dealing with namespaces, the document tree must be processed by propagateNamespaces
+ to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
+
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
+
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
+
    namespaceUri :: Stringthe associated namespace uri
+
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> String
    builds the full name "prefix:localPart", if prefix is not null, else the local part is the result
+
    universalName :: QName -> String
    builds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
+ (specialisation of buildUniversalName)
+
    universalUri :: QName -> String
    builds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
+ where the subject, predicate and object often are concatenated from namespace uri and local part
+ (specialisation of buildUniversalName)
+
    buildUniversalName :: (String -> String -> String) -> QName -> String
    builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
+ namespace uri and local part are combined with the combining function given by the first parameter
+
    mkQName :: String -> String -> String -> QName
    constructs a complete qualified name with namePrefix, localPart and namespaceUri.
+
    mkName :: String -> QName
    constructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
+
    mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
+
    see also mkName, mkNsName, mkSNsName
+
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
+
    see also mkName, mkPrefixLocalPart
+
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
+
    see also mkNsName, mkPrefixLocalPart
+
    nullQName :: QName
    Empty QName
+
    equalQName :: QName -> QName -> Bool
    Equality of QNames: Two QNames are equal, if the local parts are equal
+ and the namespace URIs are equal.
+ The comparison works with and without namespace propagation.
+ If namespaces have been propagated, the name is split into prefix and local part
+ and the namespace uri is set. In this case the prefix is not significant for equality test.
+ If namespaces have not been propagated, the local part contains the full name, prefix
+ and namespace URI are empty. The full name (prefix and local part) is used for comparison.
+
    equivQName :: QName -> QName -> Bool
    Equivalent QNames are defined as follows: The URIs are normalized before comparison.
+ Comparison is done with equalQNameBy and equivUri
+
    equivUri :: String -> String -> Bool
    Comparison of normalized namespace URIs using normalizeNsUri
+
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    Sometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
+ a name normalization function can be applied to the strings before comparing. Called by equalQName and
+ equivQName
+
    normalizeNsUri :: String -> String
    Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
+
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_arrow/Text-XML-HXT-DOM-TypeDefs.html b/doc/hdoc_arrow/Text-XML-HXT-DOM-TypeDefs.html
--- a/doc/hdoc_arrow/Text-XML-HXT-DOM-TypeDefs.html
+++ b/doc/hdoc_arrow/Text-XML-HXT-DOM-TypeDefs.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeText.XML.HXT.DOM.TypeDefs
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    The core data types of HDOM.
-
    Version : $Id: TypeDefs.hs,v 1.13 20061109 20:27:42 hxml Exp $
-
    The core data types of the HXT DOM.
+| XPi  QName XmlTrees| XTag  QName XmlTrees| XAttr  QNamedata QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }qualifiedName :: QName -> StringuniversalName :: QName -> StringuniversalUri :: QName -> StringbuildUniversalName :: (String -> String -> String) -> QName -> StringmkName :: String -> QNamemkPrefixLocalPart :: String -> String -> QNamemkNsName :: String -> String -> QNamemkSNsName :: String -> QNamenullQName :: QNameequalQName :: QName -> QName -> BoolequivQName :: QName -> QName -> BoolequivUri :: String -> String -> BoolequalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolnormalizeNsUri :: String -> Stringtype NsEnvattrNodes :: [ :: [QName]XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedNameXPi  QName XmlTreesXTag  QName XmlTreesXAttr  QNamedata QName 
    Namespace support for element and attribute names.
-
    A qualified name consists of a name prefix, a local name
- and a namespace uri.
- All modules, which are not namespace aware, use only the localPart component.
- When dealing with namespaces, the document tree must be processed by propagateNamespaces
- to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
-
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
-
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
-
    namespaceUri :: Stringthe associated namespace uri
-
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> Stringbuilds the full name "prefix:localPart", if prefix is not null, else the local part is the result
-universalName :: QName -> Stringbuilds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
- (specialisation of buildUniversalName)
-universalUri :: QName -> Stringbuilds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
- where the subject, predicate and object often are concatenated from namespace uri and local part
- (specialisation of buildUniversalName)
-buildUniversalName :: (String -> String -> String) -> QName -> Stringbuilds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
- namespace uri and local part are combined with the combining function given by the first parameter
-mkName :: String -> QNameconstructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
-mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
-
    see also mkName, mkNsName, mkSNsName
-
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
-
    see also mkName, mkPrefixLocalPart
-
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
-
    see also mkNsName, mkPrefixLocalPart
-
    nullQName :: QNameEmpty QName
-equalQName :: QName -> QName -> BoolEquality of QNames: Two QNames are equal, if the local parts are equal
- and the namespace URIs are equal.
- The comparison works with and without namespace propagation.
- If namespaces have been propagated, the name is split into prefix and local part
- and the namespace uri is set. In this case the prefix is not significant for equality test.
- If namespaces have not been propagated, the local part contains the full name, prefix
- and namespace URI are empty. The full name (prefix and local part) is used for comparison.
-equivQName :: QName -> QName -> BoolEquivalent QNames are defined as follows: The URIs are normalized before comparison.
- Comparison is done with equalQNameBy and equivUri
-equivUri :: String -> String -> BoolComparison of normalized namespace URIs using normalizeNsUri
-equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolSometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
- a name normalization function can be applied to the strings before comparing. Called by equalQName and
- equivQName
-normalizeNsUri :: String -> StringNormalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
-type Type for the namespace association list, used when propagating namespaces by
  modifying the QName values in a tree
@@ -1857,7 +1164,7 @@
 >attrNodes :: [ :: [QName] = [(Int, XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedName Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codea_parse_by_mimetype :: Stringa_parse_html :: Stringa_tagsoup :: Stringa_trace :: Stringk_enitityk_entity :: Stringa_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Boola_parse_by_mimetype :: Stringa_tagsoup :: Stringk_enitityk_entity :: Stringthe predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespaces"
+>the predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespace"
 a_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Bool Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeerrorMsgDataTypeNotAllowed :: String -> [(String, String)] -> String -> String -> String :: String -> String -> [(String, String)] -> String -> StringerrorMsgParam :: LocalName -> String -> String -> Stringrng_length :: StringalwaysOK :: Check atype FunctionTable = [(String, String -> String -> Bool)]alwaysErr :: (a -> String) -> Check astringValidFT :: FunctionTable -> DatatypeName -> Integer -> Integer -> ParamList -> CheckStringorErr :: (a -> Bool) -> (a -> String) -> Check aandCheck :: Check a -> Check a -> Check afctTableString :: FunctionTablewithVal :: Check a -> (b -> a) -> Check bfctTableList :: FunctionTableDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringnumParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Booldata CheckA a btype CheckString = CheckA String Stringtype CheckInteger = CheckA Integer IntegerperformCheck :: CheckA a b -> a -> Maybe Stringok :: CheckA a afailure :: (a -> String) -> CheckA a bassert :: (a -> Bool) -> (a -> String) -> CheckA a aassertMaybe :: (a -> Maybe b) -> (a -> String) -> CheckA a bcheckWith :: (a -> b) -> CheckA b c -> CheckA a aerrorMsgDataTypeNotAllowed :: String -> [(String, String)] -> String -> String -> String :: String -> String -> [(String, String)] -> String -> StringerrorMsgParam :: LocalName -> String -> String -> String
    Error Message for the equality test of two datatype values
+
    •  1.parameter  :  datatype
+
    •  2.parameter  :  datatype value
+
    •  3.parameter  :  datatype value
+
    example:
+
     errorMsgEqual "Int" "21" "42" -> "Datatype Int with value = 21 expected, but value = 42 found"
+
    type alwaysOK :: Check aFunctionTable = [(String, String -> String -> Bool)]Unit for checks
+>Function table type
 alwaysErr :: (a -> String) -> Check aZero for checks: Create an error message for an illegal value
-stringValidFT     :: FunctionTable -> DatatypeName -> Integer -> Integer -> ParamList -> CheckStringorErr :: (a -> Bool) -> (a -> String) -> Check afctTableString :: FunctionTablePerform check and generate error message on failure
+>Function table for string tests,
+ XML document value is first operand, schema value second
 andCheck :: Check a -> Check a -> Check afctTableList :: FunctionTableCombine two checks
+>Function table for list tests,
+ XML document value is first operand, schema value second
 withVal :: Check a -> (b -> a) -> Check bDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringDatatypeName -> Integer -> Integer -> ParamList -> Check String -> CheckStringnumParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Bool
    tests whether a string value matches a numeric param
+
    valid example:
+
     <data type="CHAR"> <param name="maxLength">5</param> </data>
+
    invalid example:
+
     <data type="CHAR"> <param name="minLength">foo</param> </data>
+
    data CheckA a b
    show/hide Instances
    Arrow CheckA
    ArrowPlus CheckA
    ArrowZero CheckA
    type CheckString = CheckA String Stringtype CheckInteger = CheckA Integer IntegerperformCheck :: CheckA a b -> a -> Maybe Stringrun a check and deliver Just an error message or Nothing
+ok :: CheckA a aevery thing is fine
+failure :: (a -> String) -> CheckA a balways failure
+assert :: (a -> Bool) -> (a -> String) -> CheckA a aperform a simple check with a predicate p,
+   when the predicate holds, assert acts as identity,
+   else an error message is generated
+assertMaybe :: (a -> Maybe b) -> (a -> String) -> CheckA a bperform a simple check with a Maybe function, Nothing indicates error
+checkWith :: (a -> b) -> CheckA b c -> CheckA a aperform a check, but convert the value before checking
+ Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeText.XML.HXT.RelaxNG.Simplification
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    The modul creates the simplified form of a Relax NG schema.
- See also chapter 4 of the Relax NG specification.
+   See also chapter 4 of the Relax NG specification.
  Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeText.XML.HXT.RelaxNG.Validation
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Validation of a XML document with respect to a valid Relax NG schema in simple form.
- Copied and modified from "An algorithm for RELAX NG validation" by James Clark
- (http://www.thaiopensource.com/relaxng/derivative.html).
 contains :: NameClass ->  -> QName -> Boolcontains     :: NameClass ->  -> QName -> BoolNameClass contains a particular QName
diff --git a/doc/hdoc_arrow/Text-XML-HXT-RelaxNG-Validator.html b/doc/hdoc_arrow/Text-XML-HXT-RelaxNG-Validator.html
--- a/doc/hdoc_arrow/Text-XML-HXT-RelaxNG-Validator.html
+++ b/doc/hdoc_arrow/Text-XML-HXT-RelaxNG-Validator.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codexsd_string :: Stringxsd_normalizedString :: Stringxsd_token :: Stringxsd_language :: Stringxsd_NMTOKEN :: Stringxsd_NMTOKENS :: Stringxsd_Name :: Stringxsd_NCName :: Stringxsd_ID :: Stringxsd_IDREF :: Stringxsd_IDREFS :: Stringxsd_ENTITY :: Stringxsd_ENTITIES :: Stringxsd_anyURI :: Stringxsd_stringxsd_NOTATION :: Stringxsd_hexBinary :: Stringxsd_base64Binary :: Stringxsd_decimal :: Stringxsd_length :: Stringxsd_maxExclusive :: Stringxsd_minExclusive :: Stringxsd_maxInclusive :: Stringxsd_minInclusive :: Stringxsd_totalDigits :: Stringxsd_fractionDigits :: Stringxsd_pattern :: Stringxsd_string :: Stringxsd_normalizedString :: Stringxsd_token :: Stringxsd_language :: Stringxsd_NMTOKEN :: Stringxsd_NMTOKENS :: Stringxsd_Name :: Stringxsd_ID :: Stringxsd_IDREF :: Stringxsd_IDREFS :: Stringxsd_ENTITY :: Stringxsd_ENTITIES :: Stringxsd_stringxsd_NOTATION :: Stringxsd_hexBinary :: Stringxsd_base64Binary :: Stringxsd_decimal :: Stringxsd_minLength :: Stringxsd_maxExclusive :: Stringxsd_minExclusive :: Stringxsd_maxInclusive :: Stringxsd_minInclusive :: Stringxsd_totalDigits :: Stringxsd_fractionDigits :: String Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeisElemType :: XmlNode n =>  n => QName -> n -> BoolisAttrType :: XmlNode n =>  n => QName -> n -> BooltryFetchAttribute :: XmlNode n => n ->  n => n -> QName -> Maybe StringfetchAttributeWDefault :: XmlNode n => n ->  n => n -> QName -> String -> StringfetchAttribute :: XmlNode n => n ->  n => n -> QName -> StringhasAttribute :: XmlNode n => n ->  n => n -> QName -> BoolsetAttribute :: XmlNode n =>  n => QName -> String -> n -> nmkQName :: String -> String -> String -> QNamedata mkExName ::  :: QName -> ExName Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource code Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codelookupAlias :: NSAliasing ->  -> QName ->  -> QNameLiteralQName  QName Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codemkXsltName :: String ->  :: String -> QNamemkXsltAttribName :: String ->  :: String -> QNamexsltTransform ::  :: QNamexsltStylesheet ::  :: QNamexsltMessage ::  :: QNamexsltForEach ::  :: QNamexsltChoose ::  :: QNamexsltWhen ::  :: QNamexsltOtherwise ::  :: QNamexsltIf ::  :: QNamexsltElement ::  :: QNamexsltAttribute ::  :: QNamexsltText ::  :: QNamexsltValueOf ::  :: QNamexsltComment ::  :: QNamexsltProcInstr ::  :: QNamexsltInclude ::  :: QNamexsltImport ::  :: QNamexsltTemplate ::  :: QNamexsltApplyTemplates ::  :: QNamexsltApplyImports ::  :: QNamexsltCallTemplate ::  :: QNamexsltVariable ::  :: QNamexsltParam ::  :: QNamexsltWithParam ::  :: QNamexsltAttributeSet ::  :: QNamexsltCopy ::  :: QNamexsltCopyOf ::  :: QNamexsltSort ::  :: QNamexsltStripSpace ::  :: QNamexsltPreserveSpace ::  :: QNamexsltNamespaceAlias ::  :: QNamexsltTerminate ::  :: QNamexsltSelect ::  :: QNamexsltTest ::  :: QNamexsltName ::  :: QNamexsltNamespace ::  :: QNamexsltUseAttributeSets ::  :: QNamexsltHRef ::  :: QNamexsltMatch ::  :: QNamexsltPriority ::  :: QNamexsltMode ::  :: QNamexsltDataType ::  :: QNamexsltOrder ::  :: QNamexsltElements ::  :: QNamexsltStylesheetPrefix ::  :: QNamexsltResultPrefix ::  :: QNamexsltVersion ::  :: QNamexsltExlcudeResultPrefixes ::  :: QNamexsltExtensionElementPrefixes ::  :: QNamexsltUseAttributeSetsLRE ::  :: QNamexsltVersionLRE ::  :: QNamexsltExlcudeResultPrefixesLRE ::  :: QNamexsltExtensionElementPrefixesLRE ::  :: QNamexmlSpace ::  :: QName Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APISource codeHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&
+
+Haskell Xml Toolbox 7.5: The Arrow API (Index)
     Haskell Xml Toolbox 7.5: The Arrow APIContentsIndex
    ABCDEFGHIKLMNOPQRSTUVWXZ:$&+/<>
    Index (&)
    &&&&Text.XML.HXT.Arrow.XPathSimple
    
diff --git a/doc/hdoc_arrow/doc-index-43.html b/doc/hdoc_arrow/doc-index-43.html
--- a/doc/hdoc_arrow/doc-index-43.html
+++ b/doc/hdoc_arrow/doc-index-43.html
@@ -4,7 +4,7 @@
 >Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow API    Contents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.5: The Arrow APIControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    <+>>Text.XML.HXT.Arrow.XPathSimple
    </Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    >>>>Text.XML.HXT.Arrow.XPathSimple
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+a_parse_by_mimetypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowa_parse_htmla_tagsoupText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowa_tracealwaysErrText.XML.HXT.RelaxNG.DataTypeLibUtilsalwaysOKText.XML.HXT.RelaxNG.DataTypeLibUtilsandCheckText.XML.HXT.RelaxNG.DataTypeLibUtilsappPickleapplication_xhtmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowapplication_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowapplication_xml_dtdText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowapplication_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowapplyAText.XML.HXT.XSLT.CompilationassertText.XML.HXT.RelaxNG.DataTypeLibUtilsassertMaybeText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+buildUniversalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+CheckAText.XML.HXT.RelaxNG.DataTypeLibUtilsCheckIntegerText.XML.HXT.RelaxNG.DataTypeLibUtilsCheckStringText.XML.HXT.RelaxNG.DataTypeLibUtilsChildNodescheckWithText.XML.HXT.RelaxNG.DataTypeLibUtilschildNodesText.XML.HXT.XSLT.CommoncompBoolText.XML.HXT.Arrow.XPathSimplecompBoolExprText.XML.HXT.Arrow.XPathSimplecompFPText.XML.HXT.Arrow.XPathSimplecompGenExprText.XML.HXT.Arrow.XPathSimplecompIntExprText.XML.HXT.Arrow.XPathSimplecompLPText.XML.HXT.Arrow.XPathSimplecompNTText.XML.HXT.Arrow.XPathSimplecompNTAText.XML.HXT.Arrow.XPathSimplecompNTEText.XML.HXT.Arrow.XPathSimplecompNameTText.XML.HXT.Arrow.XPathSimplecompNumberText.XML.HXT.Arrow.XPathSimplecompNumberExprText.XML.HXT.Arrow.XPathSimplecompPathText.XML.HXT.Arrow.XPathSimplecompPredText.XML.HXT.Arrow.XPathSimplecompPred1Text.XML.HXT.Arrow.XPathSimplecompRelPathExprText.XML.HXT.Arrow.XPathSimplecompStringText.XML.HXT.Arrow.XPathSimplecompStringExprText.XML.HXT.Arrow.XPathSimplecompXPText.XML.HXT.Arrow.XPathSimplecompXPathText.XML.HXT.Arrow.XPathSimplecompXSText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+deadEndStreetText.XML.HXT.Arrow.XPathSimpledecimalStringToIntControl.Arrow.ArrowTree, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowdeep'Text.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+equalNodeSetText.XML.HXT.Arrow.XPathSimpleequalQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowequalQNameByText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowequivQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowequivUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowerrorMsgParamText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+Haskell Xml Toolbox 7.5: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIk_entitiesk_entityHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.5: The Arrow APIText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.5: The Arrow APIText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.5: The Arrow APIText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.5: The Arrow API
    FunctionTableText.XML.HXT.RelaxNG.DataTypeLibUtils
    failureText.XML.HXT.RelaxNG.DataTypeLibUtils
    fatalText.XML.HXT.Arrow.XmlArrow, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    fctTableListText.XML.HXT.RelaxNG.DataTypeLibUtils
    fctTableStringText.XML.HXT.RelaxNG.DataTypeLibUtils
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    getAttrl'Text.XML.HXT.Arrow.XPathSimple
    getBaseURI
    getChildren'Text.XML.HXT.Arrow.XPathSimple
    getChildrenNTgetElemAndAttrNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    getElemNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    getFromNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    getXPText.XML.HXT.Arrow.XPathSimple
    getXPathNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    getXPathTrees
    1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDoc
    1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesInDocWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnv
    1 (Function)Text.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    2 (Function)Text.XML.HXT.Arrow.XPathSimple
    getXPathTreesWithNsEnvSimpleText.XML.HXT.Arrow.XPathSimple
    getXmlContentsControl.Arrow.ArrowIf, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    guards'Text.XML.HXT.Arrow.XPathSimple
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    isHtmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    isIOAText.XML.HXT.DOM.Unicode
    isXmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    k_enitityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    k_entitiesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    Haskell Xml Toolbox 7.4: The Arrow APIContents$&+localPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    mergeAControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    mergeAttrl
    mkText.XML.HXT.Arrow.XPathSimple
    mkAbsURImkNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    mkNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    mkPrefixLocalPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    mkQNameText.XML.HXT.XSLT.Common
    mkSNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    Control.Arrow.ArrowTree, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    multi'Text.XML.HXT.Arrow.XPathSimple
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIContents$&+namePrefixText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    namespaceUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    normalizeNsUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    nullQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    Text.XML.HXT.RelaxNG.XmlSchema.Regex
    numParamValidText.XML.HXT.RelaxNG.DataTypeLibUtils
    Haskell Xml Toolbox 7.4: The Arrow APIContents$&+
    okText.XML.HXT.RelaxNG.DataTypeLibUtils
    oneOrMoreControl.Arrow.ArrowIf, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.Arrow
    orErrText.XML.HXT.RelaxNG.DataTypeLibUtils
    Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+parseHtmlTagSoupText.XML.HXT.Arrow.ParserInterfaceparseNTestperformCheckText.XML.HXT.RelaxNG.DataTypeLibUtilspickleDocprepareContentsText.XML.HXT.Arrow.WriteDocument, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowprepareXSLTDocumentprocessFromNodeSetText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowprocessXPathTreesText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowprocessXPathTreesWithNsEnvText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XPath, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+QNText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedNameQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowqualifiedNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+stringValidText.XML.HXT.RelaxNG.DataTypeLibUtilsstringValidFTText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+text_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowtext_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.Arrowtext_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.XSLT.Common, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowthePicklerDTDthis'Text.XML.HXT.Arrow.XPathSimplethis''Text.XML.HXT.Arrow.XPathSimplethisNodetoNumberText.XML.HXT.Arrow.XPathSimpletoThisText.XML.HXT.Arrow.XPathSimpletraceText.XML.HXT.XSLT.CommontryGetXPathText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+universalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowuniversalUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.Arrow.DOMInterface, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowunlistAControl.Arrow.ArrowList, Control.Arrow.ListArrows, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowunpickleDocText.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowunwrapText.XML.HXT.Arrow.XPathSimpleHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+Text.XML.HXT.Arrow.XmlIOStateArrow, Text.XML.HXT.Arrow, Text.XML.HXT.ArrowwithValText.XML.HXT.RelaxNG.DataTypeLibUtilsHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&+XPArrowText.XML.HXT.Arrow.XPathSimpleXPathParamsxIndexText.XML.HXT.Arrow.XPathSimplexNumber'Text.XML.HXT.Arrow.XPathSimplexStringText.XML.HXT.Arrow.XPathSimplexio_attrListxsd_ENTITIESText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_ENTITYText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDREFText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_IDREFSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NCNamexsd_NMTOKENText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NMTOKENSText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NOTATIONText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_NameText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_QNamexsd_base64BinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_decimalText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_enumerationxsd_fractionDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_hexBinaryText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_languageText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_lengthxsd_maxExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_maxInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_maxLengthxsd_minExclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_minInclusiveText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_minLengthxsd_normalizedStringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_patternxsd_stringText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_tokenText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3Cxsd_totalDigitsText.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3CHaskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow API (Index)Haskell Xml Toolbox 7.5: The Arrow API (Index) Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContents$&Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow API Haskell Xml Toolbox 7.4: The Arrow APIHaskell Xml Toolbox 7.5: The Arrow APIContentsText.XML.HXT.Arrow.XmlArrowText.XML.HXT.Arrow.XPathText.XML.HXT.Arrow.XmlIOStateArrowText.XML.HXT.Arrow.XPathSimpleText.XML.HXT.Arrow.XmlNodeText.XML.HXT.Arrow.XmlArrowText.XML.HXT.Arrow.XmlNodeSetText.XML.HXT.Arrow.XmlIOStateArrowText.XML.HXT.Arrow.XmlNodeText.XML.HXT.DOM.NamespacePredicatesText.XML.HXT.DOM.QualifiedName Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeDeepSeq  QName Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeType for the namespace association list, used when propagating namespaces by
  modifying the QName values in a tree
diff --git a/doc/hdoc_filter/Text-XML-HXT-DOM-NamespacePredicates.html b/doc/hdoc_filter/Text-XML-HXT-DOM-NamespacePredicates.html
--- a/doc/hdoc_filter/Text-XML-HXT-DOM-NamespacePredicates.html
+++ b/doc/hdoc_filter/Text-XML-HXT-DOM-NamespacePredicates.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codesetNamespace :: NsEnv ->  -> QName ->  -> QNamexmlnsQN ::  :: QNameisWellformedQName ::  :: QName -> BoolisWellformedNSDecl ::  :: QName -> BoolisDeclaredNamespace ::  :: QName -> BoolsetNamespace :: NsEnv ->  -> QName ->  -> QNamexmlnsQN ::  :: QNameisWellformedQName ::  :: QName -> BoolisWellformedNSDecl ::  :: QName -> BoolisDeclaredNamespace ::  :: QName -> Bool
+
+Text.XML.HXT.DOM.QualifiedName
     Haskell Xml Toolbox 7.5: The Filter APISource codeContentsIndex
    Text.XML.HXT.DOM.QualifiedName
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    The core data types of the HXT DOM.
+
    Synopsis
    data QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }
    qualifiedName :: QName -> String
    universalName :: QName -> String
    universalUri :: QName -> String
    buildUniversalName :: (String -> String -> String) -> QName -> String
    mkQName :: String -> String -> String -> QName
    mkName :: String -> QName
    mkPrefixLocalPart :: String -> String -> QName
    mkNsName :: String -> String -> QName
    mkSNsName :: String -> QName
    nullQName :: QName
    equalQName :: QName -> QName -> Bool
    equivQName :: QName -> QName -> Bool
    equivUri :: String -> String -> Bool
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    normalizeNsUri :: String -> String
    Documentation
    data QName 
    Namespace support for element and attribute names.
+
    A qualified name consists of a name prefix, a local name
+ and a namespace uri.
+ All modules, which are not namespace aware, use only the localPart component.
+ When dealing with namespaces, the document tree must be processed by propagateNamespaces
+ to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
+
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
+
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
+
    namespaceUri :: Stringthe associated namespace uri
+
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> String
    builds the full name "prefix:localPart", if prefix is not null, else the local part is the result
+
    universalName :: QName -> String
    builds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
+ (specialisation of buildUniversalName)
+
    universalUri :: QName -> String
    builds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
+ where the subject, predicate and object often are concatenated from namespace uri and local part
+ (specialisation of buildUniversalName)
+
    buildUniversalName :: (String -> String -> String) -> QName -> String
    builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
+ namespace uri and local part are combined with the combining function given by the first parameter
+
    mkQName :: String -> String -> String -> QName
    constructs a complete qualified name with namePrefix, localPart and namespaceUri.
+
    mkName :: String -> QName
    constructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
+
    mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
+
    see also mkName, mkNsName, mkSNsName
+
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
+
    see also mkName, mkPrefixLocalPart
+
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
+
    see also mkNsName, mkPrefixLocalPart
+
    nullQName :: QName
    Empty QName
+
    equalQName :: QName -> QName -> Bool
    Equality of QNames: Two QNames are equal, if the local parts are equal
+ and the namespace URIs are equal.
+ The comparison works with and without namespace propagation.
+ If namespaces have been propagated, the name is split into prefix and local part
+ and the namespace uri is set. In this case the prefix is not significant for equality test.
+ If namespaces have not been propagated, the local part contains the full name, prefix
+ and namespace URI are empty. The full name (prefix and local part) is used for comparison.
+
    equivQName :: QName -> QName -> Bool
    Equivalent QNames are defined as follows: The URIs are normalized before comparison.
+ Comparison is done with equalQNameBy and equivUri
+
    equivUri :: String -> String -> Bool
    Comparison of normalized namespace URIs using normalizeNsUri
+
    equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> Bool
    Sometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
+ a name normalization function can be applied to the strings before comparing. Called by equalQName and
+ equivQName
+
    normalizeNsUri :: String -> String
    Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
+
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_filter/Text-XML-HXT-DOM-TypeDefs.html b/doc/hdoc_filter/Text-XML-HXT-DOM-TypeDefs.html
--- a/doc/hdoc_filter/Text-XML-HXT-DOM-TypeDefs.html
+++ b/doc/hdoc_filter/Text-XML-HXT-DOM-TypeDefs.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeText.XML.HXT.DOM.TypeDefs
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    The core data types of HDOM.
-
    Version : $Id: TypeDefs.hs,v 1.13 20061109 20:27:42 hxml Exp $
-
    The core data types of the HXT DOM.
+| XPi  QName XmlTrees| XTag  QName XmlTrees| XAttr  QNamedata QName  = QN {
    namePrefix :: String
    localPart :: String
    namespaceUri :: String
    }qualifiedName :: QName -> StringuniversalName :: QName -> StringuniversalUri :: QName -> StringbuildUniversalName :: (String -> String -> String) -> QName -> StringmkName :: String -> QNamemkPrefixLocalPart :: String -> String -> QNamemkNsName :: String -> String -> QNamemkSNsName :: String -> QNamenullQName :: QNameequalQName :: QName -> QName -> BoolequivQName :: QName -> QName -> BoolequivUri :: String -> String -> BoolequalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolnormalizeNsUri :: String -> Stringtype NsEnvattrNodes :: [ :: [QName]XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedNameXPi  QName XmlTreesXTag  QName XmlTreesXAttr  QNamedata QName 
    Namespace support for element and attribute names.
-
    A qualified name consists of a name prefix, a local name
- and a namespace uri.
- All modules, which are not namespace aware, use only the localPart component.
- When dealing with namespaces, the document tree must be processed by propagateNamespaces
- to split names of structure "prefix:localPart" and label the name with the apropriate namespace uri
-
    Constructors
    QN
    namePrefix :: Stringthe name prefix part of a qualified name "namePrefix:localPart"
-
    localPart :: Stringthe local part of a qualified name "namePrefix:localPart"
-
    namespaceUri :: Stringthe associated namespace uri
-
    show/hide Instances
    DeepSeq QName
    Eq QName
    Ord QName
    Read QName
    Show QName
    Typeable QName
    qualifiedName :: QName -> Stringbuilds the full name "prefix:localPart", if prefix is not null, else the local part is the result
-universalName :: QName -> Stringbuilds the "universal" name, that is the namespace uri surrounded with "{" and "}" followed by the local part
- (specialisation of buildUniversalName)
-universalUri :: QName -> Stringbuilds an "universal" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
- where the subject, predicate and object often are concatenated from namespace uri and local part
- (specialisation of buildUniversalName)
-buildUniversalName :: (String -> String -> String) -> QName -> Stringbuilds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
- namespace uri and local part are combined with the combining function given by the first parameter
-mkName :: String -> QNameconstructs a simple, namespace unaware name, namePrefix and namespaceUri are set to the empty string.
-mkPrefixLocalPart :: String -> String -> QName
    constructs a simple name, with prefix and localPart but without a namespace uri.
-
    see also mkName, mkNsName, mkSNsName
-
    mkNsName :: String -> String -> QName
    constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
-
    see also mkName, mkPrefixLocalPart
-
    mkSNsName :: String -> QName
    constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
-
    see also mkNsName, mkPrefixLocalPart
-
    nullQName :: QNameEmpty QName
-equalQName :: QName -> QName -> BoolEquality of QNames: Two QNames are equal, if the local parts are equal
- and the namespace URIs are equal.
- The comparison works with and without namespace propagation.
- If namespaces have been propagated, the name is split into prefix and local part
- and the namespace uri is set. In this case the prefix is not significant for equality test.
- If namespaces have not been propagated, the local part contains the full name, prefix
- and namespace URI are empty. The full name (prefix and local part) is used for comparison.
-equivQName :: QName -> QName -> BoolEquivalent QNames are defined as follows: The URIs are normalized before comparison.
- Comparison is done with equalQNameBy and equivUri
-equivUri :: String -> String -> BoolComparison of normalized namespace URIs using normalizeNsUri
-equalQNameBy :: (String -> String -> Bool) -> QName -> QName -> BoolSometimes a weaker equality relation than equalQName is appropriate, e.g no case significance in names, ...
- a name normalization function can be applied to the strings before comparing. Called by equalQName and
- equivQName
-normalizeNsUri :: String -> StringNormalization of URIs: Normalization is done by conversion into lowercase letters. A trailing "/" is ignored
-type Type for the namespace association list, used when propagating namespaces by
  modifying the QName values in a tree
@@ -1849,7 +1156,7 @@
 >attrNodes :: [ :: [QName] = [(Int, XmlNodeSet)]module Text.XML.HXT.DOM.QualifiedName Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codea_parse_by_mimetype :: Stringa_parse_html :: Stringa_tagsoup :: Stringa_trace :: Stringk_enitityk_entity :: Stringa_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Boola_parse_by_mimetype :: Stringa_tagsoup :: Stringk_enitityk_entity :: Stringthe predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespaces"
+>the predefined namespace uri for xml: "http://www.w3.org/XML/1998/namespace"
 a_do_not_collect_errors :: Stringapplication_xhtml :: Stringapplication_xml :: Stringapplication_xml_external_parsed_entity :: Stringapplication_xml_dtd :: Stringtext_html :: Stringtext_xml :: Stringtext_xml_external_parsed_entity :: StringisHtmlMimeType :: String -> BoolisXmlMimeType :: String -> Bool Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codea_parse_html, a_parse_by_mimetype, a_tagsoup a_issue_warnings Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codemkQTag ::  :: QName -> XmlFiltermkQAttr ::  :: QName -> XmlFilterqetag ::  :: QName -> XmlFilterqtag ::  :: QName -> XmlFilterqattr ::  :: QName -> XmlFiltermkQTag ::  :: QName -> XmlFiltermkQAttr ::  :: QName -> XmlFilterqetag ::  :: QName -> XmlFilterqtag ::  :: QName -> XmlFilterqattr ::  :: QName -> XmlFilter Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codetextOfXNode :: XNode -> StringmkXTagTree :: String -> mkQTagTree ::  :: QName -> XmlTreesmkQAttrTree ::  :: QName -> XmlTreesshowQName ::  :: QName -> String -> StringtextOfXNode :: XNode -> StringmkQTagTree ::  :: QName -> XmlTreesmkQAttrTree ::  :: QName -> XmlTreesshowQName ::  :: QName -> String -> String Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codetype TagName =  = QNametype AttrName =  = QNametName ::  :: QName -> StringaName ::  :: QName -> StringTagName =  = QNameAttrName =  = QNametName ::  :: QName -> Stringshortcut for qualifiedName
@@ -527,14 +527,14 @@
 >aName ::  :: QName -> Stringshortcut for qualifiedName
diff --git a/doc/hdoc_filter/Text-XML-HXT-DOM.html b/doc/hdoc_filter/Text-XML-HXT-DOM.html
--- a/doc/hdoc_filter/Text-XML-HXT-DOM.html
+++ b/doc/hdoc_filter/Text-XML-HXT-DOM.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeText.XML.HXT.Parser.HtmlParsec
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    HTML Parsec Parser
-
    Version : $Id: HtmlParsec.hs,v 1.11 20061208 11:48:20 hxml Exp $
-
    This parser tries to interprete everything as HTML
- no errors are emitted during parsing. If something looks
- weired, warning messages are inserted in the document tree
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
 
    all filter are pure XmlFilter,
- errror handling and IO is done in All filter are pure XmlFilter,
+   errror handling and IO is done in HtmlParser
- or other modules
+   or other modules
 
    isInnerHtmlTagOf :: String -> String -> BoolclosesHtmlTag :: String -> String -> Bool Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeText.XML.HXT.Parser.HtmlParser
    Portabilityportable
    Stabilitystable
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    HTML Parser
-
    Version : $Id: HtmlParser.hs,v 1.4 20061112 14:53:00 hxml Exp $
-
    This parser tries to interprete everything as HTML
- no errors are emitted during parsing. If something looks
- weired, warning messages are inserted in the document tree
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
 
    module contains state filter for easy parsing and error handling
- real work is done in Module contains state filter for easy parsing and error handling
+   real work is done in HtmlParsec Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code
+
+Text.XML.HXT.Parser.TagSoup
     Haskell Xml Toolbox 7.5: The Filter APISource codeContentsIndex
    Text.XML.HXT.Parser.TagSoup
    Portabilityportable
    Stabilityexperimental
    MaintainerUwe Schmidt (uwe@fh-wedel.de)
    Description
    lasy HTML and simpe XML parser implemented with tagsoup
+   parsing is done with a very simple monadic top down parser
+
    Documentation
    parseHtmlTagSoup :: Bool -> Bool -> Bool -> Bool -> Bool -> String -> String -> XmlTrees
    Produced by Haddock version 0.8
    
diff --git a/doc/hdoc_filter/Text-XML-HXT-Parser-XhtmlEntities.html b/doc/hdoc_filter/Text-XML-HXT-Parser-XhtmlEntities.html
--- a/doc/hdoc_filter/Text-XML-HXT-Parser-XhtmlEntities.html
+++ b/doc/hdoc_filter/Text-XML-HXT-Parser-XhtmlEntities.html
@@ -19,7 +19,7 @@
 > Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code= NameTest  QNametype KeyTab = [( = [(QName, String, NavXmlTreeNameTest  QNameKeyTab = [( = [(QName, String, NavXmlTree Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource code Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APISource codeHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsa_parse_by_mimetypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsera_parse_htmla_tagsoupText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsera_traceText.XML.HXT.XPath.NavTree, Text.XML.HXT.XPath.XPathDataTypesapplication_xhtmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parserapplication_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parserapplication_xml_dtdText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parserapplication_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsbuildUniversalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsText.XML.HXT.DOM.XmlState, Text.XML.HXT.DOM, Text.XML.HXT.ParserclosesHtmlTagText.XML.HXT.Parser.HtmlParsec, Text.XML.HXT.Parser.HtmlParser, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsequalQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserequalQNameByText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserequivQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserequivUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsisHtmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserisIdAttrTypeText.XML.HXT.DOM.UnicodeisXmlMimeTypeText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsk_enitityk_entitiesText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parserk_entitiesk_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentslocalPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsmkNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsermkNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsermkPrefixLocalPartText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsermkQNameText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsermkQTagmkSNsNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsnamePrefixText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsernamespaceUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsernormalizeNsUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParsernullQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsText.XML.HXT.Parser.HtmlParsec, Text.XML.HXT.Parser.HtmlParser, Text.XML.HXT.ParserparseHtmlTagSoupText.XML.HXT.Parser.TagSoupHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsQNText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedNameQNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserqualifiedNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsText.XML.HXT.DOM.UtiltextOfXNodeText.XML.HXT.DOM.XmlTreeFunctions, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsertext_htmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsertext_xmlText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.Parsertext_xml_external_parsed_entityText.XML.HXT.DOM.XmlKeywords, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsuniversalNameText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParseruniversalUriText.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserText.XML.HXT.DOM.QualifiedName, Text.XML.HXT.DOM.TypeDefs, Text.XML.HXT.DOM.XmlTreeTypes, Text.XML.HXT.DOM.XmlTree, Text.XML.HXT.DOM, Text.XML.HXT.ParserHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter API (Index)Haskell Xml Toolbox 7.5: The Filter API (Index) Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsHaskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter API Haskell Xml Toolbox 7.4: The Filter APIHaskell Xml Toolbox 7.5: The Filter APIContentsText.XML.HXT.DOM.QualifiedNameText.XML.HXT.DOM.TypeDefsText.XML.HXT.Parser.ProtocolHandlerUtilText.XML.HXT.Parser.TagSoup
 
   
-    Haskell XML Toolbox 7.4
+    Haskell XML Toolbox 7.5
     
   
 
   
-    
    Haskell XML Toolbox 7.4
    
+    
    Haskell XML Toolbox 7.5
    
 
     
    Contents
    
     
      
@@ -83,6 +83,8 @@
       
    • XPath support for selection of document parts
      • 
       
    • liberal HTML parser for interpreting any text containing <
 	... > as HTML/XML
      • 
+      
    • liberal and lasy lightweight HTML/XML parser based on
+	tagsoup
      • 
       
    • Relax NG schema
 	validator
      • 
       
    • integrated XSLT transformer
      • 
@@ -156,23 +158,26 @@
     
     
      Requirements
      
     
        
-      
      • ghc-6.8 or ghc-6.6 with cabal 1.2, HXT 7.3 works with
-	ghc-6.6 and cabal < 1.2
        • 
+      
      • ghc-6.8 or ghc-6.6 with cabal 1.2, HXT 7.5 works with
+	ghc-6.6 and cabal < 1.2
        • 
+      
      • HTTP package
        • 
+      
      • tagsoup package
        • 
       
      • Cabal of GNU make
        • 
     
      
 
     
     
      Downloads
      
     
      
-      Haskell XML Toolbox 7.4,
-      released 2007-12-12:
+      Haskell XML Toolbox 7.5,
+      released 2008-03-01:
     
      
     
        
       
      • This version works with ghc 6.8 and ghc 6.6 with cabal
 	1.2. For ghc 6.6 and cabal < 1.2 please use HXT 7.3.
        • 
       
      • Includes sources for building a ghc package
 	hxt with Cabal or make.
-	This package contains a Haskell DOM, an XML parser, a
+	This package contains a Haskell DOM, an XML parser, a HTML parser based on parsec,
+	a lightweight HTML/XML parser based on tagsoup, a
 	DTD validator,  namespace processing functions, a Relax
 	NG validator, an XPath expression evaluator, an XSLT transformer,
 	and serialization/deserialisation of data to/from XML.
@@ -209,7 +214,7 @@
     
        
       Before installing this version, install the Haskell HTTP module.
       For a quick install with Cabal execute the following commands in
-      .../HXT-7.4
+      .../HXT-7.5
     
        
     
             make setup
@@ -234,8 +239,42 @@
     
        
 
     
-    
        Change history
        
+    
        Change History
        
     
          
+      
        • In Version 7.5
+	
            
+	  
          • 
+	    A module Text.XML.HXT.Arrow.XPathSimple for fast XPath selection for simple XPath queries
+	    added. If the XPath query only contains for navigaion the axis from the
+	    root down to the leaves, the query is evaluated by computing
+	    a simple arrow and applying the arrow. This gives a
+	    speedup for queries like /htm/body//h1/text() for
+	    extraction of the headline text of a HTML document.
+	  
            • 
+	  
          • 
+	    Option added to control the selection of the parser
+	    (XML/HTML) by the mime type of the document.
+	  
            • 
+	  
          • 
+	    New lasy and lightweight HTML/XML parser based on tagsoup library.
+	    Useful especially for converting XML into native Haskell
+	    data. (Example in examples/arrows/performance)
+
+	  
            • 
+	  
          • 
+	    W3C XML Schema Datatype library for validating with RelaxNG extended.
+	    Currently supported Datatypes: Strings, URIs, QNames,
+	    binary string-encoded, decimal and all integer datatypes.
+	  
            • 
+	  
          • 
+	    Regular expression pattern matcher for W3C XML Schema datatype patterns.
+	  
          • 
+	  
          • New arrow combinator 'mergeA' in Control.Arrow.ArrowList
+	    for combining the components of a tuple, resulting from
+	    applying arrows constructed with (&&&), (***) and similar combinators.
+	  
            • 
+	
          
+      
          • 
       
        • In Version 7.4
 	
            
 	  
          • Configuration changes for ghc-6.8
            • 
@@ -432,7 +471,7 @@
 	    
 	  
 	
-	Last modified: 2007-12-12 
+	Last modified: 2008-03-01 
 
 
   
diff --git a/examples/Makefile b/examples/Makefile
--- a/examples/Makefile
+++ b/examples/Makefile
@@ -4,8 +4,8 @@
 #
 
 HXT_HOME	= ..
-VERSION		= 7.4
-LASTVERSION	= 7.3
+VERSION		= 7.5
+LASTVERSION	= 7.4
 
 EXAMPLES	= mini hparser hxpath hfilter hunit hsvg dtd2haskell arrows
 MORE_SAMPLES	= w3ctest blutgraetsche photoalbum
diff --git a/examples/arrows/HelloWorld/HelloWorld.hs b/examples/arrows/HelloWorld/HelloWorld.hs
--- a/examples/arrows/HelloWorld/HelloWorld.hs
+++ b/examples/arrows/HelloWorld/HelloWorld.hs
@@ -8,6 +8,7 @@
 main
     = do
       [rc] <- runX ( readDocument [ (a_trace, "1")
+				  , (a_validate, v_0)
 				  ] "hello.xml"
 		     >>>
 		     writeDocument [ (a_output_encoding, isoLatin1)
diff --git a/examples/arrows/HelloWorld/Mini.hs b/examples/arrows/HelloWorld/Mini.hs
--- a/examples/arrows/HelloWorld/Mini.hs
+++ b/examples/arrows/HelloWorld/Mini.hs
@@ -6,7 +6,7 @@
 main	:: IO()
 main
     = do
-      runX ( readDocument [ ] "hello.xml"
+      runX ( readDocument [ (a_validate, v_0) ] "hello.xml"
 	     >>>
 	     writeDocument [ ] "bye.xml"
 	   )
diff --git a/examples/arrows/Makefile b/examples/arrows/Makefile
--- a/examples/arrows/Makefile
+++ b/examples/arrows/Makefile
@@ -8,7 +8,8 @@
 		pickle \
 		hrelaxng \
 		RelaxTestSuite \
-		AGentleIntroductionToHXT
+		AGentleIntroductionToHXT \
+		performance
 
 HXT_HOME	= ../..
 PKGFLAGS	=
diff --git a/examples/arrows/RelaxTestSuite/Makefile b/examples/arrows/RelaxTestSuite/Makefile
--- a/examples/arrows/RelaxTestSuite/Makefile
+++ b/examples/arrows/RelaxTestSuite/Makefile
@@ -25,28 +25,28 @@
 force		:
 		$(GHC) --make -o $(prog) $(prog).hs
 
-testcases	= testCases
 testarchive	= RelaxTestCases.tgz
 
-test		:
-		$(MAKE) testrng
-		$(MAKE) testschema
+test		: test1 test2
 
-testrng		: $(prog) $(testcases)
-		$(prog) $(shell pwd)/$(testcases)
+test1		: testCases
+		$(prog) $(shell pwd)/testCases
 
-testschema	:
+test2		:
 		$(prog) $(shell pwd)/w3cSchemaDataTypes
 
-$(testcases)	: $(testarchive)
+testCases	: $(testarchive)
 		tar xvzf $(testarchive)
-		touch $(testcases)
+		touch testCases
 
 dist		:
 		[ -d $(DIST_DIR) ] || mkdir -p $(DIST_DIR)
 		cp Makefile $(modules) $(testarchive) $(DIST_DIR)
-
+		find w3cSchemaDataTypes '(' -name '*.xml' -or -name '*.rng' ')' -print | xargs tar cvf - | \
+			( cd $(DIST_DIR) ; tar xf - ; )
 clean		:
 		rm -f $(prog) *.o *.hi
+
+.PHONY		: all prof local force test test1 test2 dist clean
 
 # eof ------------------------------------------------------------
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.i.xml
@@ -0,0 +1,2 @@
+
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/1.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.i.xml
@@ -0,0 +1,3 @@
+
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/10.v.xml
@@ -0,0 +1,5 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/11.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/11.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/11.v.xml
@@ -0,0 +1,6 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.i.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/12.v.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/13.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/13.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/13.v.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/14.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/14.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/14.v.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.i.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/15.v.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.i.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/16.v.xml
@@ -0,0 +1,4 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.i.xml
@@ -0,0 +1,2 @@
+
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/2.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/20.v.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/21.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/21.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/21.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/22.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/22.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/22.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/25.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/25.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/25.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.i.xml
@@ -0,0 +1,2 @@
+
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/3.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.i.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/30.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/31.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/31.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/31.i.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/32.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/32.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/32.i.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/33.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/33.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/33.i.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/4.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/4.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/4.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/40.v.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/41.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/41.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/41.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/5.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/5.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/5.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.i.xml
@@ -0,0 +1,3 @@
+
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/6.v.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/7.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/7.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/7.v.xml
@@ -0,0 +1,3 @@
+
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.i.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.i.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.i.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/8.v.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/9.v.xml b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/9.v.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/9.v.xml
@@ -0,0 +1,2 @@
+
+ 
diff --git a/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/c.rng b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/c.rng
new file mode 100644
--- /dev/null
+++ b/examples/arrows/RelaxTestSuite/w3cSchemaDataTypes/001/c.rng
@@ -0,0 +1,113 @@
+
+  
+    
+  
+  
+  
+    
+
+      
+	
+	  
+	    2
+	    4
+	  
+	
+      
+
+      
+	
+	  
+	    4
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+	
+	  
+	    5
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+	
+	  
+	    3
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+	
+	  
+	    [1-9.]*
+	    5
+	    2
+	    123.45
+	    666.66
+	  
+	
+      
+      
+      
+	
+	  
+	    [1-9]*
+	    3
+	    123
+	    666
+	  
+	
+      
+      
+      
+	
+	  
+	  
+	
+      
+      
+      
+    
+  
+
+
diff --git a/examples/arrows/hparser/HXmlParser.hs b/examples/arrows/hparser/HXmlParser.hs
--- a/examples/arrows/hparser/HXmlParser.hs
+++ b/examples/arrows/hparser/HXmlParser.hs
@@ -124,7 +124,7 @@
       ++
       outputOptions
       ++
-      [ Option "T"	["xslt"]		(ReqArg (att "xslt") "STYLESHEET")	"STYLESHEET is the uri of the XSLT stylesheet to be applied"
+      [ Option ""	["xslt"]		(ReqArg (att "xslt") "STYLESHEET")	"STYLESHEET is the uri of the XSLT stylesheet to be applied"
       , Option "q"	["no-output"]		(NoArg  ("no-output", "1"))		"no output of resulting document"
       , Option "x"	["show-text"]		(NoArg	("show-text", "1"))		"output only the raw text, remove all markup"
       ]
diff --git a/examples/arrows/hparser/Makefile b/examples/arrows/hparser/Makefile
--- a/examples/arrows/hparser/Makefile
+++ b/examples/arrows/hparser/Makefile
@@ -106,8 +106,11 @@
 		cat $(EX4)
 		@sleep 2 ; echo ; echo "===> parser accepts this document and tries to build a document tree" ; echo ; sleep 2
 		$(prog) --indent --preserve-comment --parse-html $(EX4)
+		@sleep 2 ; echo ; echo "===> same with lasy parser with tagsoup" ; echo ; sleep 2
+		$(prog) -H -T -r --indent $(EX4)
 		@echo
 
+
 test5		:
 		@echo "===> Validate a valid xml file with respect to a valid Relax NG schema" ; echo ; sleep 1
 		@echo "the XML document ./valid1.xml"
@@ -129,6 +132,17 @@
 		$(prog) --relax-schema ./invalid3.rng ./valid1.xml || true
 		@echo
 
+test6		:
+		@echo "===> tagsoup parsing examples" ; echo ; sleep 2
+		@echo "===> www.w3c.org homepage (valid XHTML)" ; echo ; sleep 2
+		$(prog) --tagsoup http://www.w3c.org/
+		@echo "===> same again with removed whitespace and tree output" ; echo ; sleep 2
+		$(prog) --tagsoup --remove-whitespace --show-tree http://www.w3c.org/
+		@echo "===> same procedure with www.haskell.org homepage (rather valid HTML)" ; echo ; sleep 2
+		$(prog) --tagsoup --parse-html http://www.haskell.org/
+		@echo "===> same again with removed whitespace and tree output" ; echo ; sleep 2
+		$(prog) --tagsoup --parse-html --remove-whitespace --show-tree http://www.haskell.org/
+		@echo
 
 xslttest	:
 		$(MAKE) -C xslt test
diff --git a/examples/arrows/hparser/lousy.html b/examples/arrows/hparser/lousy.html
--- a/examples/arrows/hparser/lousy.html
+++ b/examples/arrows/hparser/lousy.html
@@ -9,18 +9,29 @@
     
            html
 	
            some text and a &xxx;
 	  
            more text
+      ' ' '
+      &unknown;
+      A
+      A
+      Ä
 	    
            
     
            
     
            123
     
            
 
-
+    xxx
+    
+      <&"'
+      end CDATA]]>
     
            
+      Ä Ö Ü A
     
            Uwe
 		Schmidt
            
 
 
-Last modified: Mon May 12 13:11:29 CEST 2003
+Last modified: Mon Feb 18 13:56:28 CET 2008
 
 
diff --git a/examples/arrows/hrelaxng/Makefile b/examples/arrows/hrelaxng/Makefile
--- a/examples/arrows/hrelaxng/Makefile
+++ b/examples/arrows/hrelaxng/Makefile
@@ -35,7 +35,7 @@
 
 example1a	:
 		@echo "a valid document"
-		$(prog) ./valid2.xml ./valid2.rng
+		$(prog) ./valid2.xml ./valid2.rng || true
 		@echo
 
 example1b	:
diff --git a/examples/arrows/hrelaxng/valid2.rng b/examples/arrows/hrelaxng/valid2.rng
new file mode 100644
--- /dev/null
+++ b/examples/arrows/hrelaxng/valid2.rng
@@ -0,0 +1,27 @@
+
+  
+    
+  
+  
+  
+    
+
+      
+	
+	  2
+	  4
+	
+      
+
+      
+	
+	  4
+	
+      
+      
+    
+  
+
+
diff --git a/examples/arrows/hrelaxng/valid2.xml b/examples/arrows/hrelaxng/valid2.xml
new file mode 100644
--- /dev/null
+++ b/examples/arrows/hrelaxng/valid2.xml
@@ -0,0 +1,1 @@
+
diff --git a/examples/arrows/hxpath/Makefile b/examples/arrows/hxpath/Makefile
--- a/examples/arrows/hxpath/Makefile
+++ b/examples/arrows/hxpath/Makefile
@@ -6,8 +6,9 @@
 GHC		= ghc $(GHCFLAGS) $(PKGFLAGS)
 
 prog		= ./HXPath
+prog2		= ./XPathShell
 
-all		: $(prog)
+all		: $(prog) $(prog2)
 
 force		:
 		$(GHC) --make -o $(prog) $(prog).hs
@@ -15,6 +16,9 @@
 $(prog)		: $(prog).hs
 		$(GHC) --make -o $@ $<
 
+$(prog2)	: $(prog2).hs
+		$(GHC) --make -o $@ $<
+
 EX		= ../../xhtml/xhtml.xml
 
 test		: $(prog)
@@ -46,7 +50,7 @@
 
 dist		:
 		[ -d $(DIST_DIR) ] || mkdir -p $(DIST_DIR)
-		cp Makefile $(prog).hs $(DIST_DIR)
+		cp Makefile $(prog).hs $(prog2).hs $(DIST_DIR)
 
 clean		:
 		rm -f $(prog) *.hi *.o
diff --git a/examples/arrows/hxpath/XPathShell.hs b/examples/arrows/hxpath/XPathShell.hs
new file mode 100644
--- /dev/null
+++ b/examples/arrows/hxpath/XPathShell.hs
@@ -0,0 +1,185 @@
+-- ------------------------------------------------------------
+
+{- |
+   Module     : XPathShell
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : experimental
+   Portability: portable
+
+   XPath example program for testing xpath evaluation
+   with both evaluation stategies, the full XPath functionality
+   and the limited but faster one for simple XPath queries
+
+-}
+
+-- ------------------------------------------------------------
+
+
+module Main
+where
+
+import qualified Control.Monad as M
+
+import Data.Maybe
+
+import Text.XML.HXT.Arrow
+
+import qualified
+       Text.XML.HXT.Arrow.XPathSimple as XPS
+
+import Text.XML.HXT.XPath.XPathParser
+    ( parseXPath
+    )
+
+import System.Console.Readline
+import System.Environment
+
+import Text.ParserCombinators.Parsec
+    ( runParser )
+
+
+main	:: IO()
+main
+    = do
+      args <- getArgs
+      (path, env, doc) <- evalArgs args
+      if not (null path) && not (null doc)
+	 then evalXPath path env (head doc)
+	 else evalLoop env doc
+
+evalArgs			:: [String] -> IO (String, NsEnv, XmlTrees)
+evalArgs []			= evalArgs (""   : "[]" : ""  : [])
+evalArgs [doc]			= evalArgs (""   : "[]" : doc : [])
+evalArgs [path, doc]		= evalArgs (path : "[]" : doc : [])
+evalArgs [path, env, ""]	= return (path, addEntries (read env) $ defaultEnv, [])
+evalArgs [path, env, doc]	= do
+				  (d, ne) <- loadDoc doc
+				  return (path, addEntries ne $ addEntries (read env) $ defaultEnv, d)
+evalArgs al			= evalArgs (take 3 al)
+
+loadDoc		:: String -> IO ([XmlTree], NsEnv)
+loadDoc doc
+    = do
+      d <- runX ( readDocument [ (a_tagsoup, v_0)
+			       , (a_parse_by_mimetype, v_1)
+			       , (a_check_namespaces, v_1)
+			       , (a_remove_whitespace, v_1)
+			       , (a_validate, v_0)
+			       , (a_canonicalize, v_1)
+			       ] doc
+		  >>>
+		  (documentStatusOk `guards` this)
+		)
+      let env = runLA (unlistA >>> collectNamespaceDecl) d
+      return (d, env)
+
+showDoc		:: XmlTree -> IO ()
+showDoc doc
+    = do
+      runX ( constA doc
+	     >>>
+	     writeDocument [ (a_indent, v_1)
+			   , (a_no_xml_pi, v_1)
+			   ] ""
+	   )
+      return ()
+
+showTree		:: XmlTree -> IO ()
+showTree doc
+    = do
+      runX ( constA doc
+	     >>>
+	     writeDocument [ (a_show_tree, v_1)
+			   , (a_no_xml_pi, v_1)
+			   ] ""
+	   )
+      return ()
+
+evalXPath	:: String -> NsEnv -> XmlTree -> IO()
+evalXPath path env doc
+    | nr == xr
+	= putStrLn . unlines $ "ok: " : nr
+    | otherwise
+	= do
+	  putStrLn . unlines $
+		       [ "results differ"
+		       , "expected: "
+		       ] ++ xr ++
+		       [ "got:      "
+		       ] ++ nr
+	  putStrLn $ xpt path
+    where
+    xpt = either show show . runParser parseXPath env ""
+    nr = runLA (XPS.getXPathTreesWithNsEnv env path >>> xshow this) doc
+    xr = runLA (    getXPathTreesWithNsEnv env path >>> xshow this) doc
+
+evalLoop	:: NsEnv -> XmlTrees -> IO ()
+evalLoop env doc
+    = do
+      maybeLine <- readline "xpath> "
+      case maybeLine of 
+        Nothing	-> return () -- EOF / control-d
+	Just ":q"	-> return ()
+	Just line -> do
+		     let ws = words line
+		     if null ws
+			then evalLoop env doc
+			else do
+			     addHistory line
+			     evalCmd (words line)
+    where
+    evalCmd []		= evalLoop env doc
+    evalCmd [":ns",uri]	= evalCmd [":ns", "", uri]
+    evalCmd [":ns", ns, uri]
+			= evalLoop (addEntry ns uri env) doc
+    evalCmd (":?":_)	= do
+			  putStrLn . unlines $
+				       [ "XPath Tester"
+				       , "Commands:"
+				       , ":l \tload a document"
+				       , ":ns \tset default namespace"
+				       , ":ns  \tset namespace"
+				       , ":q\t\tquit"
+				       , ":s\t\tshow current document"
+				       , ":t\t\tshow current document in tree format"
+				       , ":x\t\tshow current namespace environment"
+				       , ":?\t\tthis message"
+				       , "\tevaluate XPath expression"
+				       ]
+			  evalLoop env doc
+    evalCmd [":x"]	= do
+			  putStrLn . unlines . map show $ env
+			  evalLoop env doc
+    evalCmd [":s"]	= do
+			  M.when (not . null $ doc) (showDoc . head $ doc)
+			  evalLoop env doc
+    evalCmd [":t"]	= do
+			  M.when (not . null $ doc) (showTree . head $ doc)
+			  evalLoop env doc
+    evalCmd [":l",n]	= do
+			  (nd, nv) <- loadDoc n
+			  if null nd
+			     then do
+				  putStrLn ("error when loading " ++ show doc)
+				  evalLoop env doc
+			     else evalLoop (addEntries nv env) nd
+    evalCmd ws@((':':_):_)
+			= do
+			  putStrLn ("unknown command (:? for help): " ++ (show . unwords $ ws))
+			  evalLoop env doc
+    evalCmd ws		= do
+			  let path = unwords ws
+			  if null doc
+			     then putStrLn "no document loaded"
+			     else evalXPath path env (head doc)
+			  evalLoop env doc
+
+defaultEnv	:: NsEnv
+defaultEnv	= [ ("xml",xmlNamespace)
+		  , ("xmlns",xmlnsNamespace)
+		  ]
+
+-- ----------------------------------------
diff --git a/examples/arrows/performance/GenDoc.hs b/examples/arrows/performance/GenDoc.hs
new file mode 100644
--- /dev/null
+++ b/examples/arrows/performance/GenDoc.hs
@@ -0,0 +1,272 @@
+module Main
+where
+
+import Text.XML.HXT.Arrow
+
+import Text.XML.HXT.DOM.Unicode
+    ( unicodeToXmlEntity
+    )
+
+import Control.Monad.State.Strict hiding (when)
+
+import Data.List
+import Data.Maybe
+
+import System.IO			-- import the IO and commandline option stuff
+import System.Environment
+
+-- ----------------------------------------
+
+main	:: IO ()
+main
+    = do
+      p <- getProgName
+      (is : _) <- getArgs
+      let i = (read is)::Int
+      main' p i
+    where
+    main' p' = fromMaybe main0 . lookup (pn p') $ mpt
+    mpt = [ ("GenDoc",	   main1)
+	  , ("ReadDoc",    main2)
+	  , ("PruneRight", main3 False)
+	  , ("PruneLeft",  main3 True)
+	  , ("MemTest",    main4)
+	 ]
+
+-- ----------------------------------------
+
+-- generate a document containing a binary tree of 2^i leafs (= 2^(i-1) XML elements)
+
+main1	:: Int -> IO ()
+main1 i
+    = do
+      runX (genDoc i (fn i))
+      return ()
+
+-- ----------------------------------------
+
+-- read a document containing a binary tree of 2^i leafs
+
+main2	:: Int -> IO ()
+main2 i
+    = do
+      [x] <- runX (readDoc (fn i)
+		   >>>
+		   traceMsg 1 "start unpickle"
+		   >>>
+		   unpickleTree
+		   >>>
+		   traceMsg 1 "start fold"
+		   >>>
+		   arr (foldT1 max)
+		  )
+      putStrLn ( "maximum value in tree is " ++ show x ++
+		 ", expected value was " ++ show ((2::Int)^i)
+	       )
+
+-- ----------------------------------------
+
+-- test on lasyness, is the whole tree read or only the first child of every child node?
+
+main3	:: Bool -> Int -> IO ()
+main3 l i
+    = do
+      [t] <- runX ( readDoc (fn i)
+		    >>>
+		    fromLA (xshow ( getChildren
+				    >>>
+				    if l then pruneForkLeft else pruneForkRight
+				  )
+			   )
+		  )
+      putStrLn ("pruned binary tree is : " ++ show t)
+
+-- ----------------------------------------
+
+main4	:: Int -> IO ()
+main4 i
+    = do
+      [x] <- runX ( setTraceLevel 1
+		    >>>
+		    traceMsg 1 ("generate tree of depth " ++ show i)
+		    >>>
+		    fromLA (genTree 0 i)
+		    >>>
+		    traceMsg 1 ("compute maximum and minimum")
+		    >>>
+		    fromLA ( foldBTree maximum &&& foldBTree minimum )	-- 2 traversals: complete tree in mem
+		    >>>
+		    arr2 (\ ma mi -> "maximum value = " ++ show ma ++ ", minimum = " ++ show mi )
+		    >>>
+		    traceString 1 id
+		  )
+      putStrLn x
+
+foldBTree	:: ([Int] -> Int) -> LA XmlTree Int
+foldBTree f
+    = choiceA
+      [ hasName "leaf" :-> ( getAttrValue "value" >>^ read )
+      , hasName "fork" :-> ( (getChildren >>> foldBTree f) >. f )
+      , this           :-> none
+      ]
+
+-- ----------------------------------------
+
+-- just to check how much memory is used for the tree
+
+main0	:: Int -> IO ()
+main0 i
+    = do
+      let t = mkBTree i
+      let m = show . foldT1 max $ t
+      putStrLn ("maximum value in tree is " ++ m ++ ", minimum value is " ++ show (foldT1 min t))
+      return ()
+
+-- ----------------------------------------
+
+pn	:: String -> String
+pn	= reverse . takeWhile (/= '/') . reverse
+
+fn	:: Int -> String
+fn	= ("tree-" ++) . (++ ".xml") . reverse . take 4 . reverse . ((replicate 4 '0') ++ ) . show
+
+-- ----------------------------------------
+
+genTree	:: Int -> Int -> LA XmlTree XmlTree
+genTree !n !d
+    | d == 0	= aelem "leaf" [sattr "value" (show (n + 1))]
+    | otherwise	= selem "fork" [ genTree (2*n)   (d-1)
+			       , genTree (2*n+1) (d-1)
+			       ]
+
+-- ----------------------------------------
+
+genDoc		:: Int -> String -> IOSArrow b XmlTree
+genDoc d out    = constA (mkBTree d)
+		  >>>
+		  xpickleVal xpickle
+		  >>>
+		  putDoc out
+
+-- ----------------------------------------
+
+readDoc	:: String -> IOSArrow b XmlTree
+readDoc src
+    = readDocument [ (a_tagsoup, v_1)
+		   , (a_remove_whitespace, v_1)
+		   , (a_encoding, isoLatin1)
+		   , (a_issue_warnings, v_0)
+		   , (a_trace, "1")
+		   ] src
+      >>>
+      processChildren (isElem `guards` this)
+
+-- ----------------------------------------
+
+unpickleTree	:: ArrowXml a => a XmlTree BTree
+unpickleTree	= xunpickleVal xpickle
+
+-- ----------------------------------------
+
+pruneForkRight	:: LA XmlTree XmlTree
+pruneForkRight
+    = ( replaceChildren
+	( ( getChildren >>. take 1 )
+	  >>>
+	  pruneForkRight
+	)
+      ) `when` (hasName "fork")
+
+
+pruneForkLeft	:: LA XmlTree XmlTree
+pruneForkLeft
+    = ( replaceChildren
+	( ( getChildren >>. drop 1 )
+	  >>>
+	  pruneForkLeft
+	)
+      ) `when` (hasName "fork")
+
+-- ----------------------------------------
+
+type Counter a	= State Int a
+
+incr	:: Counter Int
+incr	= do
+	  modify (+1)
+	  get
+
+-- ----------------------------------------
+
+data BTree	= Leaf Int
+		| Fork BTree BTree
+		  deriving (Show)
+
+instance XmlPickler BTree where
+    xpickle = xpAlt tag ps
+	where
+	tag (Leaf _	) = 0
+	tag (Fork _ _	) = 1
+	ps = [ xpWrap ( Leaf, \ (Leaf i) -> i)
+	       ( xpElem "leaf" $ xpAttr "value" $ xpickle )
+
+	     , xpWrap ( uncurry Fork, \ (Fork l r) -> (l, r))
+	       ( xpElem "fork" $ xpPair xpickle xpickle )
+	       ]
+
+-- ----------------------------------------
+
+mkBTree		:: Int -> BTree
+mkBTree	depth	= evalState (mkT depth) 0
+
+mkT	:: Int -> Counter BTree
+mkT 0	= do
+	  i <- incr
+	  return (Leaf i)
+mkT n	= do
+	  l <- mkT (n-1)
+	  r <- mkT (n-1)
+	  return (Fork l r)
+
+-- ----------------------------------------
+
+foldT1	:: (Int -> Int -> Int) -> BTree -> Int
+foldT1 _  (Leaf v)	= v
+foldT1 op (Fork l r)	= foldT1 op l `op` foldT1 op r
+
+-- ----------------------------------------
+
+-- output is done with low level ops to write the
+-- document i a lasy manner
+-- adding an xml pi and encoding is done "by hand"
+-- latin1 decoding is the identity, so please generate the
+-- docs with latin1 encoding. Here ist done even with ASCCI
+-- every none ASCII char is represented by a char ref (&nnn;)
+
+putDoc	:: String -> IOStateArrow s XmlTree XmlTree
+putDoc dst
+    = addXmlPi
+      >>>
+      addXmlPiEncoding isoLatin1
+      >>>
+      xshow getChildren
+      >>>
+      arr unicodeToXmlEntity
+      >>>
+      arrIO (\ s -> hPutDocument (\h -> hPutStrLn h s))
+      >>>
+      none
+      where
+      isStdout	= null dst || dst == "-"
+
+      hPutDocument	:: (Handle -> IO()) -> IO()
+      hPutDocument action
+	  | isStdout
+	      = action stdout
+	  | otherwise
+	      = do
+		handle <- openFile dst WriteMode
+		action handle
+		hClose handle
+
+-- ----------------------------------------
diff --git a/examples/arrows/performance/Makefile b/examples/arrows/performance/Makefile
new file mode 100644
--- /dev/null
+++ b/examples/arrows/performance/Makefile
@@ -0,0 +1,101 @@
+# $Id: Makefile,v 1.9 2006/11/11 15:36:03 hxml Exp $
+
+HXT_HOME	= ../../..
+PKGFLAGS	= 
+GHCFLAGS	= -Wall -O2 -fbang-patterns
+GHC		= ghc $(GHCFLAGS) $(PKGFLAGS)
+
+DIST		= $(HXT_HOME)/dist/examples/arrows
+DIST_DIR	= $(DIST)/performance
+
+prog		= ./GenDoc
+prog2		= ./ReadDoc
+prog3		= ./PruneRight
+prog4		= ./PruneLeft
+prog5		= ./MemTest
+progs		= $(prog) $(prog2) $(prog3) $(prog4) $(prog5)
+
+all		: $(progs)
+
+$(prog)		: $(prog).hs
+		$(GHC) --make -o $@ $<
+
+local		:
+		$(GHC) --make -o $(prog) -fglasgow-exts -ignore-package hxt -i../../../src $(prog).hs
+
+$(prog2)	: $(prog)
+		ln -f $(prog) $(prog2)
+
+$(prog3)	: $(prog)
+		ln -f $(prog) $(prog3)
+
+$(prog4)	: $(prog)
+		ln -f $(prog) $(prog4)
+
+$(prog5)	: $(prog)
+		ln -f $(prog) $(prog5)
+
+# generate and read documents containing a binary tree
+# with 2^i leaf nodes containing the numbers 1 to 2^i
+# for i up to at least 22 (8M XML elements) output works fine
+# for i up to 19 (1M XML elements) input works without swapping
+# with i=20 swapping starts, but the program it still terminates
+# the size of the XML file for i=20 is about 36Mb
+# these tests have run on a box with 1Gb memory
+
+tests		= 2 3 10 11 12 13 14 15 16 17 18 19 20
+
+test		: $(prog)
+		$(MAKE) genfiles
+		$(MAKE) readfiles
+		$(MAKE) pruneright
+		$(MAKE) pruneleft
+
+genfiles	:
+		@for i in $(tests) ; \
+		do \
+		echo time $(prog) $$i ; \
+		time $(prog) $$i ; \
+		ls -l tree-*$$i.xml ; \
+		echo ; \
+		done
+
+readfiles	:
+		@for i in $(tests) ; \
+		do \
+		echo time $(prog2) $$i ; \
+		time $(prog2) $$i ; \
+		echo ; \
+		done
+
+pruneright	:
+		@for i in $(tests) ; \
+		do \
+		echo time $(prog3) $$i ; \
+		time $(prog3) $$i ; \
+		echo ; \
+		done
+
+pruneleft	:
+		@for i in $(tests) ; \
+		do \
+		echo time $(prog4) $$i ; \
+		time $(prog4) $$i ; \
+		echo ; \
+		done
+
+memtest	:
+		@for i in $(tests) ; \
+		do \
+		echo time $(prog5) $$i ; \
+		time $(prog5) $$i ; \
+		echo ; \
+		done
+
+dist		:
+		[ -d $(DIST_DIR) ] || mkdir -p $(DIST_DIR)
+		cp Makefile GenDoc.hs $(DIST_DIR)
+
+clean		:
+		rm -f $(progs) *.o *.hi *.xml
+
diff --git a/examples/hsvg/index.html.jpg b/examples/hsvg/index.html.jpg
Binary files a/examples/hsvg/index.html.jpg and b/examples/hsvg/index.html.jpg differ
diff --git a/examples/mini/Makefile b/examples/mini/Makefile
--- a/examples/mini/Makefile
+++ b/examples/mini/Makefile
@@ -15,7 +15,7 @@
 $(prog)		: $(prog).hs
 		$(GHC) --make -o $@ $<
 
-test		:
+test		: $(prog)
 		@echo "===> a very simple test"
 		@echo "===> a xml source"
 		@cat example1.xml
diff --git a/hxt.cabal b/hxt.cabal
--- a/hxt.cabal
+++ b/hxt.cabal
@@ -1,6 +1,6 @@
 -- arch-tag: Haskell XML Toolbox main description file
 name: hxt
-version: 7.4
+version: 7.5
 license: OtherLicense
 license-file: LICENCE
 maintainer: Uwe Schmidt 
@@ -54,10 +54,11 @@
   Text.XML.HXT.Arrow.ProcessDocument,
   Text.XML.HXT.Arrow.ReadDocument,
   Text.XML.HXT.Arrow.WriteDocument,
+  Text.XML.HXT.Arrow.XPath,
+  Text.XML.HXT.Arrow.XPathSimple,
   Text.XML.HXT.Arrow.XmlArrow,
   Text.XML.HXT.Arrow.XmlIOStateArrow,
   Text.XML.HXT.Arrow.XmlNode,
-  Text.XML.HXT.Arrow.XmlNodeSet,
   Text.XML.HXT.DOM,
   Text.XML.HXT.DOM.EditFilters,
   Text.XML.HXT.DOM.FormatXmlTree,
@@ -65,6 +66,7 @@
   Text.XML.HXT.DOM.Namespace,
   Text.XML.HXT.DOM.NamespaceFilter,
   Text.XML.HXT.DOM.NamespacePredicates,
+  Text.XML.HXT.DOM.QualifiedName,
   Text.XML.HXT.DOM.TypeDefs,
   Text.XML.HXT.DOM.UTF8Decoding,
   Text.XML.HXT.DOM.Unicode,
@@ -91,6 +93,7 @@
   Text.XML.HXT.Parser.ProtocolHandlerHttpNative,
   Text.XML.HXT.Parser.ProtocolHandlerHttpNativeOrCurl,
   Text.XML.HXT.Parser.ProtocolHandlerUtil,
+  Text.XML.HXT.Parser.TagSoup,
   Text.XML.HXT.Parser.XhtmlEntities,
   Text.XML.HXT.Parser.XmlCharParser,
   Text.XML.HXT.Parser.XmlDTDParser,
@@ -149,7 +152,7 @@
  hs-source-dirs: src
  ghc-options: -Wall -fglasgow-exts
 
- build-depends: base, haskell98, parsec, HTTP, HUnit, network
+ build-depends: base, haskell98, parsec, HTTP, HUnit, network, tagsoup
  if flag(splitBase)
    build-depends: base >= 3, containers, directory, process
  else
diff --git a/src/Control/Arrow/ArrowList.hs b/src/Control/Arrow/ArrowList.hs
--- a/src/Control/Arrow/ArrowList.hs
+++ b/src/Control/Arrow/ArrowList.hs
@@ -121,6 +121,15 @@
     listA		:: a b c -> a b [c]
     listA af		= af >>.  (:[])
 
+    -- | the inverse of 'listA'
+    --
+    -- @ listA af >>> unlistA = af @
+    --
+    -- unlistA is defined as @ arrL id @
+
+    unlistA		:: a [b] b
+    unlistA		= arrL id
+
     -- | the identity arrow, alias for returnA
 
     this		:: a b b
@@ -292,6 +301,25 @@
 
     ($<$)		:: (c -> (a b b)) -> a b c -> a b b
     g $<$ f		= applyA (listA (f >>> arr g) >>> arr seqA)
+
+    -- | merge the result pairs of an arrow with type @a a1 (b1, b2)@
+    -- by combining the tuple components with the @op@ arrow
+    --
+    -- examples with simple list arrows working on strings and XmlTrees
+    --
+    -- >     a1 :: a String (XmlTree, XmlTree)
+    -- >     a1 = selem "foo" [this >>> mkText]
+    -- > 	  &&&
+    -- > 	  selem "bar" [arr (++"0") >>> mkText]
+    -- > 
+    -- >     runLA (a1 >>> mergeA (<+>) >>> xshow this) "42" == ["42","420"]
+    -- >     runLA (a1 >>> mergeA (+=)  >>> xshow this) "42" == ["42420"]
+    --
+    -- see also: 'applyA', '$<' and '+=' in class 'Text.XML.HXT.Arrow.ArrowXml'
+
+    mergeA		:: (a (a1, b1) a1 -> a (a1, b1) b1 -> a (a1, b1) c) ->
+			   a (a1, b1) c
+    mergeA op		= (\ x -> arr fst `op` constA (snd x)) $< this
 
     -- | useful only for arrows with side effects: perform applies an arrow to the input
     -- ignores the result and returns the input
diff --git a/src/Control/Arrow/ArrowTree.hs b/src/Control/Arrow/ArrowTree.hs
--- a/src/Control/Arrow/ArrowTree.hs
+++ b/src/Control/Arrow/ArrowTree.hs
@@ -82,11 +82,11 @@
     -- example: @ processChildren (none \`when\` isCmt) @ removes all children, for which isCmt holds
 
     processChildren	:: Tree t => a (t b) (t b) -> a (t b) (t b)
-    processChildren f	= listA (getChildren >>> f)		-- new children, deterministic filter: single element result
+    processChildren f	= arr T.getNode
 			  &&&
-			  this					-- pair with root
+			  listA (arrL T.getChildren >>> f)	-- new children, deterministic filter: single element result
 			  >>>
-			  arr2 T.setChildren			-- apply binary filter
+			  arr2 T.mkTree
 
     -- | similar to processChildren, but the new children are computed by processing
     -- the whole input tree
@@ -95,11 +95,11 @@
     -- and substitutes the children component of the root node with this list
 
     replaceChildren	:: Tree t => a (t b) (t b) -> a (t b) (t b)
-    replaceChildren f	= listA f				-- compute new children
+    replaceChildren f	= arr T.getNode
 			  &&&
-			  this
+			  listA f				-- compute new children
 			  >>>
-			  arr2 T.setChildren
+			  arr2 T.mkTree
 
     -- |
     -- pronounced \"slash\", meaning g inside f
diff --git a/src/Data/Tree/Class.hs b/src/Data/Tree/Class.hs
--- a/src/Data/Tree/Class.hs
+++ b/src/Data/Tree/Class.hs
@@ -64,7 +64,7 @@
 
     -- | substitute children: @ setChildren cl = changeChildren (const cl) @
 
-    setChildren	::            [t a] -> t a -> t a
+    setChildren		::            [t a] -> t a -> t a
     setChildren cl	= changeChildren (const cl)
 
     -- | fold for trees
diff --git a/src/Makefile b/src/Makefile
--- a/src/Makefile
+++ b/src/Makefile
@@ -2,7 +2,7 @@
 #
 # global names and dirs
 
-VERSION		= 7.4
+VERSION		= 7.5
 HXT_HOME	= ..
 HXT_HOME_PATH	= $(shell cd $(HXT_HOME) ; pwd)
 PACKAGE_DIR	= $(HXT_HOME_PATH)/lib/hxt
@@ -96,7 +96,7 @@
 		  $(wildcard ./Control/Strategies/*.hs) \
 		  $(wildcard ./Text/XML/HXT/[A]*.hs) \
 		  $(wildcard ./Text/XML/HXT/DOM/NamespacePredicates.hs) \
-		  $(wildcard ./Text/XML/HXT/DOM/[ITU]*.hs) \
+		  $(wildcard ./Text/XML/HXT/DOM/[IQTU]*.hs) \
 		  $(wildcard ./Text/XML/HXT/DOM/XmlKeywords.hs) \
 		  $(wildcard ./Text/XML/HXT/Parser/XmlOptions.hs) \
 		  $(wildcard ./Text/XML/HXT/Arrow.hs) \
@@ -118,7 +118,7 @@
 HXT_LIBA	= libHS$(HXT_PACKAGE).a
 HXT_LIBO	= HS$(HXT_PACKAGE).o
 HXT_LIB		= $(HXT_LIBA) $(HXT_LIBO)
-HXT_REQ_PKG	= -package parsec -package HTTP
+HXT_REQ_PKG	= -package parsec -package HTTP -package tagsoup
 
 $(HXT_LIBA)	: $(HXT_SRC)
 		$(GHC) -package-name $(HXT_PACKAGE_NAME) $(HXT_REQ_PKG) --make $(HXT_DRIVER:.o=.hs)
@@ -226,7 +226,7 @@
 clean		:
 		$(MAKE) clean_packages
 		$(MAKE) -C ./Text/XML/HXT/ProtocolHandler clean
-		rm -rf $(LOCAL_INSTALL_DIR)
+		rm -rf $(LOCAL_INSTALL_DIR) hxt-package.conf ../hxt.cabal
 
 clean_$(HXT_PACKAGE)	:
 		$(RM) $(HXT_DRIVER) $(HXT_DRIVER:.o=.hi) $(HXT_OBJ) $(HXT_HI) $(HXT_LIB)
diff --git a/src/Text/XML/HXT/Arrow.hs b/src/Text/XML/HXT/Arrow.hs
--- a/src/Text/XML/HXT/Arrow.hs
+++ b/src/Text/XML/HXT/Arrow.hs
@@ -27,7 +27,7 @@
 
     , module Text.XML.HXT.Arrow.XmlArrow
     , module Text.XML.HXT.Arrow.XmlIOStateArrow
-    , module Text.XML.HXT.Arrow.XmlNodeSet
+    , module Text.XML.HXT.Arrow.XPath
 
     , module Text.XML.HXT.Arrow.DocumentInput
     , module Text.XML.HXT.Arrow.DocumentOutput
@@ -57,7 +57,9 @@
 import Text.XML.HXT.Arrow.WriteDocument
 import Text.XML.HXT.Arrow.XmlArrow
 import Text.XML.HXT.Arrow.XmlIOStateArrow
-import Text.XML.HXT.Arrow.XmlNodeSet
+import Text.XML.HXT.Arrow.XPath
+import qualified				-- just for adding the module to the lib
+       Text.XML.HXT.Arrow.XPathSimple as XPS ()
 
 import Text.XML.HXT.XSLT.XsltArrows
 
diff --git a/src/Text/XML/HXT/Arrow/DTDProcessing.hs b/src/Text/XML/HXT/Arrow/DTDProcessing.hs
--- a/src/Text/XML/HXT/Arrow/DTDProcessing.hs
+++ b/src/Text/XML/HXT/Arrow/DTDProcessing.hs
@@ -125,7 +125,7 @@
 
       processRoot	:: IOStateArrow s XmlTree XmlTree
       processRoot
-	  = ( traceMsg 1 ("processDTD: process parameter enitities")
+	  = ( traceMsg 1 ("processDTD: process parameter entities")
 	      >>>
 	      setParamString a_standalone ""
 	      >>>
diff --git a/src/Text/XML/HXT/Arrow/DocumentInput.hs b/src/Text/XML/HXT/Arrow/DocumentInput.hs
--- a/src/Text/XML/HXT/Arrow/DocumentInput.hs
+++ b/src/Text/XML/HXT/Arrow/DocumentInput.hs
@@ -53,6 +53,11 @@
 import Data.List
     ( isPrefixOf
     )
+
+import Data.Char
+    ( toLower
+    )
+
 import Data.Maybe
 
 -- ----------------------------------------------------------
@@ -139,40 +144,8 @@
       >>>
       addAttr transferStatus "200"
 
-{-
 getHttpContents		:: IOStateArrow s XmlTree XmlTree
 getHttpContents
-    = applyA ( ( getAttrValue transferURI
-		 &&&
-		 getParamString a_proxy
-	       )
-	       >>>
-	       applyA ( getParamInt 0 a_use_curl
-			>>>
-			ifP (==0)
-			  ( constA $ arrIO2 HTTP.getCont )		-- native http
-			  ( constA $
-			    ( getParamString a_options_curl &&& this )
-			    >>>
-			    arrIO3 CURL.getCont
-			  )
-		      )
-	       >>>
-	       ( arr addError
-		 |||
-		 arr addContent
-	       )
-	     )
-      where
-      addContent	:: (AssocList String String, String) -> IOStateArrow s XmlTree XmlTree
-      addContent (al, c)
-	  = replaceChildren (txt c)
-	    >>>
-	    seqA (map (uncurry addAttr) al)
--}
-
-getHttpContents		:: IOStateArrow s XmlTree XmlTree
-getHttpContents
     = getCont $<<<< ( getAttrValue transferURI
 		      &&&
 		      getOpt a_proxy
@@ -350,8 +323,13 @@
 decodeDocument
     = ( decodeArr $< getEncoding )
       `when`
-      isRoot
+      ( isRoot >>> isXmlOrHtmlDoc )
     where
+    isXmlOrHtmlDoc
+	= ( getAttrValue transferMimeType >>^ map toLower )
+	  >>>
+	  isA (\ t -> null t || isXmlMimeType t || isHtmlMimeType t)
+
     decodeArr	:: String -> IOStateArrow s XmlTree XmlTree
     decodeArr enc
 	= maybe notFound found . getDecodingFct $ enc
diff --git a/src/Text/XML/HXT/Arrow/Edit.hs b/src/Text/XML/HXT/Arrow/Edit.hs
--- a/src/Text/XML/HXT/Arrow/Edit.hs
+++ b/src/Text/XML/HXT/Arrow/Edit.hs
@@ -239,7 +239,7 @@
 
 -- |
 -- escape XmlText,
--- transform all special XML chars into char- or enitity- refs
+-- transform all special XML chars into char- or entity- refs
 
 type EntityRefTable	= M.Map Int String
 
diff --git a/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs b/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs
--- a/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs
+++ b/src/Text/XML/HXT/Arrow/GeneralEntitySubstitution.hs
@@ -89,7 +89,7 @@
 
 processGeneralEntities	:: IOStateArrow s XmlTree XmlTree
 processGeneralEntities
-    = ( traceMsg 1 "processGeneralEntities: collect and substitute general enities"
+    = ( traceMsg 1 "processGeneralEntities: collect and substitute general entities"
 	>>>
 	withOtherUserState emptyGeEnv (processChildren (processGeneralEntity ReferenceInContent []))
 	>>>
@@ -205,7 +205,7 @@
     substEntitiesInAttrDefaultValue	:: GEArrow XmlTree XmlTree
     substEntitiesInAttrDefaultValue
 	= applyA ( xshow ( getDTDAttrValue a_default			-- parse the default value
-			   >>>						-- substitute enities
+			   >>>						-- substitute entities
 			   mkText					-- and convert value into a string
 			   >>>
 			   parseXmlAttrValue "default value of attribute"
diff --git a/src/Text/XML/HXT/Arrow/ParserInterface.hs b/src/Text/XML/HXT/Arrow/ParserInterface.hs
--- a/src/Text/XML/HXT/Arrow/ParserInterface.hs
+++ b/src/Text/XML/HXT/Arrow/ParserInterface.hs
@@ -19,6 +19,7 @@
 import Text.XML.HXT.Arrow.DOMInterface
 import Text.XML.HXT.Arrow.XmlArrow
 
+import qualified Text.XML.HXT.Parser.TagSoup		 as TS
 import qualified Text.XML.HXT.Parser.HtmlParsec          as HP
 import qualified Text.XML.HXT.Parser.XmlParsec           as XP
 import qualified Text.XML.HXT.Parser.XmlDTDParser	 as DP
@@ -67,6 +68,10 @@
 
 parseHtmlContent		:: ArrowList a => a String XmlTree
 parseHtmlContent		= arrL  HP.parseHtmlContent
+
+parseHtmlTagSoup		:: ArrowList a => Bool -> Bool -> Bool -> Bool -> Bool -> a (String, String) XmlTree
+parseHtmlTagSoup withNamespaces withWarnings preserveCmt removeWS asHtml
+				= arr2L (TS.parseHtmlTagSoup withNamespaces withWarnings preserveCmt removeWS asHtml)
 
 -- ------------------------------------------------------------
 
diff --git a/src/Text/XML/HXT/Arrow/ProcessDocument.hs b/src/Text/XML/HXT/Arrow/ProcessDocument.hs
--- a/src/Text/XML/HXT/Arrow/ProcessDocument.hs
+++ b/src/Text/XML/HXT/Arrow/ProcessDocument.hs
@@ -38,6 +38,7 @@
 import Text.XML.HXT.Arrow.ParserInterface
     ( parseXmlDoc
     , parseHtmlDoc
+    , parseHtmlTagSoup
     , substHtmlEntityRefs
     , validateDoc
     , transformDoc
@@ -128,8 +129,8 @@
 
 -}
 
-parseHtmlDocument	:: Bool -> IOStateArrow s XmlTree XmlTree
-parseHtmlDocument warnings
+parseHtmlDocument	:: Bool -> Bool -> Bool -> Bool -> Bool -> Bool -> IOStateArrow s XmlTree XmlTree
+parseHtmlDocument withTagSoup withNamespaces warnings preserveCmt removeWhitespace asHtml
     = ( perform ( getAttrValue a_source >>> traceString 1 (("parseHtmlDoc: parse HTML document " ++) . show) )
 	>>>
 	replaceChildren ( ( getAttrValue a_source		-- get source name
@@ -137,18 +138,10 @@
 			    xshow getChildren
 			  ) 					-- get string to be parsed
 			  >>>
-			  parseHtmlDoc				-- run parser
-			  >>>
-			  substHtmlEntityRefs			-- substitute entity refs
+			  parseHtml
 			)
 	>>>
-	processTopDownWithAttrl ( if warnings			-- remove warnings inserted by parser and entity subst
-				  then filterErrorMsg
-				  else ( none
-					 `when`
-					 isError
-				       )
-				)
+	removeWarnings
 	>>>
 	setDocumentStatusFromSystemState "parse HTML document"
 	>>>
@@ -156,9 +149,37 @@
 	>>>
 	traceSource
 	>>>
-	perform ( getAttrValue a_source >>> traceString 1 (\ src -> "parse HTML document " ++ show src ++ " finished") )
+	perform ( getAttrValue a_source
+		  >>>
+		  traceString 1 (\ src -> "parse HTML document " ++ show src ++ " finished")
+		)
       )
       `when` documentStatusOk
+    where
+    parseHtml
+	| withTagSoup	= traceMsg 1 ("parse document with tagsoup " ++
+				      ( if asHtml then "HT" else "X" ) ++ "ML parser"
+				     )
+			  >>>
+			  parseHtmlTagSoup withNamespaces warnings preserveCmt removeWhitespace asHtml
+
+	| otherwise	= traceMsg 1 ("parse document with parsec HTML parser")
+			  >>>
+			  parseHtmlDoc				-- run parser
+			  >>>
+			  substHtmlEntityRefs			-- substitute entity refs
+    removeWarnings
+	| withTagSoup
+	  &&
+	  not warnings	= this
+	| otherwise	= processTopDownWithAttrl
+			  ( if warnings				-- remove warnings inserted by parser and entity subst
+			    then filterErrorMsg
+			    else ( none
+				   `when`
+				   isError
+				 )
+			  )
 
 -- ------------------------------------------------------------
 
diff --git a/src/Text/XML/HXT/Arrow/ReadDocument.hs b/src/Text/XML/HXT/Arrow/ReadDocument.hs
--- a/src/Text/XML/HXT/Arrow/ReadDocument.hs
+++ b/src/Text/XML/HXT/Arrow/ReadDocument.hs
@@ -52,6 +52,10 @@
     ( validateDocumentWithRelaxSchema
     )
 
+import Data.Char
+    ( toLower
+    )
+
 -- ------------------------------------------------------------
 
 {- |
@@ -63,6 +67,17 @@
 
 * 'a_parse_html': use HTML parser, else use XML parser (default)
 
+- 'a_tagsoup' : use light weight and lasy parser based on tagsoup lib
+
+- 'a_parse_by_mimetype' : select the parser by the mime type of the document
+                          (pulled out of the HTTP header). When the mime type is set to \"text\/html\"
+			  the HTML parser (parsec or tagsoup) is taken, when it\'s set to
+			  \"text\/xml\" or \"text\/xhtml\" the XML parser (parsec or tagsoup) is taken.
+			  If the mime type is something else no further processing is performed,
+			  the contents is given back to the application in form of a single text node.
+			  If the default document encoding ('a_encoding') is set to isoLatin1, this even enables processing
+			  of arbitray binary data.
+
 - 'a_validate' : validate document againsd DTD (default), else skip validation
 
 - 'a_relax_schema' : validate document with Relax NG, the options value is the schema URI
@@ -112,9 +127,11 @@
 
 > readDocument [ (a_parse_html, "1")
 >              , (a_encoding, isoLatin1)
+>              , (a_tagsoup,    "1")
 >              ] ""
 
-reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is 'isoLatin1'
+reads a HTML document from standard input, no validation is done when parsing HTML, default encoding is 'isoLatin1',
+parsing is done with tagsoup parser
 
 > readDocument [ (a_parse_html,     "1")
 >              , (a_proxy,          "www-cache:3128")
@@ -143,15 +160,7 @@
       >>>
       getDocumentContents remainingOptions src
       >>>
-      parse
-      >>>
-      checknamespaces
-      >>>
-      canonicalize
-      >>>
-      whitespace
-      >>>
-      relax
+      ( processDoc $< getMimeType )
       >>>
       traceMsg 1 ("readDocument: " ++ show src ++ " processed")
       >>>
@@ -159,65 +168,19 @@
       >>>
       traceTree
     where
-    parse
-	| validateWithRelax		= parseXmlDocument False		-- for Relax NG use XML parser without validation
-
-	| hasOption a_parse_html	= parseHtmlDocument			-- parse as HTML
-					  (hasOption a_issue_warnings)
-
-	| otherwise			= parseXmlDocument
-					  (hasOption a_validate)		-- parse as XML
-
-    checknamespaces
-	| hasOption a_check_namespaces
-	  ||
-	  validateWithRelax		= propagateAndValidateNamespaces
-	| otherwise			= this
-
-    canonicalize
-	| validateWithRelax		= canonicalizeAllNodes
-	| hasOption a_canonicalize
-	  &&
-	  hasOption a_preserve_comment	= canonicalizeForXPath
-	| hasOption a_canonicalize	= canonicalizeAllNodes
-	| otherwise			= this
-
-    relax
-	| validateWithRelax		= validateDocumentWithRelaxSchema remainingOptions relaxSchema
-	| otherwise			= this
-
-    whitespace
-	| hasOption a_remove_whitespace	= removeDocWhiteSpace
-	| otherwise			= this
-
-    addInputOptionsToSystemState
-	= addSysOptions (filter ((`elem` httpOptions) . fst) remainingOptions)
-	  where
-	  addSysOptions
-	      = seqA . map (uncurry setParamString)
-
-    traceLevel
-	= maybe this (setTraceLevel . read) . lookup a_trace $ options
-
-    validateWithRelax
-	= hasEntry a_relax_schema options
-
-    relaxSchema
-	= lookup1 a_relax_schema options
-
-    hasOption n
-	= optionIsSet n options
-
-    options = addEntries userOptions defaultOptions
+    options
+ 	= addEntries userOptions defaultOptions
 
     defaultOptions
 	= [ ( a_parse_html,		v_0 )
+	  , ( a_tagsoup,		v_0 )
 	  , ( a_validate,		v_1 )
 	  , ( a_issue_warnings,		v_1 )
 	  , ( a_check_namespaces,	v_0 )
 	  , ( a_canonicalize,		v_1 )
 	  , ( a_preserve_comment,	v_0 )
 	  , ( a_remove_whitespace,	v_0 )
+	  , ( a_parse_by_mimetype,	v_0 )
 	  ]
 
     httpOptions
@@ -225,6 +188,94 @@
 
     remainingOptions
 	 = filter (not . flip hasEntry defaultOptions . fst) options
+
+    traceLevel
+	= maybe this (setTraceLevel . read) . lookup a_trace $ options
+
+    addInputOptionsToSystemState
+	= addSysOptions (filter ((`elem` httpOptions) . fst) remainingOptions)
+	  where
+	  addSysOptions
+	      = seqA . map (uncurry setParamString)
+
+    getMimeType
+	= getAttrValue transferMimeType >>^ map toLower
+
+    processDoc mimeType
+	= traceMsg 1 ("readDocument: " ++ show src ++ " (mime type: " ++ show mimeType ++ ") will be processed")
+	  >>>
+	  parse
+	  >>>
+	  ( if isXmlOrHtml
+	    then ( checknamespaces
+		   >>>
+		   canonicalize
+		   >>>
+		   whitespace
+		   >>>
+		   relax
+		 )
+	    else this
+	  )
+	where
+	parse
+	    | isHtml
+	      || 
+	      withTagSoup		= parseHtmlDocument			-- parse as HTML or with tagsoup XML
+					  withNamespaces
+					  withTagSoup
+					  issueW
+					  (not (hasOption a_canonicalize) && preserveCmt)
+					  removeWS
+					  isHtml
+	    | validateWithRelax		= parseXmlDocument False		-- for Relax NG use XML parser without validation
+	    | isXml			= parseXmlDocument validate		-- parse as XML
+	    | otherwise			= this					-- don't parse, mime type is not XML nor HTML
+	checknamespaces
+	    | (withNamespaces && not withTagSoup)
+	      ||
+	      validateWithRelax		= propagateAndValidateNamespaces
+	    | otherwise			= this
+	canonicalize
+	    | withTagSoup		= this					-- tagsoup already removes redundant struff
+	    | validateWithRelax		= canonicalizeAllNodes
+	    | hasOption a_canonicalize
+	      &&
+	      preserveCmt			= canonicalizeForXPath
+	    | hasOption a_canonicalize	= canonicalizeAllNodes
+	    | otherwise			= this
+	relax
+	    | validateWithRelax		= validateDocumentWithRelaxSchema remainingOptions relaxSchema
+	    | otherwise			= this
+	whitespace
+	    | removeWS
+	      &&
+	      not withTagSoup		= removeDocWhiteSpace			-- tagsoup already removes whitespace
+	    | otherwise			= this
+	validateWithRelax	= hasEntry a_relax_schema options
+	relaxSchema		= lookup1 a_relax_schema options
+	parseHtml		= hasOption a_parse_html
+	parseXml		= hasOption a_parse_xml
+	isHtml			= parseHtml				-- force HTML
+				  ||
+				  mimeTypeIsHtml
+	isXml			= parseXml				-- force XML parsing
+				  ||
+				  ( not parseHtml
+				    &&
+				    ( mimeTypeIsXml || null mimeType )	-- mime type is XML or not there
+				  )
+	isXmlOrHtml	= isHtml || isXml
+	parseByMimeType	= hasOption a_parse_by_mimetype
+	validate	= hasOption a_validate
+	withNamespaces	= hasOption a_check_namespaces
+	withTagSoup	= hasOption a_tagsoup
+	issueW		= hasOption a_issue_warnings
+	removeWS	= hasOption a_remove_whitespace
+	preserveCmt	= hasOption a_preserve_comment
+	mimeTypeIsHtml	= parseByMimeType && isHtmlMimeType mimeType
+	mimeTypeIsXml	= parseByMimeType && isXmlMimeType  mimeType
+	hasOption n	= optionIsSet n options
 
 -- ------------------------------------------------------------
 
diff --git a/src/Text/XML/HXT/Arrow/WriteDocument.hs b/src/Text/XML/HXT/Arrow/WriteDocument.hs
--- a/src/Text/XML/HXT/Arrow/WriteDocument.hs
+++ b/src/Text/XML/HXT/Arrow/WriteDocument.hs
@@ -19,6 +19,7 @@
 module Text.XML.HXT.Arrow.WriteDocument
     ( writeDocument
     , writeDocumentToString
+    , prepareContents
     )
 where
 
@@ -147,6 +148,9 @@
       xshow getChildren
 
 -- ------------------------------------------------------------
+
+-- |
+-- indent and format output
 
 prepareContents	:: Attributes -> IOStateArrow s XmlTree XmlTree
 prepareContents userOptions
diff --git a/src/Text/XML/HXT/Arrow/XPath.hs b/src/Text/XML/HXT/Arrow/XPath.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/XML/HXT/Arrow/XPath.hs
@@ -0,0 +1,282 @@
+-- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.Arrow.XPath
+   Copyright  : Copyright (C) 2006 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : experimental
+   Portability: portable
+
+   Arrows for working with XPath and XmlNodeSets.
+
+   Most of the XPath arrows come in two versions,
+   one without dealing with namespaces, element and attribute names
+   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
+
+   The second variant uses a namespace environment for associating the right
+   namespace for the appropriate prefix. an entry for the empty prefix
+   defines the default namespace for the expression.
+
+   The second variant should be used, when in the application namespaces
+   are significant, that means when namespace propagation is done for
+   the documents to be processed.
+
+   NodeSets are sets of \"pointer\" into an XML tree to reference
+   subnodes. These nodesets can be computed by XPath expressions or
+   normal arrows. The nodesets can then be used later for selecting
+   or modifying subtrees of this tree in an efficient way.
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.Arrow.XPath
+    ( getXPathTreesInDoc
+    , getXPathTreesInDocWithNsEnv
+    , getXPathTrees
+    , getXPathTreesWithNsEnv
+    , getElemNodeSet
+    , getElemAndAttrNodeSet
+    , getXPathNodeSet
+    , getFromNodeSet
+    , processXPathTrees
+    , processXPathTreesWithNsEnv
+    , processFromNodeSet
+    )
+where
+
+import qualified Text.XML.HXT.XPath as PT
+    ( getXPathSubTreesWithNsEnv
+    , getXPathNodeSetWithNsEnv
+    )
+
+import Control.Arrow.ListArrows
+
+import Text.XML.HXT.Arrow.DOMInterface
+import Text.XML.HXT.Arrow.XmlArrow
+
+import Text.XML.HXT.Arrow.Edit
+    ( canonicalizeForXPath
+    )
+
+-- ------------------------------------------------------------
+
+-- |
+-- Select parts of a whole XML document with root node by a XPath expression.
+--
+-- The main filter for selecting parts of a document via XPath.
+--
+-- The string argument must be a XPath expression with an absolute location path,
+-- the argument tree must be a complete document tree.
+--
+-- Before evaluating the xpath query, the document is canonicalized
+-- with 'Text.XML.HXT.Arrow.Edit.canonicalizeForXPath'
+--
+-- Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+-- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+-- are convertet to text nodes.
+
+getXPathTreesInDoc			:: ArrowXml a => String -> a XmlTree XmlTree
+getXPathTreesInDoc			= getXPathTreesInDocWithNsEnv []
+
+-- | Same as 'getXPathTreesInDoc' but with namespace environment for the XPath names
+
+getXPathTreesInDocWithNsEnv		:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+getXPathTreesInDocWithNsEnv env query	= canonicalizeForXPath
+					  >>>
+					  arrL (PT.getXPathSubTreesWithNsEnv env query)
+
+-- |
+-- Select parts of an arbitrary XML tree by a XPath expression.
+--
+-- The main filter for selecting parts of an arbitrary XML tree via XPath.
+-- The string argument must be a XPath expression with an absolute location path,
+-- There are no restrictions on the argument tree.
+--
+-- No canonicalization is performed before evaluating the query
+--
+-- Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
+-- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
+-- are convertet to text nodes.
+
+getXPathTrees				:: ArrowXml a => String -> a XmlTree XmlTree
+getXPathTrees				= getXPathTreesWithNsEnv []
+
+-- | Same as 'getXPathTrees' but with namespace environment for the XPath names
+
+getXPathTreesWithNsEnv			:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+getXPathTreesWithNsEnv env query	= arrL (PT.getXPathSubTreesWithNsEnv env query)
+
+-- | Select a set of nodes via an XPath expression from an arbitray XML tree
+--
+-- The result is a set of \"pointers\" to nodes. This set can be used to
+-- access or modify the values of the subnodes in subsequent calls to 'getFromNodeSet' or 'processFromNodeSet'.
+--
+-- This function enables for parsing an XPath expressions and traversing the tree for node selection once
+-- and reuse this result possibly many times for later selection and modification operations.
+
+getXPathNodeSet				:: ArrowXml a => String -> a XmlTree XmlNodeSet
+getXPathNodeSet				= getXPathNodeSetWithNsEnv []
+
+-- | Same as 'getXPathNodeSet' but with namespace environment for the XPath names
+
+getXPathNodeSetWithNsEnv		:: ArrowXml a => NsEnv -> String -> a XmlTree XmlNodeSet
+getXPathNodeSetWithNsEnv nsEnv query	= arr (PT.getXPathNodeSetWithNsEnv nsEnv query)
+
+-- ------------------------------------------------------------
+
+getNodeSet	:: ArrowXml a => a XmlTree QName -> a XmlTree XmlTree -> a XmlTree XmlNodeSet
+getNodeSet af f
+    = ( ( listA ( getChildren
+		  >>>
+		  getNodeSet af f
+		)
+	  >>>
+	  arr filterNodeSet
+	)
+	&&&
+	listA af
+	&&&
+	listA f
+      )
+      >>^ (\ ~(cl, (al, n)) -> XNS (not . null $ n) al cl)
+    where
+    filterNodeSet	:: [XmlNodeSet] -> ChildNodes
+    filterNodeSet
+	= concat . zipWith filterIx [0..]
+
+    filterIx	:: Int -> XmlNodeSet -> ChildNodes
+    filterIx _ix (XNS False [] [])
+	= []
+    filterIx ix ps
+	= [(ix, ps)]
+
+-- |
+-- compute a node set from a tree, containing all nodes selected by the predicate arrow
+--
+-- computation of the set of element nodes with name \"a\" is done with
+--
+-- > getElemNodeSet (hasName "a")
+
+getElemNodeSet		:: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
+getElemNodeSet f
+    = getNodeSet none f
+
+-- |
+-- compute a node set from a tree, containing all nodes including attribute nodes
+-- elected by the predicate arrow
+
+getElemAndAttrNodeSet	:: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
+getElemAndAttrNodeSet f
+    = getNodeSet ( getAttrl
+		   >>>
+		   ( f `guards` getAttrName )
+		 ) f
+
+-- ------------------------------------------------------------
+
+-- |
+-- select all subtrees specified by a previously computed node set
+--
+-- the following law holds:
+--
+-- > getFromNodeSet $< getElemNodeSet f == multi f
+
+getFromNodeSet		:: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
+getFromNodeSet (XNS t al cl)
+    = fromLA $
+      ( if t then this else none )
+      <+>
+      ( getAttrl >>> getFromAttrl al )
+      <+>
+      ( getFromChildren (0-1) cl $< listA getChildren )
+    where
+
+    getFromAttrl	:: [QName] -> LA XmlTree XmlTree
+    getFromAttrl l
+	= ( catA . map hasQName $ l)
+	  `guards`
+	  this
+
+    getFromChildren	:: Int -> ChildNodes -> XmlTrees -> LA XmlTree XmlTree
+    getFromChildren _ [] _
+	= none
+
+    getFromChildren i' ((i, sp) : sps) ts
+	= ( arrL (const t') >>> getFromNodeSet sp )
+	  <+>
+	  getFromChildren i sps ts'
+	  where
+	  (t', ts') = splitAt 1 . drop (i-i'-1) $ ts
+
+-- ------------------------------------------------------------
+
+-- |
+-- process all subtrees selected by an XPath expression
+--
+-- the following law holds:
+--
+-- > processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
+
+
+processXPathTrees		:: ArrowXml a => a XmlTree XmlTree  -> String -> a XmlTree XmlTree
+processXPathTrees f		= processXPathTreesWithNsEnv f []
+
+-- | Same as 'processXPathTrees' but with namespace environment for the XPath names
+
+processXPathTreesWithNsEnv	:: ArrowXml a => a XmlTree XmlTree  -> NsEnv -> String -> a XmlTree XmlTree
+processXPathTreesWithNsEnv f nsEnv query
+    = processFromNodeSet f $< getXPathNodeSetWithNsEnv nsEnv query
+
+-- |
+-- process all subtrees specified by a previously computed node set in bottom up manner
+--
+-- the follwoing law holds:
+--
+-- > processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
+--
+-- when attributes are contained in the node set (see 'getElemAndAttrNodeSet'), these are processed
+-- after the children and before the node itself
+--
+-- the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
+-- from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
+
+processFromNodeSet	:: ArrowXml a => a XmlTree XmlTree  -> XmlNodeSet -> a XmlTree XmlTree
+processFromNodeSet f (XNS t al cl)
+    = ( if null cl
+	then this
+	else replaceChildren ( processC (0-1) cl $< listA getChildren )
+      )
+      >>>
+      ( if null al
+	then this
+	else processAttrl (processA al)
+      )
+      >>>
+      ( if not t
+	then this
+	else f
+      )
+    where
+
+    -- processA		:: ChildNodes -> a XmlTree XmlTree
+    processA l
+	= f `when` ( catA . map hasQName $ l)
+
+    -- processC		:: ChildNodes -> XmlTrees -> a XmlTree XmlTree
+    processC _ [] ts
+	= arrL (const ts)
+
+    processC i' ((i, sp) : sps) ts
+	= arrL (const ts1)
+	  <+>
+	  ( arrL (const ti) >>> processFromNodeSet f sp)
+	  <+>
+	  processC i sps ts21
+	  where
+	  (ts1, ts2) = splitAt (i-i'-1) ts
+	  (ti, ts21) = splitAt 1 ts2
+
+-- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/Arrow/XPathSimple.hs b/src/Text/XML/HXT/Arrow/XPathSimple.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/XML/HXT/Arrow/XPathSimple.hs
@@ -0,0 +1,511 @@
+-- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.XPath.GetSimpleXPath
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : experimental
+   Portability: portable
+
+   XPath selection for simple XPath expressions with list arrows
+   instead of navigatable trees.
+
+   It is recomended, that this module is imported qualified,
+   e.g like @Text.XML.HXT.Arrow.XPathSimple as XS@.
+
+   The arrows defined in this module have the same
+   functionality as the functions in 'Text.XML.HXT.Arrow.XPath'.
+
+   The computation modell in XPath is a navigatable tree,
+   that means a tree wicht can be traveresed in arbitrary directions,
+   not only from the root to the leafs. Sometimes this modell
+   leads to inefficent XPath processing for simple queries, which
+   only need a top down tree traversal.
+
+   When evaluating an XPath expression with these functions, first an attempt is made
+   to map the XPath expression to a pure arrow. If this is possible
+   due to the siplicity of the XPath expressions, the result is computed
+   directly, else the query is processed by the corresponding
+   function in 'Text.XML.HXT.Arrow.XPath'.
+
+   The simple evaluation is possible, when in the XPath expression
+   only the top down axis (self, child, descendant, descendant or self are used,
+   when no builtin functions concerning the position of a node are used,
+   and no comparison of nodes e.g. in node set union is required.
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.Arrow.XPathSimple
+where
+
+import Control.Monad
+import Control.Arrow.ListArrows
+
+import Data.Maybe
+
+import Text.ParserCombinators.Parsec
+    ( runParser )
+
+import Text.XML.HXT.Arrow.DOMInterface
+import Text.XML.HXT.Arrow.XmlArrow
+
+import qualified Text.XML.HXT.Arrow.XPath as XP
+    ( getXPathTreesWithNsEnv
+    )
+
+import Text.XML.HXT.Arrow.Edit
+    ( canonicalizeForXPath
+    )
+
+import Text.XML.HXT.XPath.XPathDataTypes
+    ( XPNumber (..)
+    , Expr (..)
+    , Op (..)
+    , XPathNode (..)
+    , LocationPath (..)
+    , Path (..)
+    , XStep (..)
+    , AxisSpec (..)
+    , NodeTest (..)
+    , XPathValue (..)
+    )
+
+import Text.XML.HXT.XPath.XPathParser
+    ( parseXPath
+    , parseNumber
+    )
+
+-- ----------------------------------------
+
+-- |
+-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDoc'
+
+getXPathTreesInDoc			:: ArrowXml a => String -> a XmlTree XmlTree
+getXPathTreesInDoc			= getXPathTreesInDocWithNsEnv []
+
+-- |
+-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesInDocWithNsEnv'
+
+getXPathTreesInDocWithNsEnv		:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+getXPathTreesInDocWithNsEnv env query	= canonicalizeForXPath
+					  >>>
+					  tryGetXPath env query
+-- |
+-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTrees'
+
+getXPathTrees				:: ArrowXml a => String -> a XmlTree XmlTree
+getXPathTrees				= getXPathTreesWithNsEnv []
+
+-- |
+-- Same Functionality as 'Text.XML.HXT.Arrow.XPath.getXPathTreesWithNsEnv'
+
+getXPathTreesWithNsEnv			:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+getXPathTreesWithNsEnv			= tryGetXPath
+
+
+tryGetXPath				:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+tryGetXPath env query			= ( listA (getXPathTreesWithNsEnvSimple env query)
+					    &&&
+					    listA (   XP.getXPathTreesWithNsEnv env query)
+					  )
+                                          >>>
+					  ifA (arr fst >>> (unlistA >>. take 1) >>> isError)
+					      (arr snd >>> unlistA)
+					      (arr fst >>> unlistA)
+
+-- |
+-- The xpath interpreter for simple xpath expressions.
+--
+-- In case of a too complicated or illegal xpath expression an error
+-- node is returned, else the list of selected XML trees
+
+getXPathTreesWithNsEnvSimple		:: ArrowXml a => NsEnv -> String -> a XmlTree XmlTree
+getXPathTreesWithNsEnvSimple env s	= fromLA $ getXP env s
+
+-- ----------------------------------------
+
+getXP			:: NsEnv -> String -> LA XmlTree XmlTree
+getXP env s		= either (err
+				  .
+				  (("Syntax error in XPath expression " ++ show s ++ ": ") ++)
+				  .
+				  show . show
+				 ) (fromMaybe (err ( "XPath expression " ++ show s ++
+						     " too complicated for simple arrow evaluation"
+						   )
+					      ) . compXPath
+				   )
+			  .
+			  runParser parseXPath env ""
+			  $ s
+
+-- ----------------------------------------
+
+type XPArrow b c		= Maybe (LA b c)
+
+mk				:: LA b c -> XPArrow b c
+mk				= Just
+
+unwrap				:: XPArrow b b -> LA b b
+unwrap				= fromJust . toThis
+
+(>>>>)				:: XPArrow b b -> XPArrow b b -> XPArrow b b
+Nothing   >>>> a2		= a2
+a1        >>>> Nothing		= a1
+(Just f1) >>>> (Just f2)	= return $ f1 >>> f2
+
+(&&&&)				:: XPArrow b b -> XPArrow b b -> XPArrow b (b, b)
+Nothing   &&&& a2		= this'' &&&& a2
+a1        &&&& Nothing		= a1     &&&& this''
+(Just f1) &&&& (Just f2)	= return $ f1 &&& f2
+
+(<+>>)				:: XPArrow b b -> XPArrow b b -> XPArrow b b
+Nothing   <+>> _a2		= Nothing
+_a1       <+>> Nothing		= Nothing
+(Just f1) <+>> (Just f2)	= return $ f1 <+> f2
+
+guards'				:: XPArrow b b -> XPArrow b b -> XPArrow b b
+Nothing   `guards'` a2		= a2
+a1        `guards'` Nothing	= a1 `guards'` this''
+(Just f1) `guards'` (Just f2)	= return $ f1 `guards` f2
+
+this'				:: XPArrow b b
+this'				= Nothing
+
+this''				:: XPArrow b b
+this''				= mk this
+
+toThis				:: XPArrow b b -> XPArrow b b
+toThis Nothing			= this''
+toThis a			= a
+
+getChildren'			:: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
+getChildren' a			= mk getChildren >>>> a
+
+getAttrl'			:: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
+getAttrl' a			= mk getAttrl >>>> a
+
+multi'				:: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
+multi' a			= mk $ multi (unwrap a)
+
+deep'				:: XPArrow XmlTree XmlTree -> XPArrow XmlTree XmlTree
+deep' a				= mk $ deep (unwrap a)
+
+xIndex				:: Int -> LA [b] b
+xIndex i
+    | i <= 0			= none
+    | otherwise			= arrL (take 1 . drop (i-1))
+
+xString				:: XPArrow XmlTree XmlTree -> LA XmlTree String
+xString a			= unwrap a >>> xshow (deep isText)
+
+xNumber'			:: XPArrow XmlTree XmlTree -> LA XmlTree XPNumber
+xNumber' a			=  xString a >>> arr toNumber
+
+-- ------------------------------
+
+deadEndStreet			:: Monad m => m a
+deadEndStreet			= fail "XPath expression too complicated for XmlArrows"
+
+compXPath			:: MonadPlus m => Expr -> m (LA XmlTree XmlTree)
+compXPath e			= do
+				  r <- compXP e
+				  return $ unwrap r
+
+compXP				:: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
+compXP (PathExpr Nothing (Just (LocPath Abs lp)))
+				= compLP lp this'
+compXP (FilterExpr (e1:el))	= do
+				  r <- compXP e1
+				  compFP el r
+compXP _			= deadEndStreet
+
+compFP				:: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
+compFP []      r		= return r
+compFP (e1:es) r		= do
+				  r1 <- compPred [e1] r
+				  compFP es r1
+
+compLP				:: MonadPlus m => [XStep] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
+compLP []     r			= return r
+compLP (x:xs) r			= do
+				  a1 <- compXS x r
+				  as <- compLP xs a1
+				  return as
+
+compXS				:: MonadPlus m => XStep -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
+compXS (Step Child nt ps) s	= do
+				  an <- compNTE nt
+				  compPred ps (s >>>> mk getChildren >>>> an)
+
+compXS (Step DescendantOrSelf nt ps) s
+				= do
+				  an <- compNTE nt
+				  compPred ps (s >>>> multi' an)
+
+compXS (Step Descendant nt ps) s
+				= do
+				  an <- compNTE nt
+				  compPred ps (s >>>> mk getChildren >>>> multi' an)
+
+compXS (Step Self nt ps) s
+				= do
+				  an <- compNTE nt
+				  compPred ps (s >>>> an)
+compXS (Step Attribute nt ps) s
+				= do
+				  an <- compNTA nt
+				  compPred ps (s >>>> getAttrl' an)
+
+compXS _ _			= deadEndStreet
+
+compNTE				:: (Monad m) => NodeTest -> m (XPArrow XmlTree XmlTree)
+compNTE (NameTest qn)		= compNameT isElem qn
+compNTE nt			= compNT nt
+
+compNTA				:: (Monad m) => NodeTest -> m (XPArrow XmlTree XmlTree)
+compNTA (NameTest qn)		= compNameT isAttr qn
+compNTA nt			= compNT nt
+
+compNameT			:: Monad m => LA XmlTree XmlTree -> QName -> m (XPArrow XmlTree XmlTree)
+compNameT ist qn
+    | null (namespaceUri qn)	= return $ mk
+				  ( if qualifiedName qn == "*"
+				    then ist
+				    else ist >>> hasName (qualifiedName qn)
+				  )
+    | otherwise			= return $ mk
+				  ( if localPart qn == "*"
+				    then ist >>> hasNamespaceUri (namespaceUri qn)
+				    else ist >>> hasQName qn
+
+				  )
+
+compNT				:: Monad m => NodeTest -> m (XPArrow XmlTree XmlTree)
+compNT (TypeTest XPNode)       	= return this'
+compNT (TypeTest XPCommentNode)	= return $ mk isCmt
+compNT (TypeTest XPPINode)      = return $ mk isPi
+compNT (TypeTest XPTextNode)    = return $ mk isText
+
+compNT _			= deadEndStreet
+
+compPred			:: MonadPlus m => [Expr] -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
+compPred []     r		= return r
+compPred (e:es)	r		= do
+				  r1 <- compPred1 e r
+				  compPred es r1
+
+compPred1			:: MonadPlus m => Expr -> XPArrow XmlTree XmlTree -> m (XPArrow XmlTree XmlTree)
+compPred1 e r			= ( do
+				    ix <- compIntExpr e
+				    return . mk $ listA (unwrap r) >>> xIndex ix
+				  )
+				  `mplus`
+				  ( do
+				    a1 <- compRelPathExpr e
+				    return $ r >>>> (a1 `guards'` this')
+				  )
+				  `mplus`
+				  ( do
+				    a1 <- compGenExpr e
+				    return $ r >>>> (a1 `guards'` this')
+				  )
+				  `mplus`
+				  ( do
+				    b1 <- compBoolExpr e
+				    return $ if b1 then r else mk none
+				  )
+
+compRelPathExpr			:: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
+compRelPathExpr (PathExpr Nothing (Just (LocPath Rel lp)))
+				= compLP lp this'
+compRelPathExpr _		= deadEndStreet
+
+compStringExpr			:: MonadPlus m => Expr -> m String
+compStringExpr (LiteralExpr s)	= return s
+compStringExpr _		= deadEndStreet
+
+compNumberExpr			:: MonadPlus m => Expr -> m XPNumber
+compNumberExpr (NumberExpr n)	= return n
+compNumberExpr (FctExpr "number" [f1])
+				= ( do
+				    b <- compBoolExpr f1
+				    return $ if b then (Float 1) else Pos0
+				  )
+				  `mplus`
+				  ( do
+				    s <- compStringExpr f1
+				    return $ toNumber s
+				  )
+compNumberExpr _		= deadEndStreet
+
+compIntExpr			:: MonadPlus m => Expr -> m Int
+compIntExpr e			= ( do
+				    (Float f) <- compNumberExpr e
+				    return (round f)
+				  )
+				  `mplus`
+				  deadEndStreet
+
+
+compBoolExpr			:: MonadPlus m => Expr -> m Bool
+compBoolExpr (FctExpr f [])
+    | f `elem` ["true", "false"]
+				= return $ f == "true"
+compBoolExpr (FctExpr "not" [f1])
+				= do
+				  v1 <- compBoolExpr f1
+				  return $ not v1
+compBoolExpr (LiteralExpr s)	= return $ not (null s)
+compBoolExpr (NumberExpr n)	= return $ nz n
+				  where
+				  nz (Float f) = f /= 0
+				  nz NegInf    = True
+				  nz PosInf    = True
+				  nz _         = False
+compBoolExpr _			= deadEndStreet
+
+compGenExpr			:: MonadPlus m => Expr -> m (XPArrow XmlTree XmlTree)
+compGenExpr (GenExpr op [e1,e2])
+				= compString op e1 e2		-- on arg is a string expr
+				  `mplus`
+				  compNumber op e1 e2		-- one arg is a number expr
+				  `mplus`
+				  compBool   op e1 e2		-- and/or
+				  `mplus`
+				  compPath   op e1 e2		-- nodeset equality
+
+compGenExpr (GenExpr op (e1:el))
+    | op `elem` [And, Or]	= compGenExpr (GenExpr op [e1, GenExpr op el])
+
+compGenExpr _			= deadEndStreet
+
+compString			:: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
+compString op e1 e2
+    | op `elem` [Eq, NEq]	= ( do
+				    s <- compStringExpr  e2
+				    a <- compRelPathExpr e1
+				    return $ mkEq' a s
+				  )
+				  `mplus`
+				  ( do
+				    s <- compStringExpr  e1
+				    a <- compRelPathExpr e2
+				    return $ mkEq' a s
+				  )
+				  where
+				  mkEq' a' s' = mk ( ( xString a'
+							>>>
+							isA ( if op == Eq
+							      then (== s')
+							      else (/= s')
+							    )
+						      )
+						      `guards` this	-- just for type match
+						    )
+compString _ _ _		= deadEndStreet
+
+compNumber			:: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
+compNumber op e1 e2
+    | op `elem` [Eq, NEq, Less, Greater, LessEq, GreaterEq]
+				= ( do
+				    n <- compNumberExpr  e2
+				    a <- compRelPathExpr e1
+				    return $ mkEq' a n
+				  )
+				  `mplus`
+				  ( do
+				    n <- compNumberExpr  e1
+				    a <- compRelPathExpr e2
+				    return $ mkEq' a n
+				  )
+				  where
+				  mkEq' a' n' = mk ( ( xNumber' a'
+							>>>
+							isA (flip ( case op of
+								    Eq        -> (==)
+								    NEq       -> (/=)
+								    Less      -> (<)
+								    Greater   -> (>)
+								    LessEq    -> (<=)
+								    GreaterEq -> (>=)
+								    _         -> error "compNumber: wrong arg"
+								  ) n'
+							    )
+						      )
+						      `guards` this
+						    )
+compNumber _ _ _		= deadEndStreet
+
+compBool			:: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
+compBool And e1 e2		= ( do
+				    b <- compBoolExpr e1
+				    if b
+				       then compGenExpr e2
+				       else return $ mk none
+				  )
+				  `mplus`
+				  ( do
+				    b <- compBoolExpr e2
+				    if b
+				       then compGenExpr e1
+				       else return $ mk none
+				  )
+				  `mplus`
+				  ( do
+				    a1 <- compGenExpr e1
+				    a2 <- compGenExpr e2
+				    return $ a1 `guards'` a2
+				  )
+compBool Or e1 e2		= ( do
+				    b <- compBoolExpr e1
+				    if b
+                                       then return this'
+				       else compGenExpr e2
+				  )
+				  `mplus`
+				  ( do
+				    b <- compBoolExpr e2
+				    if b
+                                       then return this'
+				       else compGenExpr e1
+				  )
+				  `mplus`
+				  ( do
+				    a1 <- compGenExpr e1
+				    a2 <- compGenExpr e2
+				    return $ a1 <+>> a2
+				  )
+compBool _ _ _			= deadEndStreet
+
+compPath			:: MonadPlus m => Op -> Expr -> Expr -> m (XPArrow XmlTree XmlTree)
+compPath op e1 e2
+    | op `elem` [Eq, NEq]	= ( do
+				    a1 <- compRelPathExpr e2
+				    a2 <- compRelPathExpr e1
+				    return $ mk . cmp op $ ( ( listA (xString a1) &&& listA (xString a2))
+							      >>>
+							      eqs
+							    )
+				  )
+				  where
+				  eqs		= arr2L equalNodeSet
+				  cmp Eq  a	= a `guards` this
+				  cmp NEq a	= ifA a none this
+				  cmp _ _	= error "compPath: wrong agruments"
+
+compPath _ _ _			= deadEndStreet
+
+-- ----------------------------------------
+
+toNumber		:: String -> XPNumber
+toNumber s		= let ( XPVNumber v) = parseNumber s in v
+
+equalNodeSet		:: Eq a => [a] -> [a] -> [a]
+equalNodeSet s1 s2	= [ x | x <- s1, y <- s2, x == y]
+
+-- ----------------------------------------
diff --git a/src/Text/XML/HXT/Arrow/XmlNodeSet.hs b/src/Text/XML/HXT/Arrow/XmlNodeSet.hs
deleted file mode 100644
--- a/src/Text/XML/HXT/Arrow/XmlNodeSet.hs
+++ /dev/null
@@ -1,278 +0,0 @@
--- ------------------------------------------------------------
-
-{- |
-   Module     : Text.XML.HXT.Arrow.XmlNodeSet
-   Copyright  : Copyright (C) 2006 Uwe Schmidt
-   License    : MIT
-
-   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
-   Stability  : experimental
-   Portability: portable
-   Version    : $Id: XmlNodeSet.hs,v 1.5 2006/11/12 14:52:59 hxml Exp $
-
-   Arrows for working with XPath and XmlNodeSets.
-
-   Most of the XPath arrows come in two versions,
-   one without dealing with namespaces, element and attribute names
-   in XPath expressions are taken as they ar ignoring any prefix:localname structure.
-
-   The second variant uses a namespace environment for associating the right
-   namespace for the appropriate prefix. an entry for the empty prefix
-   defines the default namespace for the expression.
-
-   The second variant should be used, when in the application namespaces
-   are significant, that means when namespace propagation is done for
-   the documents to be processed.
-
-   NodeSets are sets of \"pointer\" into an XML tree to reference
-   subnodes. These nodesets can be computed by XPath expressions or
-   normal arrows. The nodesets can then be used later for selecting
-   or modifying subtrees of this tree in an efficient way.
-
--}
-
--- ------------------------------------------------------------
-
-module Text.XML.HXT.Arrow.XmlNodeSet
-    ( getXPathTreesInDoc
-    , getXPathTreesInDocWithNsEnv
-    , getXPathTrees
-    , getXPathTreesWithNsEnv
-    , getElemNodeSet
-    , getElemAndAttrNodeSet
-    , getXPathNodeSet
-    , getFromNodeSet
-    , processXPathTrees
-    , processXPathTreesWithNsEnv
-    , processFromNodeSet
-    )
-where
-
-import qualified Text.XML.HXT.XPath as PT
-    ( getXPathWithNsEnv
-    , getXPathSubTreesWithNsEnv
-    , getXPathNodeSetWithNsEnv
-    )
-
-import Control.Arrow.ListArrows
-
-import Text.XML.HXT.Arrow.DOMInterface
-import Text.XML.HXT.Arrow.XmlArrow
-
--- ------------------------------------------------------------
-
--- |
--- Select parts of a whole XML document with root node by a XPath expression.
---
--- The main filter for selecting parts of a document via XPath.
---
--- The string argument must be a XPath expression with an absolute location path,
--- the argument tree must be a complete document tree.
---
--- Before evaluating the xpath query, the document is canonicalized
--- with 'Text.XML.HXT.Arrow.Edit.canonicalizeForXPath'
---
--- Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
--- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
--- are convertet to text nodes.
-
-getXPathTreesInDoc			:: ArrowList a => String -> a XmlTree XmlTree
-getXPathTreesInDoc			= getXPathTreesInDocWithNsEnv []
-
--- | Same as 'getXPathTreesInDoc' but with namespace environment for the XPath names
-
-getXPathTreesInDocWithNsEnv		:: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
-getXPathTreesInDocWithNsEnv env query	= arrL (PT.getXPathWithNsEnv env query)
-
--- |
--- Select parts of an arbitrary XML tree by a XPath expression.
---
--- The main filter for selecting parts of an arbitrary XML tree via XPath.
--- The string argument must be a XPath expression with an absolute location path,
--- There are no restrictions on the argument tree.
---
--- No canonicalization is performed before evaluating the query
---
--- Result is a possibly empty list of XmlTrees forming the set of selected XPath values.
--- XPath values other than XmlTrees (numbers, attributes, tagnames, ...)
--- are convertet to text nodes.
-
-getXPathTrees				:: ArrowList a => String -> a XmlTree XmlTree
-getXPathTrees				= getXPathTreesWithNsEnv []
-
--- | Same as 'getXPathTrees' but with namespace environment for the XPath names
-
-getXPathTreesWithNsEnv			:: ArrowList a => NsEnv -> String -> a XmlTree XmlTree
-getXPathTreesWithNsEnv env query	= arrL (PT.getXPathSubTreesWithNsEnv env query)
-
--- | Select a set of nodes via an XPath expression from an arbitray XML tree
---
--- The result is a set of \"pointers\" to nodes. This set can be used to
--- access or modify the values of the subnodes in subsequent calls to 'getFromNodeSet' or 'processFromNodeSet'.
---
--- This function enables for parsing an XPath expressions and traversing the tree for node selection once
--- and reuse this result possibly many times for later selection and modification operations.
-
-getXPathNodeSet				:: ArrowList a => String -> a XmlTree XmlNodeSet
-getXPathNodeSet				= getXPathNodeSetWithNsEnv []
-
--- | Same as 'getXPathNodeSet' but with namespace environment for the XPath names
-
-getXPathNodeSetWithNsEnv		:: ArrowList a => NsEnv -> String -> a XmlTree XmlNodeSet
-getXPathNodeSetWithNsEnv nsEnv query	= arr (PT.getXPathNodeSetWithNsEnv nsEnv query)
-
--- ------------------------------------------------------------
-
-getNodeSet	:: ArrowXml a => a XmlTree QName -> a XmlTree XmlTree -> a XmlTree XmlNodeSet
-getNodeSet af f
-    = ( ( listA ( getChildren
-		  >>>
-		  getNodeSet af f
-		)
-	  >>>
-	  arr filterNodeSet
-	)
-	&&&
-	listA af
-	&&&
-	listA f
-      )
-      >>^ (\ ~(cl, (al, n)) -> XNS (not . null $ n) al cl)
-    where
-    filterNodeSet	:: [XmlNodeSet] -> ChildNodes
-    filterNodeSet
-	= concat . zipWith filterIx [0..]
-
-    filterIx	:: Int -> XmlNodeSet -> ChildNodes
-    filterIx _ix (XNS False [] [])
-	= []
-    filterIx ix ps
-	= [(ix, ps)]
-
--- |
--- compute a node set from a tree, containing all nodes selected by the predicate arrow
---
--- computation of the set of element nodes with name \"a\" is done with
---
--- > getElemNodeSet (hasName "a")
-
-getElemNodeSet		:: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
-getElemNodeSet f
-    = getNodeSet none f
-
--- |
--- compute a node set from a tree, containing all nodes including attribute nodes
--- elected by the predicate arrow
-
-getElemAndAttrNodeSet	:: ArrowXml a => a XmlTree XmlTree -> a XmlTree XmlNodeSet
-getElemAndAttrNodeSet f
-    = getNodeSet ( getAttrl
-		   >>>
-		   ( f `guards` getAttrName )
-		 ) f
-
--- ------------------------------------------------------------
-
--- |
--- select all subtrees specified by a previously computed node set
---
--- the following law holds:
---
--- > getFromNodeSet $< getElemNodeSet f == multi f
-
-getFromNodeSet		:: ArrowXml a => XmlNodeSet -> a XmlTree XmlTree
-getFromNodeSet (XNS t al cl)
-    = fromLA $
-      ( if t then this else none )
-      <+>
-      ( getAttrl >>> getFromAttrl al )
-      <+>
-      ( getFromChildren (0-1) cl $< listA getChildren )
-    where
-
-    getFromAttrl	:: [QName] -> LA XmlTree XmlTree
-    getFromAttrl l
-	= ( catA . map hasQName $ l)
-	  `guards`
-	  this
-
-    getFromChildren	:: Int -> ChildNodes -> XmlTrees -> LA XmlTree XmlTree
-    getFromChildren _ [] _
-	= none
-
-    getFromChildren i' ((i, sp) : sps) ts
-	= ( arrL (const t') >>> getFromNodeSet sp )
-	  <+>
-	  getFromChildren i sps ts'
-	  where
-	  (t', ts') = splitAt 1 . drop (i-i'-1) $ ts
-
--- ------------------------------------------------------------
-
--- |
--- process all subtrees selected by an XPath expression
---
--- the following law holds:
---
--- > processXPathTrees p xpathExpr == processFromNodeSet p $< getXPathNodeSet xpathExpr
-
-
-processXPathTrees		:: ArrowXml a => a XmlTree XmlTree  -> String -> a XmlTree XmlTree
-processXPathTrees f		= processXPathTreesWithNsEnv f []
-
--- | Same as 'processXPathTrees' but with namespace environment for the XPath names
-
-processXPathTreesWithNsEnv	:: ArrowXml a => a XmlTree XmlTree  -> NsEnv -> String -> a XmlTree XmlTree
-processXPathTreesWithNsEnv f nsEnv query
-    = processFromNodeSet f $< getXPathNodeSetWithNsEnv nsEnv query
-
--- |
--- process all subtrees specified by a previously computed node set in bottom up manner
---
--- the follwoing law holds:
---
--- > processFromNodeSet g $< getElemNodeSet f == processBottomUp (g `when` f)
---
--- when attributes are contained in the node set (see 'getElemAndAttrNodeSet'), these are processed
--- after the children and before the node itself
---
--- the advantage of processFromNodeSet is the separation of the selection of set of nodes to be processed (e.g. modified)
--- from the real proccessing. The selection sometimes can be done once, the processing possibly many times.
-
-processFromNodeSet	:: ArrowXml a => a XmlTree XmlTree  -> XmlNodeSet -> a XmlTree XmlTree
-processFromNodeSet f (XNS t al cl)
-    = ( if null cl
-	then this
-	else replaceChildren ( processC (0-1) cl $< listA getChildren )
-      )
-      >>>
-      ( if null al
-	then this
-	else processAttrl (processA al)
-      )
-      >>>
-      ( if not t
-	then this
-	else f
-      )
-    where
-
-    -- processA		:: ChildNodes -> a XmlTree XmlTree
-    processA l
-	= f `when` ( catA . map hasQName $ l)
-
-    -- processC		:: ChildNodes -> XmlTrees -> a XmlTree XmlTree
-    processC _ [] ts
-	= arrL (const ts)
-
-    processC i' ((i, sp) : sps) ts
-	= arrL (const ts1)
-	  <+>
-	  ( arrL (const ti) >>> processFromNodeSet f sp)
-	  <+>
-	  processC i sps ts21
-	  where
-	  (ts1, ts2) = splitAt (i-i'-1) ts
-	  (ti, ts21) = splitAt 1 ts2
-
--- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/DOM/EditFilters.hs b/src/Text/XML/HXT/DOM/EditFilters.hs
--- a/src/Text/XML/HXT/DOM/EditFilters.hs
+++ b/src/Text/XML/HXT/DOM/EditFilters.hs
@@ -216,8 +216,12 @@
     = replaceChildren (collapseXText' $ getChildren n) n
     where
     collapseXText' :: XmlSFilter
-    collapseXText' ((NTree (XText t1) _) : (NTree (XText t2) _):zs)
-        = collapseXText' $ (xtext (t1++t2)) ++ zs
+    collapseXText' ((NTree n1 _) : (NTree n2 _) : zs)
+	| isXTextNode n1 && isXTextNode n2
+            = collapseXText' $ (xtext (t1 ++ t2)) ++ zs
+	      where
+	      t1 = textOfXNode n1
+	      t2 = textOfXNode n2
 
     collapseXText' (x:xs)
         = x : (collapseXText' xs)
@@ -411,8 +415,9 @@
       (s1, s2) = break isEsc s
 
 escapeText		:: (Char -> Bool) -> XmlFilter
-escapeText isEsc (NTree (XText str) _)
-    = escapeString isEsc str
+escapeText isEsc (NTree n _)
+    | isXTextNode n
+	= escapeString isEsc (textOfXNode n)
 
 escapeText isEsc (NTree (XCmt c) _)
     = xcmt (xshow . escapeString isEsc $ c)
diff --git a/src/Text/XML/HXT/DOM/NamespaceFilter.hs b/src/Text/XML/HXT/DOM/NamespaceFilter.hs
--- a/src/Text/XML/HXT/DOM/NamespaceFilter.hs
+++ b/src/Text/XML/HXT/DOM/NamespaceFilter.hs
@@ -78,7 +78,7 @@
 				)
 			     )
 			     . span (/= ':')		-- break the name into a pair ("prefix", ":localPart")
-			     . aName			-- select attribute name
+			     . qualifiedName		-- select attribute name
 			   )
 		  $ n
     nsDecl	= zip (map (drop 1			-- drop the ":", empty local part represents default name space
@@ -101,7 +101,7 @@
 			   )
 		       )
 		       . span (/= ':')			-- break the name into a pair ("prefix", ":localPart")
-		       . aName				-- select attribute name
+		       . qualifiedName			-- select attribute name
 		     )
 	    `guards`
 	    modifyQName (setNamespace attrEnv)
diff --git a/src/Text/XML/HXT/DOM/NamespacePredicates.hs b/src/Text/XML/HXT/DOM/NamespacePredicates.hs
--- a/src/Text/XML/HXT/DOM/NamespacePredicates.hs
+++ b/src/Text/XML/HXT/DOM/NamespacePredicates.hs
@@ -34,26 +34,17 @@
     qn = qualifiedName n	-- using qualifiedName instead of localPart enables recomputing of setNamespace
 
     ns :: String -> String -> QName
-    ns lp ""					-- no ":" found in name
-	= QN { namePrefix   = ""		-- use default namespace uri
-	     , localPart    = lp
-	     , namespaceUri = lookup1 "" nst
-	     }
+    ns lp ""					-- no ":" found in name, use default namespace uri
+	= mkQName "" lp (lookup1 "" nst)
 
-    ns px@(_:_) (':' : lp@(_:_))		-- none empty prefix and none empty local part found
-	= QN { namePrefix   = px
-	     , localPart    = lp
-	     , namespaceUri = lookup1 px nst
-	     }
+    ns px@(_:_) (':' : lp@(_:_))		-- non empty prefix and non empty local part found
+	= mkQName px lp (lookup1 px nst)
 
     ns _ _					-- not a legal qualified name, don't change name
 	= n
 
 xmlnsQN	:: QName
-xmlnsQN	= QN { namePrefix	= ""
-	     , localPart	= a_xmlns
-	     , namespaceUri	= xmlnsNamespace
-	     }
+xmlnsQN	= mkQName "" a_xmlns xmlnsNamespace
 
 -- -----------------------------------------------------------------------------
 --
diff --git a/src/Text/XML/HXT/DOM/QualifiedName.hs b/src/Text/XML/HXT/DOM/QualifiedName.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/XML/HXT/DOM/QualifiedName.hs
@@ -0,0 +1,212 @@
+-- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.DOM.QualifiedName
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   The core data types of the HXT DOM.
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.DOM.QualifiedName
+    ( module Text.XML.HXT.DOM.QualifiedName
+    )
+
+where
+import Control.Strategies.DeepSeq
+
+import Data.Char		(toLower)
+import Data.Typeable
+
+-- -----------------------------------------------------------------------------
+--
+-- |
+-- Namespace support for element and attribute names.
+--
+-- A qualified name consists of a name prefix, a local name
+-- and a namespace uri.
+-- All modules, which are not namespace aware, use only the 'localPart' component.
+-- When dealing with namespaces, the document tree must be processed by "propagateNamespaces"
+-- to split names of structure \"prefix:localPart\" and label the name with the apropriate namespace uri
+
+data QName = QN { namePrefix	:: String	-- ^ the name prefix part of a qualified name \"namePrefix:localPart\"
+		, localPart	:: String	-- ^ the local part of a qualified name \"namePrefix:localPart\"
+		, namespaceUri	:: String	-- ^ the associated namespace uri
+		}
+	     deriving (Ord, Show, Read, Typeable)
+
+-- | Two QNames are equal if (1. case) namespaces are both empty and the qualified names
+-- (prefix:localpart) are the same or (2. case) namespaces are set and namespaces and
+-- local parts both are equal
+    
+instance Eq QName where
+    q1 == q2
+	| null ns1 && null ns2
+	    = qualifiedName q1 == qualifiedName q2
+	| otherwise
+	    = localPart q1 == localPart q2
+	      &&
+	      ns1 == ns2
+	where
+	ns1 = namespaceUri q1
+	ns2 = namespaceUri q2
+
+instance DeepSeq QName where
+    deepSeq (QN np lp ns) y	= deepSeq np $ deepSeq lp $ deepSeq ns y
+
+-- |
+-- builds the full name \"prefix:localPart\", if prefix is not null, else the local part is the result
+
+qualifiedName		:: QName -> String
+qualifiedName n
+    | null px
+	= lp
+    | otherwise
+	= px ++ (':' : lp)
+    where
+    px = namePrefix n
+    lp = localPart  n
+
+-- |
+-- builds the \"universal\" name, that is the namespace uri surrounded with \"{\" and \"}\" followed by the local part
+-- (specialisation of 'buildUniversalName')
+
+universalName	:: QName -> String
+universalName	= buildUniversalName (\ ns lp -> '{' : ns ++ '}' : lp)
+
+-- |
+-- builds an \"universal\" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
+-- where the subject, predicate and object often are concatenated from namespace uri and local part
+-- (specialisation of 'buildUniversalName')
+
+universalUri	:: QName -> String
+universalUri	= buildUniversalName (++)
+
+-- |
+-- builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
+-- namespace uri and local part are combined with the combining function given by the first parameter
+
+buildUniversalName	:: (String -> String -> String) -> QName -> String
+buildUniversalName bf n
+    | null ns
+	= lp
+    | otherwise
+	= bf ns lp
+    where
+    ns = namespaceUri n
+    lp = localPart    n
+
+-- |
+-- constructs a complete qualified name with 'namePrefix', 'localPart' and 'namespaceUri'.
+
+mkQName	:: String -> String -> String -> QName
+mkQName p l n
+    = QN { namePrefix	= p
+	 , localPart	= l
+	 , namespaceUri	= n
+	 }
+
+-- |
+-- constructs a simple, namespace unaware name, 'namePrefix' and 'namespaceUri' are set to the empty string.
+
+mkName	:: String -> QName
+mkName s
+    = QN { namePrefix	= ""
+	 , localPart	= s
+	 , namespaceUri	= ""
+	 }
+
+-- |
+-- constructs a simple name, with prefix and localPart but without a namespace uri.
+--
+-- see also 'mkName', 'mkNsName', 'mkSNsName'
+
+mkPrefixLocalPart	:: String -> String -> QName
+mkPrefixLocalPart p l
+    = QN { namePrefix	= p
+	 , localPart	= l
+	 , namespaceUri	= ""
+	 }
+
+-- |
+-- constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
+--
+-- see also 'mkName', 'mkPrefixLocalPart'
+
+mkNsName	:: String -> String -> QName
+mkNsName n ns
+    = QN { namePrefix	= p
+	 , localPart	= l
+	 , namespaceUri	= ns
+	 }
+      where
+      (x1, x2) = span (/= ':') n
+      (p, l)
+	  | null x2	= ("", x1)
+	  | otherwise	= (x1, tail x2)
+
+
+-- |
+-- constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
+--
+-- see also 'mkNsName', 'mkPrefixLocalPart'
+
+mkSNsName	:: String -> QName
+mkSNsName n	= mkNsName n ""
+
+-- | Empty QName
+
+nullQName	:: QName
+nullQName	= QN "" "" ""
+
+-- | Equality of QNames: Two QNames are equal, if the local parts are equal
+-- and the namespace URIs are equal.
+-- The comparison works with and without namespace propagation.
+-- If namespaces have been propagated, the name is split into prefix and local part
+-- and the namespace uri is set. In this case the prefix is not significant for equality test.
+-- If namespaces have not been propagated, the local part contains the full name, prefix
+-- and namespace URI are empty. The full name (prefix and local part) is used for comparison.
+
+equalQName	:: QName -> QName -> Bool
+equalQName 	= equalQNameBy (==)
+
+-- | Equivalent QNames are defined as follows: The URIs are normalized before comparison.
+-- Comparison is done with 'equalQNameBy' and 'equivUri'
+
+equivQName	:: QName -> QName -> Bool
+equivQName	= equalQNameBy equivUri
+
+-- | Comparison of normalized namespace URIs using 'normalizeNsUri'
+
+equivUri	:: String -> String -> Bool
+equivUri x y	= normalizeNsUri x == normalizeNsUri y
+
+-- | Sometimes a weaker equality relation than 'equalQName' is appropriate, e.g no case significance in names, ...
+-- a name normalization function can be applied to the strings before comparing. Called by 'equalQName' and
+-- 'equivQName'
+
+equalQNameBy	:: (String -> String -> Bool) -> QName -> QName -> Bool
+equalQNameBy equiv q1 q2
+    = localPart q1 == localPart q2
+      &&
+      (namespaceUri q1 `equiv` namespaceUri q2)
+
+-- |  Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing \"\/\" is ignored
+
+normalizeNsUri	:: String -> String
+normalizeNsUri
+    = map toLower . stripSlash
+    where
+    stripSlash ""	= ""
+    stripSlash s
+	| last s == '/'	= init s
+	| otherwise	= s
+
+-- -----------------------------------------------------------------------------
diff --git a/src/Text/XML/HXT/DOM/TypeDefs.hs b/src/Text/XML/HXT/DOM/TypeDefs.hs
--- a/src/Text/XML/HXT/DOM/TypeDefs.hs
+++ b/src/Text/XML/HXT/DOM/TypeDefs.hs
@@ -1,20 +1,36 @@
--- |
--- The core data types of HDOM.
---
--- Version : $Id: TypeDefs.hs,v 1.13 2006/11/09 20:27:42 hxml Exp $
+-- ------------------------------------------------------------
 
+{- |
+   Module     : Text.XML.HXT.DOM.TypeDefs
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   The core data types of the HXT DOM.
+
+-}
+
+-- ------------------------------------------------------------
+
 module Text.XML.HXT.DOM.TypeDefs
     ( module Data.AssocList
     , module Text.XML.HXT.DOM.TypeDefs
+    , module Text.XML.HXT.DOM.QualifiedName
     )
 
 where
+
 import Control.Strategies.DeepSeq
+
 import Data.AssocList
-import Data.Char		(toLower)
 import Data.Tree.NTree.TypeDefs
 import Data.Typeable
 
+import Text.XML.HXT.DOM.QualifiedName hiding ( QN )
+
 -- -----------------------------------------------------------------------------
 --
 -- Basic types for xml tree and filters
@@ -110,164 +126,6 @@
 -- used for storing option lists and features of DTD parts
 
 type Attributes	= AssocList String String
-
--- -----------------------------------------------------------------------------
---
--- |
--- Namespace support for element and attribute names.
---
--- A qualified name consists of a name prefix, a local name
--- and a namespace uri.
--- All modules, which are not namespace aware, use only the 'localPart' component.
--- When dealing with namespaces, the document tree must be processed by "propagateNamespaces"
--- to split names of structure \"prefix:localPart\" and label the name with the apropriate namespace uri
-
-data QName = QN { namePrefix	:: String	-- ^ the name prefix part of a qualified name \"namePrefix:localPart\"
-		, localPart	:: String	-- ^ the local part of a qualified name \"namePrefix:localPart\"
-		, namespaceUri	:: String	-- ^ the associated namespace uri
-		}
-	     deriving (Eq, Ord, Show, Read, Typeable)
-
-instance DeepSeq QName where
-    deepSeq (QN np lp ns) y	= deepSeq np $ deepSeq lp $ deepSeq ns y
-
--- |
--- builds the full name \"prefix:localPart\", if prefix is not null, else the local part is the result
-
-qualifiedName		:: QName -> String
-qualifiedName n
-    | null px
-	= lp
-    | otherwise
-	= px ++ (':' : lp)
-    where
-    px = namePrefix n
-    lp = localPart  n
-
--- |
--- builds the \"universal\" name, that is the namespace uri surrounded with \"{\" and \"}\" followed by the local part
--- (specialisation of 'buildUniversalName')
-
-universalName	:: QName -> String
-universalName	= buildUniversalName (\ ns lp -> '{' : (ns ++ ('}' : lp)))
-
--- |
--- builds an \"universal\" uri, that is the namespace uri followed by the local part. This is usefull for RDF applications,
--- where the subject, predicate and object often are concatenated from namespace uri and local part
--- (specialisation of 'buildUniversalName')
-
-universalUri	:: QName -> String
-universalUri	= buildUniversalName (++)
-
--- |
--- builds a string from the namespace uri and the local part. If the namespace uri is empty, the local part is returned, else
--- namespace uri and local part are combined with the combining function given by the first parameter
-
-buildUniversalName	:: (String -> String -> String) -> QName -> String
-buildUniversalName bf n
-    | null ns
-	= lp
-    | otherwise
-	= bf ns lp
-    where
-    ns = namespaceUri n
-    lp = localPart    n
-
--- |
--- constructs a simple, namespace unaware name, 'namePrefix' and 'namespaceUri' are set to the empty string.
-
-mkName	:: String -> QName
-mkName s
-    = QN { namePrefix	= ""
-	 , localPart	= s
-	 , namespaceUri	= ""
-	 }
-
--- |
--- constructs a simple name, with prefix and localPart but without a namespace uri.
---
--- see also 'mkName', 'mkNsName', 'mkSNsName'
-
-mkPrefixLocalPart	:: String -> String -> QName
-mkPrefixLocalPart p l
-    = QN { namePrefix	= p
-	 , localPart	= l
-	 , namespaceUri	= ""
-	 }
-
--- |
--- constructs a simple, namespace aware name, with prefix:localPart as first parameter, namspace uri as second.
---
--- see also 'mkName', 'mkPrefixLocalPart'
-
-mkNsName	:: String -> String -> QName
-mkNsName n ns
-    = QN { namePrefix	= p
-	 , localPart	= l
-	 , namespaceUri	= ns
-	 }
-      where
-      (x1, x2) = span (/= ':') n
-      (p, l)
-	  | null x2	= ("", x1)
-	  | otherwise	= (x1, tail x2)
-
-
--- |
--- constructs a simple name, with prefix:localPart as 1 parameter, with empty namspace uri, same as 'mkPrefixLocalPart, but with a single parameter
---
--- see also 'mkNsName', 'mkPrefixLocalPart'
-
-mkSNsName	:: String -> QName
-mkSNsName n	= mkNsName n ""
-
--- | Empty QName
-
-nullQName	:: QName
-nullQName	= QN "" "" ""
-
--- | Equality of QNames: Two QNames are equal, if the local parts are equal
--- and the namespace URIs are equal.
--- The comparison works with and without namespace propagation.
--- If namespaces have been propagated, the name is split into prefix and local part
--- and the namespace uri is set. In this case the prefix is not significant for equality test.
--- If namespaces have not been propagated, the local part contains the full name, prefix
--- and namespace URI are empty. The full name (prefix and local part) is used for comparison.
-
-equalQName	:: QName -> QName -> Bool
-equalQName 	= equalQNameBy (==)
-
--- | Equivalent QNames are defined as follows: The URIs are normalized before comparison.
--- Comparison is done with 'equalQNameBy' and 'equivUri'
-
-equivQName	:: QName -> QName -> Bool
-equivQName	= equalQNameBy equivUri
-
--- | Comparison of normalized namespace URIs using 'normalizeNsUri'
-
-equivUri	:: String -> String -> Bool
-equivUri x y	= normalizeNsUri x == normalizeNsUri y
-
--- | Sometimes a weaker equality relation than 'equalQName' is appropriate, e.g no case significance in names, ...
--- a name normalization function can be applied to the strings before comparing. Called by 'equalQName' and
--- 'equivQName'
-
-equalQNameBy	:: (String -> String -> Bool) -> QName -> QName -> Bool
-equalQNameBy equiv q1 q2
-    = localPart q1 == localPart q2
-      &&
-      (namespaceUri q1 `equiv` namespaceUri q2)
-
--- |  Normalization of URIs: Normalization is done by conversion into lowercase letters. A trailing \"\/\" is ignored
-
-normalizeNsUri	:: String -> String
-normalizeNsUri
-    = map toLower . stripSlash
-    where
-    stripSlash ""	= ""
-    stripSlash s
-	| last s == '/'	= init s
-	| otherwise	= s
 
 -- -----------------------------------------------------------------------------
 --
diff --git a/src/Text/XML/HXT/DOM/XmlKeywords.hs b/src/Text/XML/HXT/DOM/XmlKeywords.hs
--- a/src/Text/XML/HXT/DOM/XmlKeywords.hs
+++ b/src/Text/XML/HXT/DOM/XmlKeywords.hs
@@ -20,6 +20,10 @@
 module Text.XML.HXT.DOM.XmlKeywords
 where
 
+import Data.List
+    ( isSuffixOf
+    )
+
 -- ------------------------------------------------------------
 --
 -- string constants for representing DTD keywords and attributes
@@ -60,6 +64,7 @@
  a_output_file,
  a_output_xml,
  a_output_html,
+ a_parse_by_mimetype,
  a_parse_html,
  a_parse_xml,
  a_peref,
@@ -72,6 +77,7 @@
  a_source,
  a_status,
  a_standalone,
+ a_tagsoup,
  a_trace,
  a_type,
  a_use_curl,
@@ -102,7 +108,7 @@
 k_any,				-- DTD keywords
  k_cdata,
  k_empty,
- k_enitity,
+ k_entity,
  k_entities,
  k_id,
  k_idref,
@@ -161,6 +167,7 @@
 a_output_encoding		= "output-encoding"
 a_output_html			= "output-html"
 a_output_xml			= "output-xml"
+a_parse_by_mimetype		= "parse-by-mimetype"
 a_parse_html			= "parse-html"
 a_parse_xml			= "parse-xml"
 a_peref				= k_peref
@@ -173,6 +180,7 @@
 a_source			= "source"
 a_standalone			= "standalone"
 a_status			= "status"
+a_tagsoup			= "tagsoup"
 a_trace				= "trace"
 a_type				= "type"
 a_url				= "url"
@@ -205,7 +213,7 @@
 k_any		= "ANY"
 k_cdata		= "CDATA"
 k_empty		= "EMPTY"
-k_enitity	= "ENTITY"
+k_entity	= "ENTITY"
 k_entities	= "ENTITIES"
 k_id		= "ID"
 k_idref		= "IDREF"
@@ -304,10 +312,10 @@
 -- known namespaces
 
 -- |
--- the predefined namespace uri for xml: \"http:\/\/www.w3.org\/XML\/1998\/namespaces\"
+-- the predefined namespace uri for xml: \"http:\/\/www.w3.org\/XML\/1998\/namespace\"
 
 xmlNamespace	:: String
-xmlNamespace	= "http://www.w3.org/XML/1998/namespaces"
+xmlNamespace	= "http://www.w3.org/XML/1998/namespace"
 
 -- |
 -- the predefined namespace uri for xmlns: \"http:\/\/www.w3.org\/2000\/xmlns\/\"
@@ -341,5 +349,45 @@
 a_validate_include            = "validate-include"
 a_output_changes              = "output-pattern-transformations"
 a_do_not_collect_errors       = "do-not-collect-errors"
+
+-- ------------------------------------------------------------
+
+-- mime types
+--
+-- see RFC \"http:\/\/www.rfc-editor.org\/rfc\/rfc3023.txt\"
+
+application_xhtml,
+ application_xml,
+ application_xml_external_parsed_entity,
+ application_xml_dtd,
+ text_html,
+ text_xml,
+ text_xml_external_parsed_entity	:: String
+
+application_xhtml			= "application/xhtml+xml"
+application_xml				= "application/xml"
+application_xml_external_parsed_entity	= "application/xml-external-parsed-entity"
+application_xml_dtd			= "application/xml-dtd"
+
+text_html				= "text/html"
+text_xml				= "text/xml"
+text_xml_external_parsed_entity		= "text/xml-external-parsed-entity"
+
+isHtmlMimeType	:: String -> Bool
+isHtmlMimeType t
+    = t == text_html
+
+isXmlMimeType	:: String -> Bool
+isXmlMimeType t
+    = ( t `elem` [ application_xhtml
+		, application_xml
+		, application_xml_external_parsed_entity
+		, application_xml_dtd
+		, text_xml
+		, text_xml_external_parsed_entity
+		]
+	||
+	"+xml" `isSuffixOf` t		-- application/mathml+xml
+      )					-- or image/svg+xml
 
 -- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/DOM/XmlOptions.hs b/src/Text/XML/HXT/DOM/XmlOptions.hs
--- a/src/Text/XML/HXT/DOM/XmlOptions.hs
+++ b/src/Text/XML/HXT/DOM/XmlOptions.hs
@@ -35,7 +35,7 @@
 -- can be used for option definition with haskell getopt
 --
 -- defines options: 'a_trace', 'a_proxy', 'a_use_curl', 'a_do_not_use_curl', 'a_options_curl', 'a_encoding',
--- 'a_issue_errors', 'a_do_not_issue_errors', 'a_parse_html', 'a_issue_warnings', 'a_do_not_issue_warnings',
+-- 'a_issue_errors', 'a_do_not_issue_errors', 'a_parse_html', 'a_parse_by_mimetype', 'a_tagsoup' 'a_issue_warnings', 'a_do_not_issue_warnings',
 -- 'a_parse_xml', 'a_validate', 'a_do_not_validate', 'a_canonicalize', 'a_do_not_canonicalize',
 --- 'a_preserve_comment', 'a_do_not_preserve_comment', 'a_check_namespaces', 'a_do_not_check_namespaces',
 -- 'a_remove_whitespace', 'a_do_not_remove_whitespace'
@@ -52,6 +52,8 @@
       , Option ""	[a_issue_errors]		(NoArg	(att a_issue_errors      v_1))	"issue all errorr messages on stderr (default)"
       , Option ""	[a_do_not_issue_errors]		(NoArg	(att a_issue_errors      v_0))	"ignore all error messages"
       , Option "H"	[a_parse_html]			(NoArg	(att a_parse_html        v_1))	"parse input as HTML, try to interprete everything as HTML, no validation"
+      , Option "M"	[a_parse_by_mimetype]		(NoArg  (att a_parse_by_mimetype v_1))	"parse dependent on mime type: text/html as HTML, text/xml and text/xhtml as XML, else no parse"
+      , Option "T"	[a_tagsoup]			(NoArg	(att a_tagsoup           v_1))	"lasy tagsoup parser, for HTML and XML, no DTD, no validation, no PIs, only XHTML entityrefs"
       , Option ""	[a_issue_warnings]		(NoArg	(att a_issue_warnings    v_1))	"issue warnings, when parsing HTML (default)"
       , Option "Q"	[a_do_not_issue_warnings]	(NoArg	(att a_issue_warnings    v_0))	"ignore warnings, when parsing HTML"
       , Option ""	[a_parse_xml]			(NoArg	(att a_parse_html        v_0))	"parse input as XML (default)"
diff --git a/src/Text/XML/HXT/DOM/XmlTreeFilter.hs b/src/Text/XML/HXT/DOM/XmlTreeFilter.hs
--- a/src/Text/XML/HXT/DOM/XmlTreeFilter.hs
+++ b/src/Text/XML/HXT/DOM/XmlTreeFilter.hs
@@ -230,8 +230,9 @@
 isWhiteSpace
     = isOfNode isWS
       where
-      isWS (XText s1) = all isXmlSpaceChar s1
-      isWS _          = False
+      isWS n
+	  = isXTextNode n
+	    && all isXmlSpaceChar (textOfXNode n)
 
 -- ------------------------------------------------------------
 --
@@ -605,7 +606,8 @@
 -- @processBottomUp (modifyText f \`when\` isXText)@
 
 modifyText				:: (String -> String) -> XmlFilter
-modifyText f t@(NTree (XText str) _)	= replaceNode (XText (f str)) t
+modifyText f t@(NTree n _)
+    | isXTextNode n			= replaceNode (XText (f (textOfXNode n))) t
 modifyText _ _				= []
 
 -- |
@@ -667,7 +669,7 @@
       al = getAttrl t
       replace [] = [a]
       replace (a1 : as)
-	  | satisfies (isAttr (aName an)) a1
+	  | satisfies (isAttr (qualifiedName an)) a1
 	      = a : as
 	  | otherwise
 	      = a1 : replace as
diff --git a/src/Text/XML/HXT/DOM/XmlTreeFunctions.hs b/src/Text/XML/HXT/DOM/XmlTreeFunctions.hs
--- a/src/Text/XML/HXT/DOM/XmlTreeFunctions.hs
+++ b/src/Text/XML/HXT/DOM/XmlTreeFunctions.hs
@@ -64,14 +64,14 @@
 isRootNode			= isTagNode t_root
 
 isTagNode			:: String -> XNode -> Bool
-isTagNode n			= isOfTagNode ((== n) . tName)
+isTagNode n			= isOfTagNode ((== n) . qualifiedName)
 
 isOfTagNode			:: (TagName -> Bool) -> XNode -> Bool
 isOfTagNode p (XTag n _)	= p n
 isOfTagNode _ _			= False
 
 isAttrNode			:: String -> XNode -> Bool
-isAttrNode n			= isOfAttrNode ((== n) . aName)
+isAttrNode n			= isOfAttrNode ((== n) . qualifiedName)
 
 isOfAttrNode			:: (AttrName -> Bool) -> XNode -> Bool
 isOfAttrNode p (XAttr n)	= p n
@@ -85,7 +85,7 @@
 isOfTextNode _ _		= False
 
 isPiNode			:: String -> XNode -> Bool
-isPiNode n			= isOfPiNode ((== n) . tName)
+isPiNode n			= isOfPiNode ((== n) . qualifiedName)
 
 isOfPiNode			:: (TagName -> Bool) -> XNode -> Bool
 isOfPiNode p (XPi n _)		= p n
@@ -100,6 +100,12 @@
 isErrorNode _ _  = False
 
 -- -----------------------------------------------------------------------------
+
+textOfXNode			:: XNode -> String
+textOfXNode (XText t)		= t
+textOfXNode _			= ""
+
+-- -----------------------------------------------------------------------------
 --
 -- XmlTree constructors
 
@@ -435,7 +441,7 @@
       where
       showPiAttr	:: XmlTree -> String -> String
       showPiAttr a@(NTree (XAttr an) cs)
-	  | aName an == a_value
+	  | qualifiedName an == a_value
 	      = showBlank . showXmlTrees cs
 	  | otherwise
 	      = showXmlTree a
@@ -776,9 +782,9 @@
 nameOf
     = selName . getNode
       where
-      selName (XTag  n _)	= tName n
-      selName (XAttr n  )	= aName n
-      selName (XPi   n _)	= tName n
+      selName (XTag  n _)	= qualifiedName n
+      selName (XAttr n  )	= qualifiedName n
+      selName (XPi   n _)	= qualifiedName n
       selName _			= ""
 
 -- |
@@ -791,7 +797,7 @@
       where
       selName (XTag  n _)	= localPart n
       selName (XAttr n  )	= localPart n
-      selName (XPi   n _)	= tName n
+      selName (XPi   n _)	= qualifiedName n
       selName _			= ""
 
 -- |
@@ -880,7 +886,7 @@
 toTreel
     = concatMap toTree
       where
-      toTree (NTree (XAttr n) cs) = [(aName n, cs)]
+      toTree (NTree (XAttr n) cs) = [(qualifiedName n, cs)]
       toTree _			  = []
 
 toAttrl		:: XmlTrees -> Attributes
diff --git a/src/Text/XML/HXT/Parser/DTDProcessing.hs b/src/Text/XML/HXT/Parser/DTDProcessing.hs
--- a/src/Text/XML/HXT/Parser/DTDProcessing.hs
+++ b/src/Text/XML/HXT/Parser/DTDProcessing.hs
@@ -180,7 +180,7 @@
 	  = do
 	    sequence_ . map (\ (a, ts) -> setSysParamTree a ts) . toTreel . getAttrl $ t
 	    setSysParam a_standalone ""
-	    ( traceMsg 1 ("processDTD: process parameter enitities")
+	    ( traceMsg 1 ("processDTD: process parameter entities")
 	      .>>
 	      liftMf (modifyChildren addDoctype)
 	      .>>
@@ -548,7 +548,7 @@
 
 
 evalCond :: XmlTree -> DTDStateFilter
-evalCond content (NTree (XText c) _)
+evalCond content (NTree n _)
     | c == k_include
 	= liftF (parseXmlDTDPart "conditional section")
 	  .>>
@@ -558,8 +558,8 @@
           $ content 
     | otherwise
 	= return []
-evalCond _ n'
-    = error ("evalCond: illegal argument: " ++ show n')
+    where
+    c = textOfXNode n
 
 -- ------------------------------------------------------------
 
@@ -698,7 +698,7 @@
 
 processGeneralEntities	:: XmlStateFilter a
 processGeneralEntities
-    = ( traceMsg 1 "processGeneralEntities: collect and substitute general enities"
+    = ( traceMsg 1 "processGeneralEntities: collect and substitute general entities"
 	.>>
 	processEntities
 	.>>
diff --git a/src/Text/XML/HXT/Parser/HtmlParsec.hs b/src/Text/XML/HXT/Parser/HtmlParsec.hs
--- a/src/Text/XML/HXT/Parser/HtmlParsec.hs
+++ b/src/Text/XML/HXT/Parser/HtmlParsec.hs
@@ -1,16 +1,26 @@
--- |
--- HTML Parsec Parser
---
--- Version : $Id: HtmlParsec.hs,v 1.11 2006/12/08 11:48:20 hxml Exp $
---
--- This parser tries to interprete everything as HTML
--- no errors are emitted during parsing. If something looks
--- weired, warning messages are inserted in the document tree
---
--- all filter are pure XmlFilter,
--- errror handling and IO is done in 'Text.XML.HXT.Parser.HtmlParser'
--- or other modules
+-- ------------------------------------------------------------
 
+{- |
+   Module     : Text.XML.HXT.Parser.HtmlParsec
+   Copyright  : Copyright (C) 2005 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   This parser tries to interprete everything as HTML
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
+  
+   All filter are pure XmlFilter,
+   errror handling and IO is done in 'Text.XML.HXT.Parser.HtmlParser'
+   or other modules
+
+-}
+
+-- ------------------------------------------------------------
+
 module Text.XML.HXT.Parser.HtmlParsec
     ( substHtmlEntities
     , parseHtmlText
@@ -18,6 +28,7 @@
     , parseHtmlContent
     , isEmptyHtmlTag
     , isInnerHtmlTagOf
+    , closesHtmlTag
     , emptyHtmlTags
     )
 
@@ -472,7 +483,11 @@
 	]
       )
 
-closes :: String -> String -> Bool
+closesHtmlTag
+  , closes :: String -> String -> Bool
+
+closesHtmlTag	= closes
+
 "a"	`closes` "a"					= True
 "li"	`closes` "li"					= True
 "th"	`closes`  t    | t `elem` ["th","td"]		= True
diff --git a/src/Text/XML/HXT/Parser/HtmlParser.hs b/src/Text/XML/HXT/Parser/HtmlParser.hs
--- a/src/Text/XML/HXT/Parser/HtmlParser.hs
+++ b/src/Text/XML/HXT/Parser/HtmlParser.hs
@@ -1,14 +1,24 @@
--- |
--- HTML Parser
---
--- Version : $Id: HtmlParser.hs,v 1.4 2006/11/12 14:53:00 hxml Exp $
---
--- This parser tries to interprete everything as HTML
--- no errors are emitted during parsing. If something looks
--- weired, warning messages are inserted in the document tree
---
--- module contains state filter for easy parsing and error handling
--- real work is done in 'Text.XML.HXT.Parser.HtmlParsec'
+-- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.Parser.HtmlParser
+   Copyright  : Copyright (C) 2005 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   This parser tries to interprete everything as HTML
+   no errors are emitted during parsing. If something looks
+   weired, warning messages are inserted in the document tree.
+  
+   Module contains state filter for easy parsing and error handling
+   real work is done in 'Text.XML.HXT.Parser.HtmlParsec'
+
+-}
+
+-- ------------------------------------------------------------
 
 module Text.XML.HXT.Parser.HtmlParser
     ( getHtmlDoc
diff --git a/src/Text/XML/HXT/Parser/MainFunctions.hs b/src/Text/XML/HXT/Parser/MainFunctions.hs
--- a/src/Text/XML/HXT/Parser/MainFunctions.hs
+++ b/src/Text/XML/HXT/Parser/MainFunctions.hs
@@ -232,7 +232,7 @@
 	[ hasOption a_parse_html
 		:-> parseHtmlDoc			-- parse everything as HTML
 	, this
-		:-> checkWellformedDoc			-- parse XML and process enitities
+		:-> checkWellformedDoc			-- parse XML and process entities
 	            .>>
                     ( getValidatedDoc			-- validate
 		      `whenM`
diff --git a/src/Text/XML/HXT/Parser/ProtocolHandlerUtil.hs b/src/Text/XML/HXT/Parser/ProtocolHandlerUtil.hs
--- a/src/Text/XML/HXT/Parser/ProtocolHandlerUtil.hs
+++ b/src/Text/XML/HXT/Parser/ProtocolHandlerUtil.hs
@@ -45,7 +45,7 @@
 	    )
       P.<|>
       ( do
-	mimeType <- P.many P.anyChar
+	mimeType <- P.many (P.noneOf ";")
 	return [ (transferMimeType, mimeType) ]
       )
 
diff --git a/src/Text/XML/HXT/Parser/TagSoup.hs b/src/Text/XML/HXT/Parser/TagSoup.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/XML/HXT/Parser/TagSoup.hs
@@ -0,0 +1,462 @@
+-- ------------------------------------------------------------
+
+{- |
+   Module     : Text.XML.HXT.Parser.TagSoup
+   Copyright  : Copyright (C) 2005 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : experimental
+   Portability: portable
+
+   lasy HTML and simpe XML parser implemented with tagsoup
+   parsing is done with a very simple monadic top down parser
+
+-}
+
+-- ------------------------------------------------------------
+
+module Text.XML.HXT.Parser.TagSoup
+    ( parseHtmlTagSoup
+    )
+where
+
+-- ------------------------------------------------------------
+
+-- The table contains the id map. All element and attribute names are stored
+-- the first time they are ecountered, and later always this name is used,
+-- not a string built by the parser.
+
+import Text.HTML.TagSoup
+import Text.HTML.TagSoup.Entity
+    ( lookupNumericEntity
+    )
+
+import Text.XML.HXT.DOM.Unicode
+    ( isXmlSpaceChar
+    )
+
+import Text.XML.HXT.DOM.NamespacePredicates
+    ( isWellformedQualifiedName
+    )
+
+import Text.XML.HXT.Parser.XmlEntities
+    ( -- xmlEntities
+    )
+
+import Text.XML.HXT.Parser.XhtmlEntities
+    ( xhtmlEntities
+    )
+
+import Text.XML.HXT.Parser.HtmlParsec
+    ( isEmptyHtmlTag
+    , isInnerHtmlTagOf
+    , closesHtmlTag
+    )
+
+import Text.XML.HXT.Arrow.DOMInterface
+    ( XmlTrees
+    , QName
+    , NsEnv
+    , mkQName
+    , mkName
+    , mkPrefixLocalPart
+    , c_warn
+    , a_xml
+    , a_xmlns
+    , xmlNamespace
+    , xmlnsNamespace
+    )
+
+import Text.XML.HXT.Arrow.XmlNode
+    ( isElem
+    , mkError
+    , mkCmt
+    , mkText
+    , mkElement
+    , mkAttr
+    )
+
+import Data.Maybe
+
+import qualified Data.Map as M
+
+-- ---------------------------------------- 
+
+type Tags	= [Tag]
+
+type NameTable	= M.Map QName QName
+
+type Context	= ([String], NsEnv)
+
+data State	= S !Tags !NameTable		-- the name table must be evaluated striktly, else a stack overflow occurs
+
+newtype Parser a = P { parse :: State -> (a, State)}
+
+instance Monad Parser where
+    return x	= P $ \ ts -> (x, ts)
+    p >>= f	= P $ \ ts -> let
+			      (res, ts') = parse p ts
+                              in
+			      parse (f res) ts'
+
+runParser	:: Parser a -> Tags -> a
+runParser p ts	= fst . parse p $ S ts M.empty
+
+-- ----------------------------------------
+
+cond		:: Parser Bool -> Parser a -> Parser a -> Parser a
+cond c t e	= do
+		  p <- c
+		  if p then t else e
+
+lookAhead	:: (Tag -> Bool) -> Parser Bool
+lookAhead p	= P $ \ s@(S ts _) -> (not (null ts) && p (head ts), s)
+
+-- ----------------------------------------
+-- primitive look ahead tests
+
+isEof		:: Parser Bool
+isEof		= P $ \ s@(S ts _) -> (null ts, s)
+
+isText		:: Parser Bool
+isText		= lookAhead is
+		  where
+		  is (TagText _) = True
+		  is _		 = False
+
+isCmt		:: Parser Bool
+isCmt		= lookAhead is
+		  where
+		  is (TagComment _) = True
+		  is _		    = False
+
+isWarn		:: Parser Bool
+isWarn		= lookAhead is
+		  where
+		  is (TagWarning _) = True
+		  is _		    = False
+
+isPos		:: Parser Bool
+isPos		= lookAhead is
+		  where
+		  is (TagPosition _ _) = True
+		  is _		 = False
+
+isCls		:: Parser Bool
+isCls		= lookAhead is
+		  where
+		  is (TagClose _) = True
+		  is _		  = False
+
+isOpn		:: Parser Bool
+isOpn		= lookAhead is
+		  where
+		  is (TagOpen _ _) = True
+		  is _		   = False
+
+-- ----------------------------------------
+-- primitive symbol parsers
+
+getTag		:: Parser Tag
+getTag		= P $ \ (S (t1:ts1) nt) -> (t1, S ts1 nt)
+
+getSym		:: (Tag -> a) -> Parser a
+getSym f	= do
+		  t <- getTag
+		  return (f t)
+
+getText		:: Parser String
+getText		= getSym sym
+    		  where
+		  sym (TagText t)	= t
+		  sym _			= undefined
+
+getCmt		:: Parser String
+getCmt		= getSym sym
+		  where
+		  sym (TagComment c)	= c
+	  	  sym _			= undefined
+
+getWarn		:: Parser String
+getWarn		= getSym sym
+	  	  where
+		  sym (TagWarning w)	= w
+		  sym _			= undefined
+
+getPos		:: Parser (Int, Int)
+getPos		= getSym sym
+		  where
+		  sym (TagPosition l c)	= (l, c)
+		  sym _			= undefined
+
+getCls		:: Parser String
+getCls		= getSym sym
+		  where
+		  sym (TagClose n)	= n
+		  sym _			= undefined
+
+getOpn		:: Parser (String, [(String,String)])
+getOpn		= getSym sym
+		  where
+		  sym (TagOpen n al)	= (n, al)
+		  sym _			= undefined
+
+-- ----------------------------------------
+-- pushback parsers for inserting missing tags
+
+pushBack	:: Tag -> Parser ()
+pushBack t	= P $ \ (S ts nt) -> ((), S (t:ts) nt)
+
+insCls		:: String -> Parser ()
+insCls n	= pushBack (TagClose n)
+
+insOpn		:: String -> [(String, String)] -> Parser ()
+insOpn n al	= pushBack (TagOpen n al)
+
+-- ----------------------------------------
+
+insertQName	:: QName -> Parser QName
+insertQName n	= P $ \ (S ts nt) -> let
+				     (n', nt') = insert n nt
+				     in
+				     (n', S ts nt')
+		  where
+		  insert s nt
+		      | isJust r	= (fromJust r, nt)
+		      | otherwise	= (s, M.insert s s nt)
+		      where
+		      r = M.lookup s nt
+
+mkQN		:: Bool -> Bool -> NsEnv -> String -> Parser QName
+mkQN withNamespaces isAttr env s
+    | withNamespaces
+	= insertQName qn1
+    | otherwise
+	= insertQName qn0
+    where
+    qn1
+	| isAttr && isSimpleName	= mkName s
+	| isSimpleName			= mkQName "" s (nsUri "")
+	| isWellformedQualifiedName s	= mkQName px lp (nsUri px)
+	| otherwise			= mkName s
+    qn0
+	| isSimpleName			= mkName s
+	| isWellformedQualifiedName s	= mkPrefixLocalPart px lp
+	| otherwise			= mkName s
+
+    nsUri x		= fromMaybe "" . lookup x $ env
+    isSimpleName	= all (/= ':') s
+    (px, (_ : lp))	= span(/= ':') s
+
+extendNsEnv	:: Bool -> [(String, String)] -> NsEnv -> NsEnv
+extendNsEnv withNamespaces al1 env
+    | withNamespaces
+	= concatMap (uncurry addNs) al1 ++ env
+    | otherwise
+	= env
+    where
+    addNs n v
+	| px == a_xmlns
+	  &&
+	  (null lp || (not . null . tail $ lp))
+	    = [(drop 1 lp, v)]
+	| otherwise
+	    = []
+	where
+	(px, lp) = span (/= ':') n
+
+-- ----------------------------------------
+
+-- own entity lookup to prevent problems with & and tagsoup hack for IE
+
+lookupEntity	:: Bool -> Bool -> String -> [Tag]
+lookupEntity withWarnings _asHtml e0@('#':e)
+    = case lookupNumericEntity e of
+      Just c  -> [ TagText [c] ]
+      Nothing -> ( TagText $ "&" ++ e0 ++ ";") :
+		 if withWarnings
+		 then [TagWarning $ "illegal char reference: &" ++ e ++ ";"]
+		 else []
+
+lookupEntity withWarnings asHtml e
+    = case (lookup e entities) of
+      Just x  -> [ TagText [toEnum x]]
+      Nothing -> (TagText $ "&" ++ e ++ ";") :
+		 if withWarnings
+		 then [TagWarning $ "Unknown entity reference: &" ++ e ++ ";"]
+		 else []
+    where
+    entities
+	| asHtml    = xhtmlEntities
+	| otherwise = xhtmlEntities -- xmlEntities (TODO: xhtml is xml and html)
+
+-- ----------------------------------------
+-- the main parser
+
+parseHtmlTagSoup	:: Bool -> Bool -> Bool -> Bool -> Bool -> String -> String -> XmlTrees
+parseHtmlTagSoup withNamespaces withWarnings withComment removeWhiteSpace asHtml doc
+    = ( docRootElem
+	. runParser (buildCont initContext)
+	. ( if asHtml
+	    then canonicalizeTags
+	    else id
+	  )
+	. parseTagsOptions (options { optTagWarning   = withWarnings
+				    , optLookupEntity = lookupEntity withWarnings asHtml
+				    }
+			   )
+      )
+    where
+    -- This is essential for lasy parsing:
+    -- the call of "take 1" stops parsing, when the first element is detected
+    -- no check on end of input sequence is required to build this (0- or 1-element list)
+    -- so eof is never checked unneccessarily
+
+    docRootElem
+	= take 1 . filter isElem
+
+    initContext		= ( []
+			  , [ (a_xml,   xmlNamespace)
+			    , (a_xmlns, xmlnsNamespace)
+			    ]
+			  )
+
+    wrap		= (:[])
+
+    warn
+	| withWarnings	= wrap . mkError c_warn . show . (doc ++) . (" " ++)
+	| otherwise	= const []
+    cmt
+	| withComment	= wrap . mkCmt
+	| otherwise	= const []
+    txt
+	| removeWhiteSpace
+			= \ t ->
+			  if all isXmlSpaceChar t
+			  then []
+			  else wrap . mkText $ t
+	| otherwise	= wrap . mkText
+
+    isEmptyElem
+	| asHtml	= isEmptyHtmlTag
+	| otherwise	= const False
+
+    isInnerElem
+	| asHtml	= isInnerHtmlTagOf
+	| otherwise	= const (const False)
+
+    closesElem
+	| asHtml	= \ ns n1 ->
+			  not (null ns)
+			  &&
+			  n1 `closesHtmlTag` (head ns)
+	| otherwise	= const (const False)
+
+    buildCont	:: Context -> Parser XmlTrees
+    buildCont ns
+	= cond isText ( do
+			t <- getText
+			rl <- buildCont ns
+			return (txt t ++ rl)
+		      )
+	  ( cond isOpn ( do
+			 (n,al) <- getOpn
+			 openTag ns n al
+		       )
+	    ( cond isCls ( do
+			   n <- getCls
+			   closeTag ns n
+			 )
+	      ( cond isCmt ( do
+			     c <- getCmt
+			     rl <- buildCont ns
+			     return (cmt c ++ rl)
+			   )
+		( cond isWarn ( do
+				w <- getWarn
+				rl <- buildCont ns
+				return (warn w ++ rl)
+			      )
+		  ( cond isPos ( do
+				 getPos
+				 buildCont ns
+			       )
+		    ( cond isEof ( do
+				   isEof
+				   closeAll ns
+				 )
+		      ( return (warn "parse error in tagsoup tree construction")
+		      )
+		    )
+		  )
+		)
+	      )
+	    )
+	  )
+	where
+	closeTag		:: Context -> String -> Parser XmlTrees
+	closeTag ((n':_), _) n1
+	    | n' == n1		= return []			-- a normal closing tag
+								-- all other cases try to repair wrong html
+	closeTag ns'@((n':_), _) n1				-- n1 closes n implicitly
+	    | n' `isInnerElem` n1				-- e.g. ...
+				= do
+				  insCls n1			-- pushback 
+				  insCls n'			-- insert a 
+				  buildCont ns'			-- try again
+	closeTag ns' n1
+	    | isEmptyElem n1	= buildCont ns'			-- ignore a redundant closing tag for empty element
+	closeTag ns'@((n':ns1'), _) n1				-- insert a missing closing tag
+	    | n1 `elem` ns1'	= do
+				  insCls n1
+				  insCls n'
+				  rl <- buildCont ns'
+				  return ( warn ("closing tag " ++ show n' ++
+						 " expected, but " ++ show n1 ++ " found")
+					   ++ rl
+					 )
+	closeTag ns' n1						-- ignore a wrong closing tag
+				= do
+				  rl <- buildCont ns'
+				  return ( warn ("no opening tag for closing tag " ++ show n1)
+					   ++ rl
+					 )
+
+	openTag			:: Context -> String -> [(String, String)] -> Parser XmlTrees
+	openTag cx'@(ns',env') n1 al1
+	    | isPiDT n1		= buildCont cx'
+	    | isEmptyElem n1
+				= do
+				  qn <- mkElemQN nenv n1
+				  al <- mkAttrs al1
+				  rl <- buildCont cx'
+				  return (mkElement qn al [] : rl)
+	    | closesElem ns' n1	= do
+				  insOpn n1 al1
+				  insCls (head ns')
+				  buildCont cx'
+	    | otherwise		= do
+				  qn <- mkElemQN nenv n1
+				  al <- mkAttrs al1
+				  cs <- buildCont ((n1 : ns'), nenv)
+				  rl <- buildCont cx'
+				  return (mkElement qn al cs : rl)
+	    where
+	    nenv		= extendNsEnv withNamespaces al1 env'
+	    mkElemQN		= mkQN withNamespaces False
+	    mkAttrQN		= mkQN withNamespaces True
+	    isPiDT ('?':_)	= True
+	    isPiDT ('!':_)	= True
+	    isPiDT _		= False
+	    mkAttrs		= mapM (uncurry mkA)
+	    mkA an av		= do
+				  qan <- mkAttrQN nenv an
+				  return (mkAttr qan (wrap . mkText $ av))
+
+	closeAll		:: ([String], NsEnv) -> Parser XmlTrees
+	closeAll (ns',_)	= return (concatMap wrn ns')
+				  where
+				  wrn = warn . ("insert missing closing tag " ++) . show
+
+-- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/Parser/XmlDTDParser.hs b/src/Text/XML/HXT/Parser/XmlDTDParser.hs
--- a/src/Text/XML/HXT/Parser/XmlDTDParser.hs
+++ b/src/Text/XML/HXT/Parser/XmlDTDParser.hs
@@ -341,7 +341,7 @@
 		  , k_idrefs
 		  , k_idref
 		  , k_id
-		  , k_enitity
+		  , k_entity
 		  , k_entities
 		  , k_nmtokens
 		  , k_nmtoken
@@ -641,8 +641,9 @@
 
 collectText	:: XmlTree -> String
 
-collectText (NTree (XText s) _)
-    = s
+collectText (NTree n _)
+    | isXTextNode n
+	= textOfXNode n
 
 collectText (NTree (XDTD PEREF al) cl)
     = prefixPe ++ concatMap collectText cl ++ suffixPe
diff --git a/src/Text/XML/HXT/Parser/XmlParsec.hs b/src/Text/XML/HXT/Parser/XmlParsec.hs
--- a/src/Text/XML/HXT/Parser/XmlParsec.hs
+++ b/src/Text/XML/HXT/Parser/XmlParsec.hs
@@ -548,8 +548,12 @@
 --
 
 removeEncodingSpec	:: XmlTree -> XmlTrees
-removeEncodingSpec (NTree (XText s) _cs)
-    = either (xerr . (++ "\n") . show) xtext . parse parser "remove encoding spec" $ s
+removeEncodingSpec (NTree n _cs)
+    | isXTextNode n
+	= ( either (xerr . (++ "\n") . show) xtext
+	    . parse parser "remove encoding spec"
+	    . textOfXNode
+	  ) n
     where
     parser :: Parser String
     parser = do
diff --git a/src/Text/XML/HXT/RelaxNG/BasicArrows.hs b/src/Text/XML/HXT/RelaxNG/BasicArrows.hs
--- a/src/Text/XML/HXT/RelaxNG/BasicArrows.hs
+++ b/src/Text/XML/HXT/RelaxNG/BasicArrows.hs
@@ -196,7 +196,7 @@
 -- ------------------------------------------------------------
 
 mkRngElement		:: ArrowXml a => String -> a n XmlTree -> a n XmlTree -> a n XmlTree
-mkRngElement n		= mkElement (QN "" n relaxNamespace)
+mkRngElement n		= mkElement (mkQName "" n relaxNamespace)
 
 mkRngChoice		:: ArrowXml a => a n XmlTree -> a n XmlTree -> a n XmlTree
 mkRngChoice		= mkRngElement "choice"
@@ -240,7 +240,7 @@
 -- ------------------------------------------------------------
 
 setRngName		:: ArrowXml a => String -> a XmlTree XmlTree
-setRngName n		= setElemName (QN "" n relaxNamespace)
+setRngName n		= setElemName (mkQName "" n relaxNamespace)
 
 setRngNameDiv		:: ArrowXml a => a XmlTree XmlTree
 setRngNameDiv		= setRngName "div"
diff --git a/src/Text/XML/HXT/RelaxNG/DataTypeLibMysql.hs b/src/Text/XML/HXT/RelaxNG/DataTypeLibMysql.hs
--- a/src/Text/XML/HXT/RelaxNG/DataTypeLibMysql.hs
+++ b/src/Text/XML/HXT/RelaxNG/DataTypeLibMysql.hs
@@ -115,13 +115,14 @@
                 
 datatypeAllowsMysql :: DatatypeAllows
 datatypeAllowsMysql d params value _
-    | isJust ndt
-	= (uncurry (numberValid d) . fromJust $ ndt) params value
-    | isJust sdt
-	= (uncurry (stringValid d) . fromJust $ sdt) params value
-    | otherwise
-	= Just $ errorMsgDataTypeNotAllowed d params value mysqlNS
+    = performCheck check value
     where
+    check
+	| isJust ndt	= checkNum (fromJust ndt)
+	| isJust sdt	= checkStr (fromJust sdt)
+	| otherwise	= failure $ errorMsgDataTypeNotAllowed mysqlNS d params
+    checkNum r	= uncurry (numberValid d) r params
+    checkStr r	= uncurry (stringValid d) r params
     ndt = lookup d $
 	  [ ("SIGNED-TINYINT", ((-128), 127))
 	  , ("UNSIGNED-TINYINT", (0, 255))
@@ -149,91 +150,20 @@
 	  , ("LONGBLOB", (0, 4294967296))
 	  ]
 
-{-
-datatypeAllowsMysql :: DatatypeAllows
-
-datatypeAllowsMysql d@"SIGNED-TINYINT" params value _ 
-    = checkNumeric d value (-128) 127 params
-
-datatypeAllowsMysql d@"UNSIGNED-TINYINT" params value _ 
-    = checkNumeric d value 0 255 params
-
-datatypeAllowsMysql d@"SIGNED-SMALLINT" params value _ 
-    = checkNumeric d value (-32768) 32767 params
-
-datatypeAllowsMysql d@"UNSIGNED-SMALLINT" params value _ 
-    = checkNumeric d value 0 65535 params
-
-datatypeAllowsMysql d@"SIGNED-MEDIUMINT" params value _ 
-    = checkNumeric d value (-8388608) 8388607 params
-
-datatypeAllowsMysql d@"UNSIGNED-MEDIUMINT" params value _ 
-    = checkNumeric d value 0 16777215 params
-
-datatypeAllowsMysql d@"SIGNED-INT" params value _ 
-    = checkNumeric d value (-2147483648) 2147483647 params
-
-datatypeAllowsMysql d@"UNSIGNED-INT" params value _ 
-    = checkNumeric d value 0 4294967295 params
-
-datatypeAllowsMysql d@"SIGNED-BIGINT" params value _ 
-    = checkNumeric d value (-9223372036854775808) 9223372036854775807 params
-
-datatypeAllowsMysql d@"UNSIGNED-BIGINT" params value _ 
-    = checkNumeric d value 0 18446744073709551615 params
-
-
-datatypeAllowsMysql d@"CHAR" params value _ 
-    = checkString d value 0 255 params
-
-datatypeAllowsMysql d@"VARCHAR" params value _ 
-    = checkString d value 0 65535 params
-
-datatypeAllowsMysql d@"BINARY" params value _ 
-    = checkString d value 0 255 params
-    
-datatypeAllowsMysql d@"VARBINARY" params value _ 
-    = checkString d value 0 65535 params
-
-datatypeAllowsMysql d@"TINYTEXT" params value _ 
-    = checkString d value 0 256 params -- 2^8
-
-datatypeAllowsMysql d@"TINYBLOB" params value _ 
-    = checkString d value 0 256 params -- 2^8
-    
-datatypeAllowsMysql d@"TEXT" params value _ 
-    = checkString d value 0 65536 params -- 2^16
-
-datatypeAllowsMysql d@"BLOB" params value _ 
-    = checkString d value 0 65536 params -- 2^16
-
-datatypeAllowsMysql d@"MEDIUMTEXT" params value _ 
-    = checkString d value 0 16777216 params -- 2^24
-
-datatypeAllowsMysql d@"MEDIUMBLOB" params value _ 
-    = checkString d value 0 16777216 params -- 2^24
-
-datatypeAllowsMysql d@"LONGTEXT" params value _ 
-    = checkString d value 0 4294967296 params -- 2^32
-
-datatypeAllowsMysql d@"LONGBLOB" params value _ 
-    = checkString d value 0 4294967296 params -- 2^32
-
-
-datatypeAllowsMysql t p v _
-    = Just $ errorMsgDataTypeNotAllowed t p v mysqlNS
--}
+-- ------------------------------------------------------------
 
 -- | Tests whether a XML instance value matches a value-pattern.
-datatypeEqualMysql :: DatatypeEqual
-datatypeEqualMysql d s1 _ s2 _ 
-    | elem d stringTypes  = if (s1 == s2)
-			    then Nothing
-			    else Just $ errorMsgEqual d s1 s2
 
-    | elem d numericTypes = if (normalizeNumber s1 == normalizeNumber s2)
-                            then Nothing
-			    else Just $ errorMsgEqual d s1 s2
-
-    | otherwise           = Just $ errorMsgDataTypeNotAllowed2 d s1 s2 mysqlNS
+datatypeEqualMysql :: DatatypeEqual
+datatypeEqualMysql d s1 _ s2 _
+    = performCheck check (s1, s2)
+      where
+      cmp nf	= arr (\ (x1, x2) -> (nf x1, nf x2))
+		  >>>
+		  assert (uncurry (==)) (uncurry $ errorMsgEqual d)
+      check
+	  | d `elem` stringTypes	= cmp id
+	  | d `elem` numericTypes	= cmp normalizeNumber
+	  | otherwise			= failure $ const (errorMsgDataTypeNotAllowed0 mysqlNS d)
 
+-- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/RelaxNG/DataTypeLibUtils.hs b/src/Text/XML/HXT/RelaxNG/DataTypeLibUtils.hs
--- a/src/Text/XML/HXT/RelaxNG/DataTypeLibUtils.hs
+++ b/src/Text/XML/HXT/RelaxNG/DataTypeLibUtils.hs
@@ -7,6 +7,8 @@
   , errorMsgDataTypeNotAllowed0
   , errorMsgDataTypeNotAllowed2
   , errorMsgDataLibQName
+  , errorMsgParam
+
   , rng_length
   , rng_maxLength
   , rng_minLength
@@ -15,18 +17,32 @@
   , rng_maxInclusive
   , rng_minInclusive
 
+  , module Control.Arrow
   , module Text.XML.HXT.DOM.Util
   , module Text.XML.HXT.RelaxNG.Utils
   , module Text.XML.HXT.RelaxNG.DataTypes  
 
-  , alwaysOK
-  , alwaysErr
-  , orErr
-  , andCheck
-  , withVal
+  , FunctionTable
 
+  , stringValidFT	-- generalized checkString
+  , fctTableString	-- minLength, maxLenght, length
+  , fctTableList	-- minLength, maxLenght, length
+
   , stringValid		-- checkString
   , numberValid		-- checkNumeric
+
+  , numParamValid
+
+  , CheckA		-- Check datatype
+  , CheckString		-- CheckA String String
+  , CheckInteger	-- CheckA Integer Integer
+
+  , performCheck	-- run a CheckA
+  , ok			-- always true
+  , failure		-- create an error meesage
+  , assert		-- create a primitive check from a predicate
+  , assertMaybe		-- create a primitive check from a maybe
+  , checkWith		-- convert value before checking
   )
 
 where
@@ -36,9 +52,97 @@
 import Text.XML.HXT.RelaxNG.DataTypes
 import Text.XML.HXT.RelaxNG.Utils
 
+import Control.Arrow
+
+import Data.Either
 import Data.Maybe
-  ( fromJust )
 
+-- ------------------------------------------------------------
+
+newtype CheckA a b	= C { runCheck :: a -> Either String b }
+
+instance Arrow CheckA where
+    arr f	= C ( Right . f )		-- unit: no check, always o.k., just a conversion
+
+    f1 >>> f2	= C $				-- logical and: f1 and f2 must hold
+		  \ x -> case runCheck f1 x of
+			 Right y	-> runCheck f2 y
+			 Left  e	-> Left e
+
+    first f1	= C $				-- check 1. component of a pair
+		  \ ~(x1, x2) -> case runCheck f1 x1 of
+				 Right y1	-> Right (y1, x2)
+				 Left  e	-> Left  e
+
+    second f2	= C $				-- check 2. component of a pair
+		  \ ~(x1, x2) -> case runCheck f2 x2 of
+				 Right y2	-> Right (x1, y2)
+				 Left  e	-> Left  e
+
+
+
+instance ArrowZero CheckA where
+    zeroArrow	= C $ const (Left "")		-- always false: zero
+
+instance ArrowPlus CheckA where
+    f1 <+> f2	= C $				-- logical or
+		  \ x -> case runCheck f1 x of
+			 Right y1	-> Right y1
+			 Left  e1	-> case runCheck f2 x of
+					   Right y2	-> Right y2
+					   Left  e2	-> Left ( if null e1
+								  then e2
+								  else
+								  if null e2
+								  then e1
+								  else e1 ++ " or " ++ e2
+								)
+
+type CheckString	= CheckA String String
+type CheckInteger	= CheckA Integer Integer
+
+-- | run a check and deliver Just an error message or Nothing
+
+performCheck	:: CheckA a b -> a -> Maybe String
+performCheck c	= either Just (const Nothing) . runCheck c
+
+-- | always failure
+
+failure		:: (a -> String) -> CheckA a b
+failure	msg	= C (Left . msg)
+
+-- | every thing is fine
+
+ok		:: CheckA a a
+ok		= arr id
+
+-- | perform a simple check with a predicate p,
+--   when the predicate holds, assert acts as identity,
+--   else an error message is generated
+
+assert	:: (a -> Bool) -> (a -> String) -> CheckA a a
+assert p msg	= C $ \ x -> if p x then Right x else Left (msg x)
+
+-- | perform a simple check with a Maybe function, Nothing indicates error
+
+assertMaybe	:: (a -> Maybe b) -> (a -> String) -> CheckA a b
+assertMaybe f msg
+    = C $ \ x -> case f x of
+                 Nothing	-> Left (msg x)
+		 Just y		-> Right y
+
+-- | perform a check, but convert the value before checking
+
+checkWith	:: (a -> b) -> CheckA b c -> CheckA a a
+checkWith f c	= C $
+		  \ x -> case runCheck c (f x) of
+			 Right _	-> Right x
+			 Left  e	-> Left  e
+
+-- ------------------------------------------------------------
+
+-- RelaxNG attribute names
+
 rng_length, rng_maxLength, rng_minLength
  ,rng_maxExclusive, rng_minExclusive, rng_maxInclusive, rng_minInclusive :: String
 
@@ -56,7 +160,6 @@
 -- | Function table type
 
 type FunctionTable	= [(String, String -> String -> Bool)]
-type Check a		= a -> Maybe String
 
 -- | Function table for numeric tests,
 -- XML document value is first operand, schema value second
@@ -78,6 +181,16 @@
       , (rng_minLength, (numParamValid (>=)))
       ]
 
+-- | Function table for list tests,
+-- XML document value is first operand, schema value second
+
+fctTableList :: FunctionTable
+fctTableList
+    = [ (rng_length,    (listParamValid (==)))
+      , (rng_maxLength, (listParamValid (<=)))
+      , (rng_minLength, (listParamValid (>=)))
+      ]
+
 {- | 
 tests whether a string value matches a numeric param
 
@@ -90,42 +203,31 @@
 >  foo 
 
 -}
+
 numParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Bool
 numParamValid fct a b
   = isNumber b
     &&
     ( toInteger (length a) `fct` (read b) )
 
--- ------------------------------------------------------------
-
--- | Unit for checks
-alwaysOK	:: Check a
-alwaysOK _	= Nothing
-
--- | Zero for checks: Create an error message for an illegal value
+{- | 
+tests whether a list value matches a length constraint
 
-alwaysErr	:: (a -> String) -> Check a
-alwaysErr msg	= Just . msg
+valid example:
 
--- | Perform check and generate error message on failure
+>  5 
 
-orErr	:: (a -> Bool) -> (a -> String) -> Check a
-orErr p msg s
-    | p s	= Nothing
-    | otherwise	= Just $ msg s
+invalid example:
 
--- | Combine two checks
+>  foo 
 
-andCheck	:: Check a -> Check a -> Check a
-andCheck c1 c2 s
-    = res (c1 s)
-    where
-    res Nothing	= c2 s
-    res r1	= r1
+-}
 
-withVal	:: Check a -> (b -> a) -> Check b
-withVal c1 f v
-    = c1 (f v)
+listParamValid :: (Integer -> Integer -> Bool) -> String -> String -> Bool
+listParamValid fct a b
+  = isNumber b
+    &&
+    ( toInteger (length . words $ a) `fct` (read b) )
 
 -- ------------------------------------------------------------
 -- new check functions
@@ -150,32 +252,42 @@
    
 -}
 
-stringValid :: DatatypeName -> Integer -> Integer -> ParamList -> Check String
-stringValid datatype lowerBound upperBound params
-    = boundsOK `orErr` boundsErr
-      `andCheck`
+stringValid 	:: DatatypeName -> Integer -> Integer -> ParamList -> CheckString
+stringValid	= stringValidFT fctTableString
+
+stringValidFT :: FunctionTable -> DatatypeName -> Integer -> Integer -> ParamList -> CheckString
+stringValidFT ft datatype lowerBound upperBound params
+    = assert boundsOK boundsErr
+      >>>
       paramsStringValid params
     where
     boundsOK v
-	= (toInteger (length v) >= lowerBound)
+	= ( (lowerBound == 0)
+	    ||
+	    (toInteger (length v) >= lowerBound)
+	  )
 	  &&
-	  ((upperBound == (-1)) || (toInteger (length v) <= upperBound))
+	  ( (upperBound == (-1))
+	    ||
+	    (toInteger (length v) <= upperBound)
+	  )
+
     boundsErr v
 	= "Length of " ++ v
           ++ " (" ++ (show $ length v) ++ " chars) out of range: "
           ++ show lowerBound ++ " .. " ++ show upperBound
           ++ " for datatype " ++ datatype
 
-paramStringValid :: (LocalName, String) -> (Check String)
-paramStringValid (pn, pv)
-    = paramOK `orErr` errorMsgParam pn pv
-    where
-    paramOK v  = paramFct pn v pv
-    paramFct n = fromJust $ lookup n fctTableString
+    paramStringValid :: (LocalName, String) -> CheckString
+    paramStringValid (pn, pv)
+	= assert paramOK (errorMsgParam pn pv)
+	  where
+	  paramOK v  = paramFct pn v pv
+	  paramFct n = fromMaybe (const . const $ True) $ lookup n ft
 
-paramsStringValid :: ParamList -> (Check String)
-paramsStringValid
-    = foldr andCheck alwaysOK . map paramStringValid
+    paramsStringValid :: ParamList -> CheckString
+    paramsStringValid
+	= foldr (>>>) ok . map paramStringValid
 
 -- ------------------------------------------------------------
 
@@ -200,36 +312,34 @@
    
 -}
 
-numberValid :: DatatypeName -> Integer -> Integer -> ParamList -> Check String
+numberValid :: DatatypeName -> Integer -> Integer -> ParamList -> CheckString
 numberValid datatype lowerBound upperBound params
-    = (isNumber `orErr` numErr)
-      `andCheck`
-      ( ( (inRange `orErr` rangeErr)
-	  `andCheck`
-	  paramsNumValid params
-	)
-	`withVal` read
-      )
+    = assert isNumber numErr
+      >>>
+      checkWith read ( assert inRange rangeErr
+		       >>>
+		       paramsNumValid params
+		     )
     where
     inRange	:: Integer -> Bool
-    inRange x
-	= x >= lowerBound
-	  &&
-	  x <= upperBound
-    rangeErr v
-	= "Value = " ++ show v ++ " out of range: "
-          ++ show lowerBound ++ " .. " ++ show upperBound
-          ++ " for datatype " ++ datatype
+    inRange x	= x >= lowerBound
+		  &&
+		  x <= upperBound
+
+    rangeErr v	= ( "Value = " ++ show v ++ " out of range: "
+		    ++ show lowerBound ++ " .. " ++ show upperBound
+		    ++ " for datatype " ++ datatype
+		  )
     numErr v
 	= "Value = " ++ v ++ " is not a number"
 
-paramsNumValid	:: ParamList -> Check Integer
+paramsNumValid	:: ParamList -> CheckInteger
 paramsNumValid
-    = foldr andCheck alwaysOK . map paramNumValid
+    = foldr (>>>) ok . map paramNumValid
 
-paramNumValid	:: (LocalName, String) -> Check Integer
+paramNumValid	:: (LocalName, String) -> CheckInteger
 paramNumValid (pn, pv)
-    = paramOK `orErr` (errorMsgParam pn pv . show)
+    = assert paramOK (errorMsgParam pn pv . show)
     where
     paramOK  v = isNumber pv
 		 &&
@@ -266,20 +376,20 @@
 	" with value = " ++ show s1 ++
 	" expected, but value = " ++ show s2 ++ " found" 
       )
-errorMsgDataTypeNotAllowed :: String -> [(String, String)] -> String -> String -> String
-errorMsgDataTypeNotAllowed t p v l
+errorMsgDataTypeNotAllowed :: String -> String -> [(String, String)] -> String -> String
+errorMsgDataTypeNotAllowed l t p v
     = ( "Datatype " ++ show t ++ " with parameter(s) " ++
         formatStringListPairs p ++ " and value = " ++ show v ++
         " not allowed for DatatypeLibrary " ++ show l
       )
 
 errorMsgDataTypeNotAllowed0 :: String -> String -> String
-errorMsgDataTypeNotAllowed0 t l
+errorMsgDataTypeNotAllowed0 l t
     = ( "Datatype " ++ show t ++
         " not allowed for DatatypeLibrary " ++ show l
       )
 errorMsgDataTypeNotAllowed2 :: String -> String -> String -> String -> String
-errorMsgDataTypeNotAllowed2 t v1 v2 l
+errorMsgDataTypeNotAllowed2 l t v1 v2
     = ( "Datatype " ++ show t ++
 	" with values = " ++ show v1 ++
 	" and " ++ show v2 ++ 
@@ -287,5 +397,7 @@
       )
 
 errorMsgDataLibQName :: String -> String -> String -> String
-errorMsgDataLibQName v n l
+errorMsgDataLibQName l n v
     = show v ++ " is not a valid " ++ n ++ " for DatatypeLibrary " ++ l
+
+-- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/RelaxNG/DataTypeLibraries.hs b/src/Text/XML/HXT/RelaxNG/DataTypeLibraries.hs
--- a/src/Text/XML/HXT/RelaxNG/DataTypeLibraries.hs
+++ b/src/Text/XML/HXT/RelaxNG/DataTypeLibraries.hs
@@ -24,7 +24,6 @@
 import Data.Maybe
     ( fromJust )
 
-    
 -- ------------------------------------------------------------
     
 
@@ -96,7 +95,7 @@
 relaxDatatypeLib 	:: DatatypeLibrary
 relaxDatatypeLib	= (relaxNamespace, DTC datatypeAllowsRelax datatypeEqualRelax relaxDatatypes)
 
--- | if there is no datatype uri, the build in datatype library is used
+-- | if there is no datatype uri, the built in datatype library is used
 relaxDatatypeLib'	:: DatatypeLibrary
 relaxDatatypeLib'	= ("",             DTC datatypeAllowsRelax datatypeEqualRelax relaxDatatypes)
 
@@ -112,7 +111,7 @@
     = maybe notAllowed' allowed . lookup d $ relaxDatatypeTable
     where
     notAllowed'
-	= Just $ errorMsgDataTypeNotAllowed d p v relaxNamespace
+	= Just $ errorMsgDataTypeNotAllowed relaxNamespace d p v
     allowed _
 	= Nothing
 
@@ -125,7 +124,7 @@
     = maybe notAllowed' checkValues . lookup d $ relaxDatatypeTable
       where
       notAllowed'
-	  = Just $ errorMsgDataTypeNotAllowed2 d s1 s2 relaxNamespace
+	  = Just $ errorMsgDataTypeNotAllowed2 relaxNamespace d s1 s2
       checkValues predicate
 	  = if predicate s1 s2
 	    then Nothing
diff --git a/src/Text/XML/HXT/RelaxNG/Simplification.hs b/src/Text/XML/HXT/RelaxNG/Simplification.hs
--- a/src/Text/XML/HXT/RelaxNG/Simplification.hs
+++ b/src/Text/XML/HXT/RelaxNG/Simplification.hs
@@ -1,8 +1,21 @@
--- |
--- The modul creates the simplified form of a Relax NG schema.
--- See also chapter 4 of the Relax NG specification.
+-- ------------------------------------------------------------
 
+{- |
+   Module     : Text.XML.HXT.RelaxNG.Simplification
+   Copyright  : Copyright (C) 2008 Torben Kuseler, Uwe Schmidt
+   License    : MIT
 
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   The modul creates the simplified form of a Relax NG schema.
+   See also chapter 4 of the Relax NG specification.
+
+-}
+
+-- ------------------------------------------------------------
+
 module Text.XML.HXT.RelaxNG.Simplification
   ( createSimpleForm
   , getErrors
@@ -26,7 +39,6 @@
     ( removeWhiteSpace
     )
 
-
 import qualified Text.XML.HXT.Arrow.XmlNode as XN
     ( mkAttr
     , mkText
@@ -44,6 +56,7 @@
 import Data.Maybe
 import Data.Char
 import Data.List
+
 import System.Directory
   ( doesFileExist )
 
@@ -238,13 +251,16 @@
 	createAttrL
 	    = setBaseUri &&& constA (map createAttr env) >>> arr2L (:)
 	    where
+
 	    createAttr :: (String, String) -> XmlTree
 	    createAttr (pre, uri)
-		= if null pre					 -- default namespace
-		  then XN.mkAttr (QN "" "RelaxContextDefault" "") [XN.mkText uri]
-		  else XN.mkAttr (QN "" (contextAttributes++pre) "") [XN.mkText uri]
+		= XN.mkAttr (mkName nm) [XN.mkText uri]
+		where
+		nm  | null pre	= "RelaxContextDefault"
+		    | otherwise	= contextAttributes ++ pre
+
 	    setBaseUri :: IOSArrow String XmlTree
-	    setBaseUri = mkAttr (QN "" contextBaseAttr "") (txt $< this)
+	    setBaseUri = mkAttr (mkName contextBaseAttr) (txt $< this)
 
 	replaceQNames :: [(String, String)] -> String -> IOSArrow XmlTree XmlTree                        
 	replaceQNames e name
@@ -1156,7 +1172,7 @@
 
     createPatternElem :: (ArrowXml a) => String -> String -> String -> XmlTrees -> a n XmlTree  
     createPatternElem pattern name combine trees
-	= mkRngElement pattern (mkAttr (QN "" "name" "") (txt name)) 
+	= mkRngElement pattern (mkAttr (mkName "name") (txt name)) 
 	  ( ( mkRngElement combine none 
               (arrL (const trees) >>> getChildren)
             )
@@ -1353,9 +1369,9 @@
 
     createAttr :: NewName -> OldName -> IOSArrow XmlTree XmlTree
     createAttr name oldname
-      = mkAttr (QN "" "name" "") (txt name) 
+      = mkAttr (mkName "name") (txt name) 
         <+>
-        mkAttr (QN "" defineOrigName "") (txt $ "created for element " ++ oldname)
+        mkAttr (mkName defineOrigName) (txt $ "created for element " ++ oldname)
        
   getExpandableDefines :: (ArrowXml a) => a XmlTree Env 
   getExpandableDefines 
@@ -2025,19 +2041,19 @@
 
 representatives		:: NameClass -> [QName]
 representatives AnyName
-    = [QN "" illegalLocalName illegalUri]
+    = [mkQName "" illegalLocalName illegalUri]
 
 representatives (AnyNameExcept nc)
-    = (QN "" illegalLocalName illegalUri) : (representatives nc)
+    = (mkQName "" illegalLocalName illegalUri) : (representatives nc)
 
 representatives (NsName ns)
-    = [QN "" illegalLocalName ns]
+    = [mkQName "" illegalLocalName ns]
 
 representatives (NsNameExcept ns nc)
-    = (QN "" illegalLocalName ns) : (representatives nc)
+    = (mkQName "" illegalLocalName ns) : (representatives nc)
 
 representatives (Name ns ln)
-    = [QN "" ln ns]
+    = [mkQName "" ln ns]
 
 representatives (NameClassChoice nc1 nc2)
     = (representatives nc1) ++ (representatives nc2)
@@ -2191,7 +2207,7 @@
           `when`
           (hasRngName a_relaxSimplificationChanges)
       )
-      (mkAttr (QN "" a_relaxSimplificationChanges "") (txt str))
+      (mkAttr (mkName a_relaxSimplificationChanges) (txt str))
 
 
 getChangesAttr :: IOSArrow XmlTree String
diff --git a/src/Text/XML/HXT/RelaxNG/Utils.hs b/src/Text/XML/HXT/RelaxNG/Utils.hs
--- a/src/Text/XML/HXT/RelaxNG/Utils.hs
+++ b/src/Text/XML/HXT/RelaxNG/Utils.hs
@@ -1,6 +1,20 @@
--- |
--- Some helper functions
+-- ------------------------------------------------------------
 
+{- |
+   Module     : Text.XML.HXT.RelaxNG.Utils
+   Copyright  : Copyright (C) 2008 Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   Helper functions for RelaxNG validation
+
+-}
+
+-- ------------------------------------------------------------
+
 module Text.XML.HXT.RelaxNG.Utils
     ( isRelaxAnyURI
     , compareURI
@@ -14,13 +28,11 @@
     , formatStringListQuot
     , formatStringListPairs
     , formatStringListArr
-    , qn2String
     )
 where
 
-import Text.XML.HXT.Arrow.DOMInterface
-
 import Text.ParserCombinators.Parsec
+
 import Text.XML.HXT.Parser.XmlParser
     ( skipS0
     , nmtoken
@@ -79,8 +91,13 @@
 
 checkByParsing	:: Parser String -> String -> Bool
 checkByParsing p s
-    = either (const False) (const True) (parse p "" s)
-                  
+    = either (const False) (const True) (parse p' "" s)
+      where
+      p' = do
+	   r <- p
+	   eof
+	   return r
+
 -- | Tests whether a string matches a number [-](0-9)*
 isNumber :: String -> Bool
 isNumber
@@ -93,7 +110,6 @@
 	  m <- option "" (string "-")
 	  n <- many1 digit
 	  skipS0
-	  eof
 	  return $ m ++ n
 
 isNmtoken	:: String -> Bool
@@ -142,11 +158,4 @@
     = reverse $ drop (length spacer) $ reverse $ 
       foldr (\e -> ((if e /= "" then sf e ++ spacer else "") ++)) "" l
 
-
--- | Formats a qualified name, e.g. \"{namespace}localName\"
-
-qn2String :: QName -> String
-qn2String (QN _ lp ns)
-    = if null ns
-      then lp
-      else "{" ++ ns ++ "}" ++ lp
+-- ----------------------------------------
diff --git a/src/Text/XML/HXT/RelaxNG/Validation.hs b/src/Text/XML/HXT/RelaxNG/Validation.hs
--- a/src/Text/XML/HXT/RelaxNG/Validation.hs
+++ b/src/Text/XML/HXT/RelaxNG/Validation.hs
@@ -1,8 +1,22 @@
--- |
--- Validation of a XML document with respect to a valid Relax NG schema in simple form.
--- Copied and modified from \"An algorithm for RELAX NG validation\" by James Clark
--- ().
+-- ------------------------------------------------------------
 
+{- |
+   Module     : Text.XML.HXT.RelaxNG.Validation
+   Copyright  : Copyright (C) 2008 Torben Kuseler, Uwe Schmidt
+   License    : MIT
+
+   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
+   Stability  : stable
+   Portability: portable
+
+   Validation of a XML document with respect to a valid Relax NG schema in simple form.
+   Copied and modified from \"An algorithm for RELAX NG validation\" by James Clark
+   ().
+
+-}
+
+-- ------------------------------------------------------------
+
 module Text.XML.HXT.RelaxNG.Validation
     ( validateWithRelaxAndHandleErrors
     , validateDocWithRelax
@@ -36,24 +50,24 @@
 import Text.XML.HXT.RelaxNG.PatternToString
 import Text.XML.HXT.RelaxNG.DataTypeLibraries
 import Text.XML.HXT.RelaxNG.Utils
-    ( qn2String
-    , formatStringListQuot
+    ( formatStringListQuot
     , compareURI
     )
 
 import qualified Text.XML.HXT.Arrow.XmlNode as XN
-    ( getText
-    )
 
-import Text.XML.HXT.DOM.Unicode ( isXmlSpaceChar )
-
-import Data.Tree.NTree.TypeDefs	( NTree (..) )
+import Text.XML.HXT.DOM.Unicode
+    ( isXmlSpaceChar
+    )
 
-import Data.Char
 import Data.Maybe
+    ( fromJust
+    )
+
 {-
 import qualified Debug.Trace as T
 -}
+
 -- ------------------------------------------------------------
 
 validateWithRelaxAndHandleErrors	:: IOSArrow XmlTree XmlTree -> IOSArrow XmlTree XmlTree
@@ -198,13 +212,13 @@
 -- ------------------------------------------------------------
 --
 -- | tests whether a 'NameClass' contains a particular 'QName'
+
 contains :: NameClass -> QName -> Bool
 contains AnyName _			= True
-contains (AnyNameExcept nc) n		= not (contains nc n)
-contains (NsName ns1) (QN _ _ ns2)	= ns1 == ns2
-contains (NsNameExcept ns1 nc) qn@(QN _ _ ns2)
-					= ns1 == ns2 && not (contains nc qn)
-contains (Name ns1 ln1) (QN _ ln2 ns2)	= (ns1 == ns2) && (ln1 == ln2)
+contains (AnyNameExcept nc)    n	= not (contains nc n)
+contains (NsName ns1)          qn	= ns1 == namespaceUri qn
+contains (NsNameExcept ns1 nc) qn	= ns1 == namespaceUri qn && not (contains nc qn)
+contains (Name ns1 ln1)        qn	= (ns1 == namespaceUri qn) && (ln1 == localPart qn)
 contains (NameClassChoice nc1 nc2) n 	= (contains nc1 n) || (contains nc2 n)
 contains (NCError _) _ 			= False
 
@@ -235,22 +249,19 @@
 
 childDeriv :: Context -> Pattern -> XmlTree -> Pattern
 
-childDeriv cx p (NTree (XText s) _)
-    = textDeriv cx p s
-
-childDeriv _ p (NTree (XTag qn atts) children)
-    = let
-      cx = ("",[])
-      p1 = startTagOpenDeriv p qn
-      p2 = attsDeriv cx p1 atts
-      p3 = startTagCloseDeriv p2
-      p4 = childrenDeriv cx p3 children
-      in
-      endTagDeriv p4
-
-childDeriv _ _ _
-    = notAllowed "Call to childDeriv with wrong arguments"
-
+childDeriv cx p t
+    | XN.isText t	= textDeriv cx p . fromJust . XN.getText $ t
+    | XN.isElem t	= endTagDeriv p4
+    | otherwise		= notAllowed "Call to childDeriv with wrong arguments"
+    where
+    children	=            XN.getChildren $ t
+    qn		= fromJust . XN.getElemName $ t 
+    atts	= fromJust . XN.getAttrl    $ t
+    cx1		= ("",[])
+    p1		= startTagOpenDeriv p qn
+    p2		= attsDeriv cx1 p1 atts
+    p3		= startTagCloseDeriv p2
+    p4		= childrenDeriv cx1 p3 children
 
 -- ------------------------------------------------------------
 --  
@@ -353,13 +364,13 @@
 startTagOpenDeriv (Choice p1 p2) qn
     = choice (startTagOpenDeriv p1 qn) (startTagOpenDeriv p2 qn)
 
-startTagOpenDeriv (Element nc p) qn@(QN _ local uri)
+startTagOpenDeriv (Element nc p) qn
     | contains nc qn
 	= after p Empty
     | otherwise
 	= notAllowed $
 	  "Element with name " ++ nameClassToString nc ++ 
-	    " expected, but {" ++ uri ++ "}" ++ local ++ " found"
+	    " expected, but " ++ universalName qn ++ " found"
 
 startTagOpenDeriv (Interleave p1 p2) qn
     = choice
@@ -385,10 +396,8 @@
 startTagOpenDeriv n@(NotAllowed _) _
     = n
 
-startTagOpenDeriv p (QN _ local uri)
-    = notAllowed ( show p ++ " expected, but Element {" ++
-		   uri ++ "}" ++ local ++ " found"
-		 )
+startTagOpenDeriv p qn
+    = notAllowed ( show p ++ " expected, but Element " ++ universalName qn ++ " found" )
 
 -- ------------------------------------------------------------
 
@@ -414,11 +423,11 @@
 
 attsDeriv _ p []
     = p
-attsDeriv cx p (attribute@(NTree (XAttr _) _):xs)
-    = attsDeriv cx (attDeriv cx p attribute) xs
-
-attsDeriv _ _ _
-    = notAllowed "Call to attsDeriv with wrong arguments"
+attsDeriv cx p (t : ts)
+    | XN.isAttr t
+	= attsDeriv cx (attDeriv cx p t) ts
+    | otherwise
+	= notAllowed "Call to attsDeriv with wrong arguments"
 
 attDeriv :: Context -> Pattern -> XmlTree -> Pattern
 
@@ -443,21 +452,28 @@
       (attDeriv cx p att)
       (choice (OneOrMore p) Empty)
 
-attDeriv cx (Attribute nc p) (NTree (XAttr qn) av)
-    | not (contains nc qn)
+attDeriv cx (Attribute nc p) att
+    | isa
+      &&
+      not (contains nc qn)
 	= notAllowed1 $
 	  "Attribute with name " ++ nameClassToString nc
-          ++ " expected, but " ++ qn2String qn ++ " found"
-    | ( ( nullable p
+          ++ " expected, but " ++ universalName qn ++ " found"
+    | isa
+      &&
+      ( ( nullable p
 	  &&
 	  whitespace val
 	)
 	|| nullable p'
       )
 	= Empty
-    | otherwise
+    | isa
 	= err' p'
     where
+    isa =            XN.isAttr      $ att
+    qn  = fromJust . XN.getAttrName $ att
+    av  =            XN.getChildren $ att
     val = showXts av
     p'  = textDeriv cx p val
 
@@ -524,17 +540,19 @@
     = p
 
 childrenDeriv cx p []
-    = childrenDeriv cx p etxt
-    where
-    etxt = [(NTree (XText "") [])]
+    = childrenDeriv cx p [XN.mkText ""]
 
-childrenDeriv cx p [tt@(NTree (XText s) _)]
-    | whitespace s
+childrenDeriv cx p [tt]
+    | ist
+      &&
+      whitespace s
 	= choice p p1
-    | otherwise
+    | ist
 	= p1
     where
-    p1 = childDeriv cx p tt
+    ist =            XN.isText    tt
+    s   = fromJust . XN.getText $ tt
+    p1  = childDeriv cx p tt
 
 childrenDeriv cx p children
     = stripChildrenDeriv cx p children    
diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs
--- a/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs
+++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/DataTypeLibW3C.hs
@@ -19,13 +19,36 @@
 module Text.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C
   ( w3cNS
   , w3cDatatypeLib
+
+  , xsd_string			-- data type names
+  , xsd_normalizedString
+  , xsd_token
+  , xsd_language
+  , xsd_NMTOKEN
+  , xsd_NMTOKENS
+  , xsd_Name
   , xsd_NCName
+  , xsd_ID
+  , xsd_IDREF
+  , xsd_IDREFS
+  , xsd_ENTITY
+  , xsd_ENTITIES
   , xsd_anyURI
   , xsd_QName
-  , xsd_string
-  , xsd_length
+  , xsd_NOTATION
+  , xsd_hexBinary
+  , xsd_base64Binary
+  , xsd_decimal
+
+  , xsd_length			-- facet names
   , xsd_maxLength
   , xsd_minLength
+  , xsd_maxExclusive
+  , xsd_minExclusive
+  , xsd_maxInclusive
+  , xsd_minInclusive
+  , xsd_totalDigits
+  , xsd_fractionDigits
   , xsd_pattern
   , xsd_enumeration
   )
@@ -42,56 +65,119 @@
   )
 
 import Text.XML.HXT.RelaxNG.XmlSchema.Regex
-    ( ) -- match )
+    ( Regex
+    , match
+    )
 import Text.XML.HXT.RelaxNG.XmlSchema.RegexParser
-    ( ) -- parseRegex )
+    ( parseRegex )
 
 import Data.Maybe
+import Data.Ratio
   
 -- ------------------------------------------------------------
 
 -- | Namespace of the W3C XML schema datatype library
+
 w3cNS	:: String
 w3cNS	= "http://www.w3.org/2001/XMLSchema-datatypes"
 
 
-xsd_anyURI
- , xsd_QName
- , xsd_string
+xsd_string
  , xsd_normalizedString
  , xsd_token
+ , xsd_language
  , xsd_NMTOKEN
+ , xsd_NMTOKENS
  , xsd_Name
  , xsd_NCName
  , xsd_ID
  , xsd_IDREF
- , xsd_ENTITY :: String
+ , xsd_IDREFS
+ , xsd_ENTITY
+ , xsd_ENTITIES
+ , xsd_anyURI
+ , xsd_QName
+ , xsd_NOTATION
+ , xsd_hexBinary
+ , xsd_base64Binary
+ , xsd_decimal
+ , xsd_integer
+ , xsd_nonPositiveInteger
+ , xsd_negativeInteger
+ , xsd_nonNegativeInteger
+ , xsd_positiveInteger
+ , xsd_long
+ , xsd_int
+ , xsd_short
+ , xsd_byte
+ , xsd_unsignedLong
+ , xsd_unsignedInt
+ , xsd_unsignedShort
+ , xsd_unsignedByte :: String
 
-xsd_anyURI		= "anyURI"
-xsd_QName		= "QName"
 xsd_string		= "string"
 xsd_normalizedString	= "normalizedString"
 xsd_token		= "token"
+xsd_language		= "language"
 xsd_NMTOKEN		= "NMTOKEN"
+xsd_NMTOKENS		= "NMTOKENS"
 xsd_Name		= "Name"
 xsd_NCName		= "NCName"
 xsd_ID			= "ID"
 xsd_IDREF		= "IDREF"
+xsd_IDREFS		= "IDREFS"
 xsd_ENTITY		= "ENTITY"
+xsd_ENTITIES		= "ENTITIES"
+xsd_anyURI		= "anyURI"
+xsd_QName		= "QName"
+xsd_NOTATION		= "NOTATION"
+xsd_hexBinary		= "hexBinary"
+xsd_base64Binary	= "base64Binary"
+xsd_decimal		= "decimal"
+xsd_integer		= "integer"
+xsd_nonPositiveInteger	= "nonPositiveInteger"
+xsd_negativeInteger	= "negativeInteger"
+xsd_nonNegativeInteger	= "nonNegativeInteger"
+xsd_positiveInteger	= "positiveInteger"
+xsd_long		= "long"
+xsd_int			= "int"
+xsd_short		= "short"
+xsd_byte		= "byte"
+xsd_unsignedLong	= "unsignedLong"
+xsd_unsignedInt		= "unsignedInt"
+xsd_unsignedShort	= "unsignedShort"
+xsd_unsignedByte	= "unsignedByte"
 
+
 xsd_length
  , xsd_maxLength
  , xsd_minLength
+ , xsd_maxExclusive
+ , xsd_minExclusive
+ , xsd_maxInclusive
+ , xsd_minInclusive
+ , xsd_totalDigits
+ , xsd_fractionDigits
  , xsd_pattern
  , xsd_enumeration :: String
 
-xsd_length	= rng_length
-xsd_maxLength	= rng_maxLength
-xsd_minLength	= rng_minLength
-xsd_pattern	= "pattern"
-xsd_enumeration	= "enumeration"
+xsd_length		= rng_length
+xsd_maxLength		= rng_maxLength
+xsd_minLength		= rng_minLength
 
+xsd_maxExclusive	= rng_maxExclusive
+xsd_minExclusive	= rng_minExclusive
+xsd_maxInclusive	= rng_maxInclusive
+xsd_minInclusive	= rng_minInclusive
 
+xsd_totalDigits		= "totalDigits"
+xsd_fractionDigits	= "fractionDigits"
+
+xsd_pattern		= "pattern"
+xsd_enumeration		= "enumeration"
+
+-- ----------------------------------------
+
 -- | The main entry point to the W3C XML schema datatype library.
 --
 -- The 'DTC' constructor exports the list of supported datatypes and params.
@@ -103,98 +189,426 @@
 
 -- | All supported datatypes of the library
 w3cDatatypes :: AllowedDatatypes
-w3cDatatypes = [ (xsd_anyURI,	stringParams)
-               , (xsd_QName,	stringParams)
-               , (xsd_string,	stringParams)
-	       , (xsd_normalizedString, stringParams)
-               , (xsd_token,	stringParams)
-               , (xsd_NMTOKEN,	stringParams)
-	       , (xsd_Name,	stringParams)
-	       , (xsd_NCName,	stringParams)
-	       , (xsd_ID,	stringParams)
-	       , (xsd_IDREF,	stringParams)
-	       , (xsd_ENTITY,	stringParams)
+w3cDatatypes = [ (xsd_string,			stringParams)
+	       , (xsd_normalizedString, 	stringParams)
+               , (xsd_token,			stringParams)
+	       , (xsd_language,			stringParams)
+               , (xsd_NMTOKEN,			stringParams)
+               , (xsd_NMTOKENS,			listParams  )
+	       , (xsd_Name,			stringParams)
+	       , (xsd_NCName,			stringParams)
+	       , (xsd_ID,			stringParams)
+	       , (xsd_IDREF,			stringParams)
+	       , (xsd_IDREFS,			listParams  )
+	       , (xsd_ENTITY,			stringParams)
+	       , (xsd_ENTITIES,			listParams  )
+               , (xsd_anyURI,			stringParams)
+               , (xsd_QName,			stringParams)
+               , (xsd_NOTATION,			stringParams)
+	       , (xsd_hexBinary,		stringParams)
+	       , (xsd_base64Binary,		stringParams)
+	       , (xsd_decimal,			decimalParams)
+	       , (xsd_integer,			integerParams)
+	       , (xsd_nonPositiveInteger,	integerParams)
+	       , (xsd_negativeInteger,		integerParams)
+	       , (xsd_nonNegativeInteger,	integerParams)
+	       , (xsd_positiveInteger,		integerParams)
+	       , (xsd_long,			integerParams)
+	       , (xsd_int,			integerParams)
+	       , (xsd_short,			integerParams)
+	       , (xsd_byte,			integerParams)
+	       , (xsd_unsignedLong,		integerParams)
+	       , (xsd_unsignedInt,		integerParams)
+	       , (xsd_unsignedShort,		integerParams)
+	       , (xsd_unsignedByte,		integerParams)
                ]
 
+-- ----------------------------------------
+
 -- | List of allowed params for the string datatypes
-stringParams :: AllowedParams
-stringParams = [ xsd_length
-	       , xsd_maxLength
-	       , xsd_minLength
-	       ]
+stringParams	:: AllowedParams
+stringParams	= xsd_pattern : map fst fctTableString
 
+-- ----------------------------------------
+
+patternValid	:: ParamList -> CheckString
+patternValid params
+    = foldr (>>>) ok . map paramPatternValid $ params
+      where
+      paramPatternValid (pn, pv)
+	  | pn == xsd_pattern   = assert (patParamValid pv) (errorMsgParam pn pv)
+	  | otherwise		= ok
+
+patParamValid :: String -> String -> Bool
+patParamValid regex a
+    = case parseRegex regex of
+      (Left _  )	-> False
+      (Right ex)	-> isNothing . match ex $ a
+
+-- ----------------------------------------
+
+-- | List of allowed params for the decimal datatypes
+
+decimalParams	:: AllowedParams
+decimalParams	= xsd_pattern : map fst fctTableDecimal
+
+fctTableDecimal	:: [(String, String -> Rational -> Bool)]
+fctTableDecimal
+    = [ (xsd_maxExclusive,   cvd (>))
+      , (xsd_minExclusive,   cvd (<))
+      , (xsd_maxInclusive,   cvd (>=))
+      , (xsd_minInclusive,   cvd (<=))
+      , (xsd_totalDigits,    cvi (\ l v ->    totalDigits v == l))
+      , (xsd_fractionDigits, cvi (\ l v -> fractionDigits v == l))
+      ]
+    where
+    cvd		:: (Rational -> Rational -> Bool) -> (String -> Rational -> Bool)
+    cvd	op	= \ x y -> isDecimal x && readDecimal x `op` y
+
+    cvi		:: (Int -> Rational -> Bool) -> (String -> Rational -> Bool)
+    cvi	op	= \ x y -> isNumber x && read x `op` y
+
+decimalValid	:: ParamList -> CheckA Rational Rational
+decimalValid params
+    = foldr (>>>) ok . map paramDecimalValid $ params
+    where
+    paramDecimalValid (pn, pv)
+	= assert
+	  ((fromMaybe (const . const $ True) . lookup pn $ fctTableDecimal) pv)
+	  (errorMsgParam pn pv . showDecimal)
+
+-- ----------------------------------------
+
+-- | List of allowed params for the decimal and integer datatypes
+
+integerParams	:: AllowedParams
+integerParams	= xsd_pattern : map fst fctTableInteger
+
+fctTableInteger	:: [(String, String -> Integer -> Bool)]
+fctTableInteger
+    = [ (xsd_maxExclusive,   cvi (>))
+      , (xsd_minExclusive,   cvi (<))
+      , (xsd_maxInclusive,   cvi (>=))
+      , (xsd_minInclusive,   cvi (<=))
+      , (xsd_totalDigits,    cvi (\ l v -> totalD v == toInteger l))
+      ]
+    where
+    cvi		:: (Integer -> Integer -> Bool) -> (String -> Integer -> Bool)
+    cvi	op	= \ x y -> isNumber x && read x `op` y
+
+    totalD i
+	| i < 0	    = totalD (0-i)
+	| otherwise = toInteger . length . show $ i
+
+integerValid	:: DatatypeName -> ParamList -> CheckA Integer Integer
+integerValid datatype params 
+    = assertInRange
+      >>>
+      (foldr (>>>) ok . map paramIntegerValid $ params)
+    where
+    assertInRange 	:: CheckA Integer Integer
+    assertInRange
+	= assert
+	  (fromMaybe (const True) . lookup datatype $ integerRangeTable)
+	  (\ v -> ( "Datatype " ++ show datatype ++
+		    " with value = " ++ show v ++
+		    " not in integer value range"
+		  )
+	  )
+    paramIntegerValid (pn, pv)
+	= assert
+	  ((fromMaybe (const . const $ True) . lookup pn $ fctTableInteger) pv)
+	  (errorMsgParam pn pv . show)
+
+integerRangeTable	:: [(String, Integer -> Bool)]
+integerRangeTable	= [ (xsd_integer,		const True)
+			  , (xsd_nonPositiveInteger,	(<=0)	)
+			  , (xsd_negativeInteger,	( <0)	)
+			  , (xsd_nonNegativeInteger,	(>=0)	)
+			  , (xsd_positiveInteger,	( >0)	)
+			  , (xsd_long,			inR 9223372036854775808)
+			  , (xsd_int,			inR 2147483648)
+			  , (xsd_short,			inR 32768)
+			  , (xsd_byte,			inR 128)
+			  , (xsd_unsignedLong,		inP 18446744073709551616)
+			  , (xsd_unsignedInt,		inP 4294967296)
+			  , (xsd_unsignedShort,		inP 65536)
+			  , (xsd_unsignedByte,		inP 256)
+			  ]
+                          where
+			  inR b i	= (0 - b) <= i && i < b
+			  inP b i	= 0 <= i       && i < b
+
+-- ----------------------------------------
+
+-- | List of allowed params for the list datatypes
+
+listParams	:: AllowedParams
+listParams	= xsd_pattern : map fst fctTableList
+
+listValid	:: DatatypeName -> ParamList -> CheckString
+listValid d	= stringValidFT fctTableList d 0 (-1)
+
+-- ----------------------------------------
+
+isNameList	:: (String -> Bool) -> String -> Bool
+isNameList p w
+    = not (null ts) && all p ts
+      where
+      ts = words w
+
+-- ----------------------------------------
+
+rex		:: String -> Regex
+rex		= either undefined id . parseRegex
+
+isRex		:: Regex -> String -> Bool
+isRex ex	= isNothing . match ex
+
+-- ----------------------------------------
+
+rexLanguage
+  , rexHexBinary
+  , rexBase64Binary
+  , rexDecimal
+  , rexInteger	:: Regex
+
+rexLanguage	= rex "[A-Za-z]{1,8}(-[A-Za-z]{1,8})*"
+rexHexBinary	= rex "([A-Fa-f0-9]{2})*"
+rexBase64Binary	= rex $
+		  "(" ++ b64 ++ "{4})*((" ++ b64 ++ "{2}==)|(" ++ b64 ++ "{3}=)|)"
+		  where
+		  b64     = "[A-Za-z0-9+/]"
+rexDecimal	= rex "(\\+|-)?(([0-9]+(\\.[0-9]*)?)|(\\.[0-9]+))"
+rexInteger	= rex "(\\+|-)?[0-9]+"
+
+isLanguage
+  , isHexBinary
+  , isBase64Binary
+  , isDecimal
+  , isInteger	:: String -> Bool
+
+isLanguage	= isRex rexLanguage
+isHexBinary	= isRex rexHexBinary
+isBase64Binary	= isRex rexBase64Binary
+isDecimal	= isRex rexDecimal
+isInteger	= isRex rexInteger
+
+-- ----------------------------------------
+
+normBase64	:: String -> String
+normBase64	= filter isB64
+		  where
+		  isB64 c = ( 'A' <= c && c <= 'Z')
+			    ||
+			    ( 'a' <= c && c <= 'z')
+			    ||
+			    ( '0' <= c && c <= '9')
+			    ||
+			    c == '+'
+			    ||
+			    c == '/'
+			    ||
+			    c == '='
+
+-- ----------------------------------------
+
+readDecimal
+  , readDecimal'	:: String -> Rational
+
+readDecimal ('+':s)	= readDecimal' s
+readDecimal ('-':s)	= negate (readDecimal' s)
+readDecimal      s	= readDecimal' s
+
+readDecimal' s
+    | f == 0	= (n % 1)
+    | otherwise	= (n % 1) + (f % (10 ^ (toInteger (length fs))))
+    where
+    (ns, fs') = span (/= '.') s
+    fs = drop 1 fs'
+
+    f :: Integer
+    f | null fs		= 0
+      | otherwise	= read fs
+    n :: Integer
+    n | null ns		= 0
+      | otherwise	= read ns
+
+totalDigits
+  , totalDigits'
+  , fractionDigits	:: Rational -> Int
+
+totalDigits r
+    | r == 0			= 0
+    | r < 0			= totalDigits' . negate  $ r
+    | otherwise			= totalDigits'           $ r
+
+totalDigits' r
+    | denominator r == 1	= length . show . numerator  $ r
+    | r < (1%1)			= (\ x -> x-1) . totalDigits' . (+ (1%1))    $ r
+    | otherwise			= totalDigits' . (* (10 % 1)) $ r
+
+fractionDigits r
+    | denominator r == 1	= 0
+    | otherwise			= (+1) . fractionDigits . (* (10 % 1)) $ r
+
+showDecimal
+  , showDecimal'		:: Rational -> String
+
+showDecimal d
+    | d < 0	= ('-':) . showDecimal' . negate    $ d
+    | d < 1	= drop 1 . showDecimal' . (+ (1%1)) $ d
+    | otherwise	=          showDecimal'             $ d
+
+showDecimal' d
+    | denominator d == 1    	= show . numerator $ d
+    | otherwise			= times10 0        $ d
+    where
+    times10 i' d'
+	| denominator d' == 1	= let
+				  (x, y) = splitAt i' . reverse . show . numerator $ d'
+				  in
+				  reverse y ++ "." ++ reverse x
+	| otherwise		= times10 (i' + 1) (d' * (10 % 1))
+				  
+-- ----------------------------------------
+
 -- | Tests whether a XML instance value matches a data-pattern.
 -- (see also: 'stringValid')
 
 datatypeAllowsW3C :: DatatypeAllows
 datatypeAllowsW3C d params value _
-    | d == xsd_string
-	= validString value
+    = performCheck check value
+    where
+    validString normFct
+	= validPattern
+	  >>>
+	  arr normFct
+	  >>>
+	  validLength
 
-    | d == xsd_normalizedString
-	= validString (normalizeBlanks value)
+    validNormString
+	= validString normalizeWhitespace
 
-    | d == xsd_token
-	= validString value1
+    validPattern
+	= patternValid params
 
-    | d == xsd_NMTOKEN
-	= isNmtoken `andValidString` value1
+    validLength
+	= stringValid d 0 (-1) params
 
-    | d == xsd_Name
-	= isName `andValidString` value1
+    validList
+	= validPattern
+	  >>>
+	  arr normalizeWhitespace
+	  >>>
+	  validListLength
 
-    | d `elem` [ xsd_NCName
-	       , xsd_ID
-	       , xsd_IDREF
-	       , xsd_ENTITY
-	       ]
-        = isNCName
-	  `andValidString` value1
+    validListLength
+	= listValid d params
 
-    | d == xsd_anyURI
-	= isURIReference
-	  `andValidString` value2
+    validName isN
+	= assertW3C isN
 
-    | d == xsd_QName
-	=  isWellformedQualifiedName
-	  `andValidString` value1
+    validNCName
+	= validNormString >>> validName isNCName
 
-    | otherwise
-	= alwaysErr notAllowed' value
+    validQName
+	= validNormString >>> validName isWellformedQualifiedName
 
-    where
-    value1 = normalizeWhitespace value
-    value2 = escapeURI           value1
+    validDecimal
+	= arr normalizeWhitespace
+	  >>>
+	  assertW3C isDecimal
+	  >>>
+	  checkWith readDecimal (decimalValid params)
 
-    andValidString p = (p `orErr` notValid) `andCheck` validString
-    validString      = stringValid d 0 (-1) params
-    notValid v'      = errorMsgDataLibQName v' d w3cNS
-    notAllowed' v'   = errorMsgDataTypeNotAllowed d params v' w3cNS
+    validInteger inRange
+	= validPattern
+	  >>>
+	  arr normalizeWhitespace
+	  >>>
+	  assertW3C isInteger
+	  >>>
+	  checkWith read (integerValid inRange params)
 
+    check	:: CheckString
+    check	= fromMaybe notFound . lookup d $ checks
+
+    notFound	= failure $ errorMsgDataTypeNotAllowed w3cNS d params
+
+    checks	:: [(String, CheckA String String)]
+    checks	= [ (xsd_string,		validString id)
+		  , (xsd_normalizedString,	validString normalizeBlanks)
+		  , (xsd_token,			validNormString)
+		  , (xsd_language,		validNormString >>> assertW3C isLanguage)
+		  , (xsd_NMTOKEN,		validNormString >>> validName isNmtoken)
+		  , (xsd_NMTOKENS,		validList       >>> validName (isNameList isNmtoken))
+		  , (xsd_Name,			validNormString >>> validName isName)
+		  , (xsd_NCName,		validNCName)
+		  , (xsd_ID,			validNCName)
+		  , (xsd_IDREF,			validNCName)
+		  , (xsd_IDREFS,		validList       >>> validName (isNameList isNCName))
+		  , (xsd_ENTITY,		validNCName)
+		  , (xsd_ENTITIES,		validList       >>> validName (isNameList isNCName))
+		  , (xsd_anyURI,		validName isURIReference >>> validString escapeURI)
+		  , (xsd_QName,			validQName)
+		  , (xsd_NOTATION,		validQName)
+		  , (xsd_hexBinary,		validString id         >>> assertW3C isHexBinary)
+		  , (xsd_base64Binary,		validString normBase64 >>> assertW3C isBase64Binary)
+		  , (xsd_decimal,		validPattern >>> validDecimal)
+		  , (xsd_integer,		validInteger xsd_integer)
+		  , (xsd_nonPositiveInteger,	validInteger xsd_nonPositiveInteger)
+		  , (xsd_negativeInteger,	validInteger xsd_negativeInteger)
+		  , (xsd_nonNegativeInteger,	validInteger xsd_nonNegativeInteger)
+		  , (xsd_positiveInteger,	validInteger xsd_positiveInteger)
+		  , (xsd_long,			validInteger xsd_long)
+		  , (xsd_int,			validInteger xsd_int)
+		  , (xsd_short,			validInteger xsd_short)
+		  , (xsd_byte,			validInteger xsd_byte)
+		  , (xsd_unsignedLong,		validInteger xsd_unsignedLong)
+		  , (xsd_unsignedInt,		validInteger xsd_unsignedInt)
+		  , (xsd_unsignedShort,		validInteger xsd_unsignedShort)
+		  , (xsd_unsignedByte,		validInteger xsd_unsignedByte)
+		  ]
+    assertW3C p	= assert p errW3C
+    errW3C	= errorMsgDataLibQName w3cNS d
+
+-- ----------------------------------------
+
 -- | Tests whether a XML instance value matches a value-pattern.
+
 datatypeEqualW3C :: DatatypeEqual
 datatypeEqualW3C d s1 _ s2 _
-    | isJust nf
-	= check (fromJust nf)
-    | otherwise
-	= Just $ errorMsgDataTypeNotAllowed0 d w3cNS
+    = performCheck check (s1, s2)
     where
-    check f
-	| s1' == s2' = Nothing
-	| otherwise  = Just $ errorMsgEqual d s1' s2'
-	where
-	s1' = f s1
-	s2' = f s2
-    nf = lookup d norm
+    check	:: CheckA (String, String) (String, String)
+    check	= maybe notFound found . lookup d $ norm
+
+    notFound	= failure $ const (errorMsgDataTypeNotAllowed0 w3cNS d)
+
+    found nf	= arr (\ (x1, x2) -> (nf x1, nf x2))			-- normalize both values
+		  >>>
+		  assert (uncurry (==)) (uncurry $ errorMsgEqual d)	-- and check on (==)
+
     norm = [ (xsd_string,		id			)
 	   , (xsd_normalizedString,	normalizeBlanks		)
 	   , (xsd_token,		normalizeWhitespace	)
+	   , (xsd_language,		normalizeWhitespace	)
 	   , (xsd_NMTOKEN,		normalizeWhitespace	)
+	   , (xsd_NMTOKENS,		normalizeWhitespace	)
 	   , (xsd_Name,			normalizeWhitespace	)
 	   , (xsd_NCName,		normalizeWhitespace	)
 	   , (xsd_ID,			normalizeWhitespace	)
 	   , (xsd_IDREF,		normalizeWhitespace	)
+	   , (xsd_IDREFS,		normalizeWhitespace	)
 	   , (xsd_ENTITY,		normalizeWhitespace	)
+	   , (xsd_ENTITIES,		normalizeWhitespace	)
 	   , (xsd_anyURI,		escapeURI . normalizeWhitespace	)
 	   , (xsd_QName,		normalizeWhitespace	)
+	   , (xsd_NOTATION,		normalizeWhitespace	)
+	   , (xsd_hexBinary,		id			)
+	   , (xsd_base64Binary,		normBase64		)
+	   , (xsd_decimal,		show . readDecimal . normalizeWhitespace	)
 	   ]
+
+-- ----------------------------------------
diff --git a/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs b/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs
--- a/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs
+++ b/src/Text/XML/HXT/RelaxNG/XmlSchema/Regex.hs
@@ -271,7 +271,7 @@
     | nullable e1	= mkAlt (mkSeq (delta e1 c) e2) (delta e2 c)
     | otherwise		= mkSeq (delta e1 c) e2
 delta (Rep i e)   c	= mkSeq (delta e c) (mkRep (i-1) e)
-delta (Rng i j e) c	= mkSeq (delta e c) (mkRng (i-1) (j-1) e)
+delta (Rng i j e) c	= mkSeq (delta e c) (mkRng ((i-1) `max` 0) (j-1) e)
 delta (Dif e1 e2) c	= mkDif (delta e1 c) (delta e2 c)
 
 -- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/Validator/AttributeValueValidation.hs b/src/Text/XML/HXT/Validator/AttributeValueValidation.hs
--- a/src/Text/XML/HXT/Validator/AttributeValueValidation.hs
+++ b/src/Text/XML/HXT/Validator/AttributeValueValidation.hs
@@ -79,7 +79,7 @@
 checkValue typ dtdPart attrValue attrDecl
 	| typ == k_cdata	= none
 	| typ == k_enumeration	= checkValueEnumeration attrDecl attrValue
-	| typ == k_enitity	= checkValueEntity dtdPart attrDecl attrValue
+	| typ == k_entity	= checkValueEntity dtdPart attrDecl attrValue
 	| typ == k_entities	= checkValueEntities dtdPart attrDecl attrValue
 	| typ == k_id		= checkValueId attrDecl attrValue
 	| typ == k_idref	= checkValueIdref attrDecl attrValue
diff --git a/src/Text/XML/HXT/Validator/DTDValidation.hs b/src/Text/XML/HXT/Validator/DTDValidation.hs
--- a/src/Text/XML/HXT/Validator/DTDValidation.hs
+++ b/src/Text/XML/HXT/Validator/DTDValidation.hs
@@ -78,8 +78,9 @@
 getXTextValues
   = concatMap showT
   where
-    showT (NTree (XText t) _) = [t]
-    showT _                   = []
+    showT (NTree n _)
+	| isXTextNode n = [textOfXNode n]
+    showT _             = []
 
 
 -- ------------------------------------------------------------
diff --git a/src/Text/XML/HXT/Validator/DocTransformation.hs b/src/Text/XML/HXT/Validator/DocTransformation.hs
--- a/src/Text/XML/HXT/Validator/DocTransformation.hs
+++ b/src/Text/XML/HXT/Validator/DocTransformation.hs
@@ -84,7 +84,7 @@
 traverseTree transEnv n@(NTree (XTag name _) cs)
     = replaceChildren (concatMap (traverseTree transEnv) cs) (head (transFct n))
       where
-      transFct = case (lookup (tName name) transEnv) of
+      transFct = case (lookup (qualifiedName name) transEnv) of
           Nothing -> this   -- element not in DTD, can't be transformed
 	  Just f  -> f
 
diff --git a/src/Text/XML/HXT/Validator/DocValidation.hs b/src/Text/XML/HXT/Validator/DocValidation.hs
--- a/src/Text/XML/HXT/Validator/DocValidation.hs
+++ b/src/Text/XML/HXT/Validator/DocValidation.hs
@@ -75,8 +75,8 @@
       where
       valFct :: XmlFilter
       valFct
-          = case (lookup (tName name) valiEnv) of
-	    Nothing -> err ("Element " ++ show (tName name) ++ " not declared in DTD.")
+          = case (lookup (qualifiedName name) valiEnv) of
+	    Nothing -> err ("Element " ++ show (qualifiedName name) ++ " not declared in DTD.")
 	    Just f  -> f
 
 traverseTree _ _ = []
@@ -198,7 +198,7 @@
       contentValidationPcdata n@(NTree (XTag name _) cs)
           = if msg == ""
             then []
-            else err ("The content of element "++ show (tName name) ++
+            else err ("The content of element "++ show (qualifiedName name) ++
 	              " must match (#PCDATA). "++ msg) n
 	    where
 	    re = re_rep (re_sym k_pcdata)
@@ -213,7 +213,7 @@
       contentValidationEmpty n@(NTree (XTag name _) cs)
           = if msg == ""
             then []
-            else err ("The content of element " ++ show (tName name) ++
+            else err ("The content of element " ++ show (qualifiedName name) ++
 	              " must match EMPTY. " ++ msg) n
 	    where
 	    re = re_unit
@@ -228,7 +228,7 @@
       contentValidationAny n@(NTree (XTag name _) cs)
           = if msg == ""
             then []
-            else err ("The content of element " ++ show (tName name) ++
+            else err ("The content of element " ++ show (qualifiedName name) ++
 	              " must match ANY. " ++ msg) n
 	    where
 	    re = re_rep (re_dot)
@@ -243,7 +243,7 @@
       contentValidationChildren cm n@(NTree (XTag name _) cs)
           = if msg == ""
             then []
-            else err ("The content of element " ++ show (tName name) ++
+            else err ("The content of element " ++ show (qualifiedName name) ++
 	              " must match " ++ printRE re ++ ". " ++ msg) n
 	    where
 	    re = createRE (head cm)
@@ -258,7 +258,7 @@
       contentValidationMixed cm n@(NTree (XTag name _) cs)
           = if msg == ""
             then []
-            else err ("The content of element "++ show (tName name) ++
+            else err ("The content of element "++ show (qualifiedName name) ++
 	              " must match " ++ printRE re ++ ". " ++ msg) n
 	    where
 	    re = re_rep (re_alt (re_sym k_pcdata) (createRE (head cm)))
@@ -400,7 +400,7 @@
           = if satisfies (hasAttr attName) n
 	    then checkRequired xs n
 	    else err ("Attribute " ++ show attName ++ " must be declared for element type " ++
-	             show (tName name) ++ ".") n
+	             show (qualifiedName name) ++ ".") n
 	         ++
 		 checkRequired xs n
 	    where
@@ -441,7 +441,7 @@
           = if satisfies (hasAttr attName) n
 	    then if attValue == fixedValue
 	         then checkFixed xs n
-	         else err ("Attribute " ++ show attName ++ " of element " ++ show (tName name) ++
+	         else err ("Attribute " ++ show attName ++ " of element " ++ show (qualifiedName name) ++
 		           " with value " ++ show attValue ++ " must have a value of " ++
 			   show fixedValue ++ ".") n
 	              ++
@@ -494,7 +494,7 @@
 	    else searchForDeclaredAtt name xs att
 
       searchForDeclaredAtt name [] (NTree (XAttr attrName) _)
-          = err ("Attribute " ++ show (aName attrName) ++ " of element " ++ show name ++ " is not declared in DTD.")
+          = err ("Attribute " ++ show (qualifiedName attrName) ++ " of element " ++ show name ++ " is not declared in DTD.")
 
       searchForDeclaredAtt _ nd a
           = error ("searchForDeclaredAtt: illegeal paramter:\n" ++ show nd ++ show a)
diff --git a/src/Text/XML/HXT/Validator/IdValidation.hs b/src/Text/XML/HXT/Validator/IdValidation.hs
--- a/src/Text/XML/HXT/Validator/IdValidation.hs
+++ b/src/Text/XML/HXT/Validator/IdValidation.hs
@@ -82,7 +82,7 @@
       where
       idFct :: XmlFilter
       idFct
-          = case (lookup (tName name) idEnv) of
+          = case (lookup (qualifiedName name) idEnv) of
 	    Nothing -> none
 	    Just f  -> f
 
@@ -102,7 +102,7 @@
 
 getIdValue :: XmlTrees -> XmlTree -> String
 getIdValue (x@(NTree (XDTD ATTLIST al) _):xs) n@(NTree (XTag name _al') _)
-    = if (tName name) == elemName
+    = if (qualifiedName name) == elemName
       then attrValue
       else getIdValue xs n
       where
@@ -188,7 +188,7 @@
 		       else let valueList = words attrValue
 		            in if null valueList
 		               then err ("Attribute " ++ show attrName ++
-					 " of Element " ++ show (tName name) ++
+					 " of Element " ++ show (qualifiedName name) ++
 					 " must have at least one name.") n
 		               else concatMap (checkValueDeclared n) (words attrValue)
 	          else []
@@ -237,13 +237,13 @@
       checkForUniqueId (x@(NTree (XTag name _) _):xs) used
           = if attrValue `elem` used
 	    then err ("Attribute value " ++ show attrValue ++ " of type ID for element " ++
-	              show (tName name) ++ " must be unique within the document.") x
+	              show (qualifiedName name) ++ " must be unique within the document.") x
 		 ++
 		 checkForUniqueId xs used
 
 	    else checkForUniqueId xs (attrValue : used)
 	    where
-	    attrValue = getIdValue (isAttlistOfElement (tName name) $$ idAttrTypes) x
+	    attrValue = getIdValue (isAttlistOfElement (qualifiedName name) $$ idAttrTypes) x
 
       checkForUniqueId _ _ = []
 
diff --git a/src/Text/XML/HXT/Validator/XmlRE.hs b/src/Text/XML/HXT/Validator/XmlRE.hs
--- a/src/Text/XML/HXT/Validator/XmlRE.hs
+++ b/src/Text/XML/HXT/Validator/XmlRE.hs
@@ -91,11 +91,11 @@
 
     where
     expectedNode :: XmlTree -> String -> Bool
-    expectedNode (NTree (XTag n _) _) sym = (tName n) == sym
+    expectedNode (NTree (XTag n _) _) sym = (qualifiedName n) == sym
     expectedNode _ _			  = False
 
     elemName :: XmlTree -> String
-    elemName (NTree (XTag n _) _)	= "element "++ show (tName n)
+    elemName (NTree (XTag n _) _)	= "element "++ show (qualifiedName n)
     elemName _				= "character data"
 
     allowed :: XmlTree -> Bool
diff --git a/src/Text/XML/HXT/XPath/XPathDataTypes.hs b/src/Text/XML/HXT/XPath/XPathDataTypes.hs
--- a/src/Text/XML/HXT/XPath/XPathDataTypes.hs
+++ b/src/Text/XML/HXT/XPath/XPathDataTypes.hs
@@ -65,7 +65,7 @@
     where
     show NaN           = "NaN"
     show NegInf        = "-Infinity"
-    show Neg0          = "0"
+    show Neg0          = "-0"
     show Pos0          = "0"
     show (Float f)     = show f
     show PosInf        = "Infinity"
diff --git a/src/Text/XML/HXT/XPath/XPathEval.hs b/src/Text/XML/HXT/XPath/XPathEval.hs
--- a/src/Text/XML/HXT/XPath/XPathEval.hs
+++ b/src/Text/XML/HXT/XPath/XPathEval.hs
@@ -80,7 +80,7 @@
 -- are interpreted with respect to the given namespace environment
 
 getXPathWithNsEnv	:: NsEnv -> String -> XmlFilter
-getXPathWithNsEnv	= getXPathValues xPValue2XmlTrees xPathErr canonicalizeForXPath
+getXPathWithNsEnv env s	= canonicalizeForXPath .> getXPathValues xPValue2XmlTrees xPathErr env s
 
 -- |
 -- Select parts of an XML tree by a XPath expression.
@@ -101,8 +101,8 @@
 -- | Same as 'getXPathSubTrees' but with namespace aware XPath expression
 
 getXPathSubTreesWithNsEnv	:: NsEnv -> String -> XmlFilter
-getXPathSubTreesWithNsEnv nsEnv xpStr t
-    = getXPathValues xPValue2XmlTrees xPathErr this nsEnv xpStr $ addRoot t
+getXPathSubTreesWithNsEnv nsEnv xpStr
+    = getXPathValues xPValue2XmlTrees xPathErr nsEnv xpStr
 
 -- | compute the node set of an XPath query
 
@@ -112,13 +112,13 @@
 -- | compute the node set of a namespace aware XPath query
 
 getXPathNodeSetWithNsEnv	:: NsEnv -> String -> XmlTree -> XmlNodeSet
-getXPathNodeSetWithNsEnv nsEnv xpStr t
-    = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) this nsEnv xpStr $ addRoot t
+getXPathNodeSetWithNsEnv nsEnv xpStr
+    = getXPathValues xPValue2NodeSet (const (const emptyNodeSet)) nsEnv xpStr
 
 -- | parse xpath, evaluate xpath expr and prepare results
 
-getXPathValues	:: (XPathValue -> a) -> (String -> String -> a) -> XmlFilter -> NsEnv -> String -> XmlTree -> a
-getXPathValues cvRes cvErr canonicalize nsEnv xpStr t
+getXPathValues	:: (XPathValue -> a) -> (String -> String -> a) -> NsEnv -> String -> XmlTree -> a
+getXPathValues cvRes cvErr nsEnv xpStr t
     = case (runParser parseXPath nsEnv "" xpStr) of
       Left parseError
 	  -> cvErr xpStr (show parseError)
@@ -128,16 +128,19 @@
     evalXP xpe
 	= cvRes xpRes
 	where
-	idAttr	= (("", "idAttr"), idAttributesToXPathValue . getIdAttributes $ t)
-	navTD	= (ntree . head . canonicalize) t
+	t'      = head . addRoot $ t			-- we need a root node for starting xpath eval
+	idAttr	= ( ("", "idAttr")			-- id attributes from DTD (if there)
+		  , idAttributesToXPathValue . getIdAttributes $ t'
+		  )
+	navTD	= ntree t'
 	xpRes	= evalExpr (idAttr:(getVarTab varEnv),[]) (1, 1, navTD) xpe (XPVNode [navTD])
 
-addRoot	:: XmlTree -> XmlTree
+addRoot	:: XmlFilter
 addRoot t
     | null . isRoot $ t
-	= head . rootTag [] [this] $ t
+	= rootTag [] [this] $ t
     | otherwise
-	= t
+	= this t
 
 xPathErr	:: String -> String -> [XmlTree]
 xPathErr xpStr parseError
@@ -426,12 +429,22 @@
 
 
 evalAttrNodeTest :: NodeTest -> NavXmlTree -> NavXmlTrees
-evalAttrNodeTest (NameTest (QN _pre local uri)) ns@(NT (NTree (XAttr (QN _pre1 local1 uri1)) _) _ _ _)
-    = if ( ( uri == uri1               && local == local1) || 
-           ((uri == "" || uri == uri1) && local == "*") 
-         ) then [ns] else [] 
+evalAttrNodeTest (NameTest qn) ns@(NT (NTree (XAttr qn1) _) _ _ _)
+    = if ( ( uri == uri1               && lp == lp1)
+	   || 
+           ((uri == "" || uri == uri1) && lp == "*") 
+         )
+      then [ns]
+      else []
+      where
+      uri  = namespaceUri qn
+      uri1 = namespaceUri qn1
+      lp   = localPart    qn
+      lp1  = localPart    qn1
+
 evalAttrNodeTest (TypeTest XPNode) ns@(NT (NTree (XAttr _) _) _ _ _)
     = [ns]
+
 evalAttrNodeTest _ _
     = []
 
@@ -624,3 +637,5 @@
       isXDTD
       .>
       deep (isIdAttrType)
+
+-- ----------------------------------------
diff --git a/src/Text/XML/HXT/XPath/XPathFct.hs b/src/Text/XML/HXT/XPath/XPathFct.hs
--- a/src/Text/XML/HXT/XPath/XPathFct.hs
+++ b/src/Text/XML/HXT/XPath/XPathFct.hs
@@ -31,19 +31,31 @@
 import Text.XML.HXT.XPath.XPathArithmetic
       ( xPathAdd )
 
-import Text.XML.HXT.Arrow.ReadDocument (readDocument)
-import Text.XML.HXT.Arrow.XmlIOStateArrow (runX)
+import qualified Text.XML.HXT.Arrow.XmlNode as XN
+import           Text.XML.HXT.Arrow.ReadDocument (readDocument)
+import           Text.XML.HXT.Arrow.XmlIOStateArrow (runX)
 
 import Text.XML.HXT.DOM.XmlTree
       hiding (mkNode)
 
-import System.IO.Unsafe (unsafePerformIO)
-import Data.Maybe
-      ( fromJust )      
+import System.IO.Unsafe
+    ( unsafePerformIO
+    )
 
 import Data.Char
+    ( isAscii
+    , isUpper
+    , isLower
+    , isDigit
+    , ord
+    )
 import Data.List
-    ( sortBy )
+    ( sortBy
+    )
+import Data.Maybe
+      ( fromJust
+      , fromMaybe
+      )      
 
 -- -----------------------------------------------------------------------------
 
@@ -199,7 +211,7 @@
 
 -- Tim Walkenhorst:
 --   - Attributes are identified by their QName (they do not have previous siblings)
---   - Elemts are identified by their relative position (# of previous siblings)
+--   - Elements are identified by their relative position (# of previous siblings)
 
 data IdPathStep = IdRoot String | IdPos Int | IdAttr QName deriving (Show, Eq, Ord)
 
@@ -207,12 +219,14 @@
 nodeID Nothing = []
 nodeID (Just t@(NT (NTree (XAttr qn) _)  _ _ _)) = IdAttr qn : nodeID (upNT t)
 nodeID (Just t@(NT node _ prev _))               
-   | isRootNode $ getNode node = return $ IdRoot (getText $ getValue "rootId" node) 
-   | otherwise       = IdPos (length prev) : nodeID (upNT t)
-   where getText ((NTree (XText t') _):_) = t'
-         getText _         = ""
-   
-
+   | isRootNode $ getNode node
+       = return $ IdRoot (getText $ getValue "rootId" node) 
+   | otherwise
+       = IdPos (length prev) : nodeID (upNT t)
+   where
+   getText	:: XmlTrees -> String
+   getText (x:_) = fromMaybe "" (XN.getText x)
+   getText _	 = ""
 
 -- |
 -- Calculates the position of a node in a tree (in document order)
diff --git a/src/Text/XML/HXT/XSLT/Common.hs b/src/Text/XML/HXT/XSLT/Common.hs
--- a/src/Text/XML/HXT/XSLT/Common.hs
+++ b/src/Text/XML/HXT/XSLT/Common.hs
@@ -51,7 +51,6 @@
     , setAttribute               -- XmlNode n => QName -> String -> n -> n
 
     -- Namespace functions
-    , mkQName                    -- String (prefix) -> String (local) -> String (uri) -> QName
     , ExName(ExName)             -- String (local) -> String (uri) -> ExName
     , mkExName                   -- QName -> ExName
     , exLocal		         -- ExName -> String
@@ -103,9 +102,10 @@
 import Text.XML.HXT.DOM.TypeDefs
     ( XmlTree
     , XNode(XTag, XAttr)
-    , QName(QN, namePrefix, localPart, namespaceUri)
+    , QName(namePrefix, localPart, namespaceUri)
     , equivQName
     , mkName
+    , mkQName
     )
 
 import Text.XML.HXT.DOM.FormatXmlTree
@@ -205,13 +205,20 @@
 -- Xml Functions
 
 collectTextnodes :: [XmlTree] -> String
-collectTextnodes = concat . mapMaybe getText
+collectTextnodes
+    = concat . mapMaybe getText
 
 isElemType :: XmlNode n => QName -> n -> Bool
-isElemType qn node = isElem node && equivQName qn (fromJust $ getElemName node)
+isElemType qn node
+    = isElem node
+      &&
+      equivQName qn (fromJust $ getElemName node)
 
 isAttrType :: XmlNode n => QName -> n -> Bool
-isAttrType qname node = isAttr node && equivQName qname (fromJust $ getAttrName node)
+isAttrType qname node
+    = isAttr node
+      &&
+      equivQName qname (fromJust $ getAttrName node)
 
 tryFetchAttribute :: XmlNode n => n -> QName -> Maybe String
 tryFetchAttribute node qn
@@ -252,10 +259,8 @@
 --------------------------- 
 -- Namespace Functions
 
-mkQName :: String -> String -> String -> QName
-mkQName p l u = QN {namePrefix=p, localPart=l, namespaceUri=u}
-
 -- Expanded name, is unique can therefore be used as a key (unlike QName)
+
 data ExName = ExName String String
   deriving (Show, Eq, Ord)
 
@@ -267,36 +272,39 @@
 exUri   (ExName _ u) = u
 
 parseExName :: UriMapping -> String -> ExName
-parseExName uris str =
-
-    if noPrefix 
-    then ExName str ""
-
-    else ExName loc $ lookupPrefix uris prefix
-
-  where
+parseExName uris str
+    | noPrefix	= ExName str ""
+    | otherwise	= ExName loc $ lookupPrefix uris prefix
+    where
     noPrefix       = null loc 
     loc            = drop 1 loc'                
     (prefix, loc') = span (/= ':') str
 
 -- Mapping from namespace-Prefixes to namespace-URIs
+
 type UriMapping = Map String String
 
 getUriMap :: XmlNode n => n -> UriMapping
-getUriMap = uriMappingsFromNsAttrs . filter isNsAttr . maybe err id . getAttrl
-  where err = error "Internal error: getUriMap on none-element node"
+getUriMap
+    = uriMappingsFromNsAttrs . filter isNsAttr . maybe err id . getAttrl
+      where
+      err = error "Internal error: getUriMap on none-element node"
 
 setUriMap :: XmlNode n => UriMapping -> n -> n
-setUriMap nsMap node = setElemAttrl (mergeAttrl (maybe [] id $ getAttrl node) $ uriMap2Attrs nsMap) node
+setUriMap nsMap node
+    = setElemAttrl (mergeAttrl (maybe [] id $ getAttrl node) $ uriMap2Attrs nsMap) node
 
 uriMap2Attrs :: UriMapping -> [XmlTree]
-uriMap2Attrs  = map joinNsAttr . Map.toAscList
+uriMap2Attrs
+    = map joinNsAttr . Map.toAscList
 
 lookupPrefix :: UriMapping -> String -> String
-lookupPrefix uris prefix = fromJustErr ("No namespace-Uri bound to prefix: "++prefix) $ Map.lookup prefix uris
+lookupPrefix uris prefix
+    = fromJustErr ("No namespace-Uri bound to prefix: "++prefix) $ Map.lookup prefix uris
 
 expandNSDecls :: XmlTree -> XmlTree
-expandNSDecls = mapTreeCtx (expandNSElem) $ Map.fromAscList [("xml", xmlNamespace), ("xmlns", xmlnsNamespace)]
+expandNSDecls
+    = mapTreeCtx (expandNSElem) $ Map.fromAscList [("xml", xmlNamespace), ("xmlns", xmlnsNamespace)]
 
 expandNSElem :: UriMapping -> XNode -> (UriMapping, XNode)
 expandNSElem umap node
@@ -309,16 +317,20 @@
     (nsAttrs, attrs) = partition isNsAttr $ fromJust $ getAttrl node
 
 uriMappingsFromNsAttrs :: [XmlTree] -> UriMapping
-uriMappingsFromNsAttrs = Map.fromList . map splitNsAttr
+uriMappingsFromNsAttrs
+    = Map.fromList . map splitNsAttr
 
 isNsAttr :: XmlTree -> Bool
-isNsAttr = maybe False ((==) xmlnsNamespace . namespaceUri) . getAttrName
+isNsAttr
+    = maybe False ((==) xmlnsNamespace . namespaceUri) . getAttrName
 
 splitNsAttr :: XmlTree -> (String, String)
-splitNsAttr node = (localPart $ fromJust $ getAttrName node, collectTextnodes $ getChildren node)
+splitNsAttr node
+    = (localPart $ fromJust $ getAttrName node, collectTextnodes $ getChildren node)
 
 joinNsAttr :: (String, String) -> XmlTree
-joinNsAttr (prefix, uri) = mkAttr (mkQName "xmlns" prefix xmlnsNamespace) [mkText uri]
+joinNsAttr (prefix, uri)
+    = mkAttr (mkQName "xmlns" prefix xmlnsNamespace) [mkText uri]
 
 -------------------------
 -- additions to XPATH:
diff --git a/src/hxt-package.conf b/src/hxt-package.conf
deleted file mode 100644
--- a/src/hxt-package.conf
+++ /dev/null
@@ -1,149 +0,0 @@
--- arch-tag: Haskell XML Toolbox main description file
-name: hxt
-version: %VERSION%
-license: OtherLicense
-license-file: LICENCE
-maintainer: Uwe Schmidt 
-stability: stable
-category: XML
-synopsis: A collection of tools for processing XML with Haskell. 
-description:  The Haskell XML Toolbox bases on the ideas of HaXml and HXML, but introduces a more general approach for processing XML with Haskell. The Haskell XML Toolbox uses a generic data model for representing XML documents, including the DTD subset and the document subset, in Haskell. It contains a validating XML parser, a HTML parser, namespace support, an XPath expression evaluator, an XSLT library, a RelaxNG schema validator and funtions for serialization and deserialization of user defined data. The libraray make extensive use of the arrow approach for processing XML.
-homepage: http://www.fh-wedel.de/~si/HXmlToolbox/index.html
-copyright: Copyright (c) 2005 Uwe Schmidt
-tested-with: ghc-6.8
-exposed: True
-exposed-modules:
-  Control.Arrow.ArrowIf,
-  Control.Arrow.ArrowIO,
-  Control.Arrow.ArrowList,
-  Control.Arrow.ArrowState,
-  Control.Arrow.ArrowStrict,
-  Control.Arrow.ArrowTree,
-  Control.Arrow.IOListArrow,
-  Control.Arrow.IOStateListArrow,
-  Control.Arrow.ListArrow,
-  Control.Arrow.ListArrows,
-  Control.Arrow.StateListArrow,
-  Control.Monad.MonadStateIO,
-  Control.Strategies.DeepSeq,
-  Data.AssocList,
-  Data.Char.UTF8,
-  Data.NavTree,
-  Data.Tree.Class,
-  Data.Tree.NTree.Filter,
-  Data.Tree.NTree.TypeDefs,
-  System.PipeOpen,
-  Text.XML.HXT.Arrow,
-  Text.XML.HXT.Arrow.DocumentInput,
-  Text.XML.HXT.Arrow.DocumentOutput,
-  Text.XML.HXT.Arrow.DOMInterface,
-  Text.XML.HXT.Arrow.DTDProcessing,
-  Text.XML.HXT.Arrow.Edit,
-  Text.XML.HXT.Arrow.GeneralEntitySubstitution,
-  Text.XML.HXT.Arrow.Namespace,
-  Text.XML.HXT.Arrow.ParserInterface
-  Text.XML.HXT.Arrow.Pickle,
-  Text.XML.HXT.Arrow.Pickle.DTD,
-  Text.XML.HXT.Arrow.Pickle.Schema,
-  Text.XML.HXT.Arrow.Pickle.Xml,
-  Text.XML.HXT.Arrow.ProcessDocument,
-  Text.XML.HXT.Arrow.ReadDocument,
-  Text.XML.HXT.Arrow.WriteDocument,
-  Text.XML.HXT.Arrow.XmlArrow,
-  Text.XML.HXT.Arrow.XmlIOStateArrow,
-  Text.XML.HXT.Arrow.XmlNode,
-  Text.XML.HXT.Arrow.XmlNodeSet,
-  Text.XML.HXT.DOM,
-  Text.XML.HXT.DOM.EditFilters,
-  Text.XML.HXT.DOM.FormatXmlTree,
-  Text.XML.HXT.DOM.IsoLatinTables,
-  Text.XML.HXT.DOM.Namespace,
-  Text.XML.HXT.DOM.NamespaceFilter,
-  Text.XML.HXT.DOM.NamespacePredicates,
-  Text.XML.HXT.DOM.TypeDefs,
-  Text.XML.HXT.DOM.Unicode,
-  Text.XML.HXT.DOM.UTF8Decoding,
-  Text.XML.HXT.DOM.Util,
-  Text.XML.HXT.DOM.XmlKeywords,
-  Text.XML.HXT.DOM.XmlOptions,
-  Text.XML.HXT.DOM.XmlState,
-  Text.XML.HXT.DOM.XmlTree,
-  Text.XML.HXT.DOM.XmlTreeFilter,
-  Text.XML.HXT.DOM.XmlTreeFunctions,
-  Text.XML.HXT.DOM.XmlTreeTypes,
-  Text.XML.HXT.IO.GetFILE,
-  Text.XML.HXT.IO.GetHTTPCurl,
-  Text.XML.HXT.IO.GetHTTPNative,
-  Text.XML.HXT.Parser,
-  Text.XML.HXT.Parser.DefaultURI,
-  Text.XML.HXT.Parser.DTDProcessing,
-  Text.XML.HXT.Parser.HtmlParsec,
-  Text.XML.HXT.Parser.HtmlParser,
-  Text.XML.HXT.Parser.MainFunctions,
-  Text.XML.HXT.Parser.ProtocolHandler,
-  Text.XML.HXT.Parser.ProtocolHandlerFile,
-  Text.XML.HXT.Parser.ProtocolHandlerHttpCurl,
-  Text.XML.HXT.Parser.ProtocolHandlerHttpNative,
-  Text.XML.HXT.Parser.ProtocolHandlerHttpNativeOrCurl,
-  Text.XML.HXT.Parser.ProtocolHandlerUtil,
-  Text.XML.HXT.Parser.XhtmlEntities,
-  Text.XML.HXT.Parser.XmlEntities,
-  Text.XML.HXT.Parser.XmlCharParser,
-  Text.XML.HXT.Parser.XmlDTDParser,
-  Text.XML.HXT.Parser.XmlDTDTokenParser,
-  Text.XML.HXT.Parser.XmlInput,
-  Text.XML.HXT.Parser.XmlOutput,
-  Text.XML.HXT.Parser.XmlParsec,
-  Text.XML.HXT.Parser.XmlParser,
-  Text.XML.HXT.Parser.XmlTokenParser,
-  Text.XML.HXT.Validator.AttributeValueValidation,
-  Text.XML.HXT.Validator.DocTransformation,
-  Text.XML.HXT.Validator.DocValidation,
-  Text.XML.HXT.Validator.DTDValidation,
-  Text.XML.HXT.Validator.IdValidation,
-  Text.XML.HXT.Validator.RE,
-  Text.XML.HXT.Validator.Validation,
-  Text.XML.HXT.Validator.ValidationFilter,
-  Text.XML.HXT.Validator.XmlRE,
-  Text.XML.HXT.XPath,
-  Text.XML.HXT.XPath.NavTree,
-  Text.XML.HXT.XPath.XPathArithmetic,
-  Text.XML.HXT.XPath.XPathDataTypes,
-  Text.XML.HXT.XPath.XPathEval,
-  Text.XML.HXT.XPath.XPathFct,
-  Text.XML.HXT.XPath.XPathKeywords,
-  Text.XML.HXT.XPath.XPathParser,
-  Text.XML.HXT.XPath.XPathToNodeSet,
-  Text.XML.HXT.XPath.XPathToString,
-  Text.XML.HXT.XSLT.Application,
-  Text.XML.HXT.XSLT.Common,
-  Text.XML.HXT.XSLT.Compilation,
-  Text.XML.HXT.XSLT.CompiledStylesheet,
-  Text.XML.HXT.XSLT.Names,
-  Text.XML.HXT.XSLT.XsltArrows,
-  Text.XML.HXT.RelaxNG,
-  Text.XML.HXT.RelaxNG.BasicArrows,
-  Text.XML.HXT.RelaxNG.CreatePattern,
-  Text.XML.HXT.RelaxNG.DataTypeLibMysql,
-  Text.XML.HXT.RelaxNG.DataTypeLibraries,
-  Text.XML.HXT.RelaxNG.DataTypeLibUtils,
-  Text.XML.HXT.RelaxNG.DataTypes,
-  Text.XML.HXT.RelaxNG.PatternFunctions,
-  Text.XML.HXT.RelaxNG.PatternToString,
-  Text.XML.HXT.RelaxNG.SchemaGrammar,
-  Text.XML.HXT.RelaxNG.Schema,
-  Text.XML.HXT.RelaxNG.Simplification,
-  Text.XML.HXT.RelaxNG.Utils,
-  Text.XML.HXT.RelaxNG.Validation,
-  Text.XML.HXT.RelaxNG.Validator,
-  Text.XML.HXT.RelaxNG.Unicode.Blocks,
-  Text.XML.HXT.RelaxNG.Unicode.CharProps,
-  Text.XML.HXT.RelaxNG.XmlSchema.DataTypeLibW3C,
-  Text.XML.HXT.RelaxNG.XmlSchema.Regex,
-  Text.XML.HXT.RelaxNG.XmlSchema.RegexParser
-hs-source-dirs: .
-ghc-options: -Wall -O2 -fglasgow-exts
-import-dirs: /usr/local/lib/hxt/imports
-library-dirs: /usr/local/lib/hxt
-hs-libraries: HShxt
-depends: base, haskell98, parsec, HTTP, HUnit, network, containers, directory, process
diff --git a/src/hxt-package.hs b/src/hxt-package.hs
--- a/src/hxt-package.hs
+++ b/src/hxt-package.hs
@@ -59,7 +59,7 @@
       , "import-dirs: " ++ dir ++ "/imports"
       , "library-dirs: " ++ dir
       , "hs-libraries: HShxt"
-      , "depends: base, haskell98, parsec, HTTP, HUnit, network, containers, directory, process"
+      , "depends: base, haskell98, parsec, HTTP, HUnit, network, containers, directory, process, tagsoup"
       ]
 
 part4b :: [String]
@@ -67,7 +67,7 @@
     = [ " hs-source-dirs: src"
       , " ghc-options: -Wall -fglasgow-exts"
       , ""
-      , " build-depends: base, haskell98, parsec, HTTP, HUnit, network"
+      , " build-depends: base, haskell98, parsec, HTTP, HUnit, network, tagsoup"
       , " if flag(splitBase)"
       , "   build-depends: base >= 3, containers, directory, process"
       , " else"