packages feed

hxt-8.0.0: doc/hdoc/src/Text-XML-HXT-RelaxNG-BasicArrows.html

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ -->
<title>Haskell Code by HsColour</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-2"></a>
<a name="line-3"></a><span class='comment'>{- |
<a name="line-4"></a>   Module     : Text.XML.HXT.RelaxNG.BasicArrows
<a name="line-5"></a>   Copyright  : Copyright (C) 2005 Uwe Schmidt
<a name="line-6"></a>   License    : MIT
<a name="line-7"></a>
<a name="line-8"></a>   Maintainer : Uwe Schmidt (uwe@fh-wedel.de)
<a name="line-9"></a>   Stability  : experimental
<a name="line-10"></a>   Portability: portable
<a name="line-11"></a>   Version    : $Id$
<a name="line-12"></a>
<a name="line-13"></a>   Constants and basic arrows for Relax NG
<a name="line-14"></a>
<a name="line-15"></a>-}</span>
<a name="line-16"></a>
<a name="line-17"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-18"></a>
<a name="line-19"></a><span class='keyword'>module</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>RelaxNG</span><span class='varop'>.</span><span class='conid'>BasicArrows</span>
<a name="line-20"></a><span class='keyword'>where</span>
<a name="line-21"></a>
<a name="line-22"></a><span class='keyword'>import</span> <span class='conid'>Control</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>ListArrows</span>
<a name="line-23"></a>
<a name="line-24"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>DOM</span><span class='varop'>.</span><span class='conid'>Interface</span>
<a name="line-25"></a><span class='keyword'>import</span> <span class='conid'>Text</span><span class='varop'>.</span><span class='conid'>XML</span><span class='varop'>.</span><span class='conid'>HXT</span><span class='varop'>.</span><span class='conid'>Arrow</span><span class='varop'>.</span><span class='conid'>XmlArrow</span>
<a name="line-26"></a>    <span class='varid'>hiding</span>
<a name="line-27"></a>    <span class='layout'>(</span> <span class='varid'>mkText</span>
<a name="line-28"></a>    <span class='layout'>,</span> <span class='varid'>mkError</span>
<a name="line-29"></a>    <span class='layout'>)</span>
<a name="line-30"></a>
<a name="line-31"></a><a name="hasRngName"></a><span class='definition'>hasRngName</span> 	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='conid'>String</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-32"></a><span class='definition'>hasRngName</span> <span class='varid'>s</span>
<a name="line-33"></a>    <span class='keyglyph'>=</span> <span class='varid'>hasName</span> <span class='varid'>s</span> 
<a name="line-34"></a>      <span class='varop'>`orElse`</span>
<a name="line-35"></a>      <span class='layout'>(</span> <span class='varid'>hasLocalPart</span> <span class='varid'>s</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasNamespaceUri</span> <span class='varid'>relaxNamespace</span> <span class='layout'>)</span>
<a name="line-36"></a>
<a name="line-37"></a><a name="checkRngName"></a><span class='definition'>checkRngName</span> <span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='keyglyph'>[</span><span class='conid'>String</span><span class='keyglyph'>]</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-38"></a><span class='definition'>checkRngName</span> <span class='varid'>l</span>
<a name="line-39"></a>    <span class='keyglyph'>=</span> <span class='layout'>(</span> <span class='varid'>isElem</span>
<a name="line-40"></a>	<span class='varop'>&gt;&gt;&gt;</span>
<a name="line-41"></a>	<span class='varid'>catA</span> <span class='layout'>(</span><span class='varid'>map</span> <span class='varid'>hasRngName</span> <span class='varid'>l</span><span class='layout'>)</span>
<a name="line-42"></a>      <span class='layout'>)</span>
<a name="line-43"></a>      <span class='varop'>`guards`</span> <span class='varid'>this</span>
<a name="line-44"></a>
<a name="line-45"></a><a name="noOfChildren"></a><span class='definition'>noOfChildren</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='layout'>(</span><span class='conid'>Int</span> <span class='keyglyph'>-&gt;</span> <span class='conid'>Bool</span><span class='layout'>)</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-46"></a><span class='definition'>noOfChildren</span> <span class='varid'>p</span>
<a name="line-47"></a>    <span class='keyglyph'>=</span> <span class='varid'>getChildren</span>
<a name="line-48"></a>      <span class='varop'>&gt;&gt;.</span>
<a name="line-49"></a>      <span class='layout'>(</span><span class='keyglyph'>\</span> <span class='varid'>l</span> <span class='keyglyph'>-&gt;</span> <span class='keyword'>if</span> <span class='varid'>p</span> <span class='layout'>(</span><span class='varid'>length</span> <span class='varid'>l</span><span class='layout'>)</span> <span class='keyword'>then</span> <span class='varid'>l</span> <span class='keyword'>else</span> <span class='conid'>[]</span><span class='layout'>)</span>
<a name="line-50"></a>
<a name="line-51"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-52"></a>
<a name="line-53"></a><a name="isAttributeRef"></a><span class='definition'>isAttributeRef</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-54"></a><span class='definition'>isAttributeRef</span>
<a name="line-55"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"ref"</span><span class='keyglyph'>]</span>
<a name="line-56"></a>
<a name="line-57"></a><a name="isAttributeRefTextListGroupInterleaveOneOrMoreEmpty"></a><span class='definition'>isAttributeRefTextListGroupInterleaveOneOrMoreEmpty</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-58"></a><span class='definition'>isAttributeRefTextListGroupInterleaveOneOrMoreEmpty</span>
<a name="line-59"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"ref"</span><span class='layout'>,</span> <span class='str'>"text"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='layout'>,</span> <span class='str'>"empty"</span><span class='keyglyph'>]</span>
<a name="line-60"></a>
<a name="line-61"></a><a name="isAttributeRefTextListInterleave"></a><span class='definition'>isAttributeRefTextListInterleave</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-62"></a><span class='definition'>isAttributeRefTextListInterleave</span>
<a name="line-63"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"ref"</span><span class='layout'>,</span> <span class='str'>"text"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='keyglyph'>]</span>
<a name="line-64"></a>
<a name="line-65"></a><a name="isAttributeListGroupInterleaveOneOrMore"></a><span class='definition'>isAttributeListGroupInterleaveOneOrMore</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-66"></a><span class='definition'>isAttributeListGroupInterleaveOneOrMore</span>
<a name="line-67"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"attribute"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='keyglyph'>]</span>
<a name="line-68"></a>
<a name="line-69"></a><a name="isExternalRefInclude"></a><span class='definition'>isExternalRefInclude</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-70"></a><span class='definition'>isExternalRefInclude</span>
<a name="line-71"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"externalRef"</span><span class='layout'>,</span> <span class='str'>"include"</span><span class='keyglyph'>]</span>
<a name="line-72"></a>
<a name="line-73"></a><a name="isNameNsNameValue"></a><span class='definition'>isNameNsNameValue</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-74"></a><span class='definition'>isNameNsNameValue</span>
<a name="line-75"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"name"</span><span class='layout'>,</span> <span class='str'>"nsName"</span><span class='layout'>,</span> <span class='str'>"value"</span><span class='keyglyph'>]</span>
<a name="line-76"></a>
<a name="line-77"></a><a name="isNameNsName"></a><span class='definition'>isNameNsName</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-78"></a><span class='definition'>isNameNsName</span>
<a name="line-79"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"name"</span><span class='layout'>,</span> <span class='str'>"nsName"</span><span class='keyglyph'>]</span>
<a name="line-80"></a>
<a name="line-81"></a><a name="isNameAnyNameNsName"></a><span class='definition'>isNameAnyNameNsName</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-82"></a><span class='definition'>isNameAnyNameNsName</span>
<a name="line-83"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"name"</span><span class='layout'>,</span> <span class='str'>"anyName"</span><span class='layout'>,</span> <span class='str'>"nsName"</span><span class='keyglyph'>]</span>
<a name="line-84"></a>
<a name="line-85"></a><a name="isDefineOneOrMoreZeroOrMoreOptionalListMixed"></a><span class='definition'>isDefineOneOrMoreZeroOrMoreOptionalListMixed</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-86"></a><span class='definition'>isDefineOneOrMoreZeroOrMoreOptionalListMixed</span>
<a name="line-87"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"define"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='layout'>,</span> <span class='str'>"zeroOrMore"</span><span class='layout'>,</span> <span class='str'>"optional"</span><span class='layout'>,</span> <span class='str'>"list"</span><span class='layout'>,</span> <span class='str'>"mixed"</span><span class='keyglyph'>]</span>
<a name="line-88"></a>
<a name="line-89"></a><a name="isChoiceGroupInterleave"></a><span class='definition'>isChoiceGroupInterleave</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-90"></a><span class='definition'>isChoiceGroupInterleave</span>
<a name="line-91"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"choice"</span><span class='layout'>,</span> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='keyglyph'>]</span>
<a name="line-92"></a>
<a name="line-93"></a><a name="isChoiceGroupInterleaveOneOrMore"></a><span class='definition'>isChoiceGroupInterleaveOneOrMore</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-94"></a><span class='definition'>isChoiceGroupInterleaveOneOrMore</span>
<a name="line-95"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"choice"</span><span class='layout'>,</span> <span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='layout'>,</span> <span class='str'>"oneOrMore"</span><span class='keyglyph'>]</span>
<a name="line-96"></a>
<a name="line-97"></a><a name="isGroupInterleave"></a><span class='definition'>isGroupInterleave</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-98"></a><span class='definition'>isGroupInterleave</span>
<a name="line-99"></a>    <span class='keyglyph'>=</span> <span class='varid'>checkRngName</span> <span class='keyglyph'>[</span><span class='str'>"group"</span><span class='layout'>,</span> <span class='str'>"interleave"</span><span class='keyglyph'>]</span>
<a name="line-100"></a>
<a name="line-101"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-102"></a>
<a name="line-103"></a><a name="isRngAnyName"></a><span class='definition'>isRngAnyName</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-104"></a><span class='definition'>isRngAnyName</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"anyName"</span>
<a name="line-105"></a>
<a name="line-106"></a><a name="isRngAttribute"></a><span class='definition'>isRngAttribute</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-107"></a><span class='definition'>isRngAttribute</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"attribute"</span>
<a name="line-108"></a>
<a name="line-109"></a><a name="isRngChoice"></a><span class='definition'>isRngChoice</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-110"></a><span class='definition'>isRngChoice</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"choice"</span>
<a name="line-111"></a>
<a name="line-112"></a><a name="isRngCombine"></a><span class='definition'>isRngCombine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-113"></a><span class='definition'>isRngCombine</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"combine"</span>
<a name="line-114"></a>
<a name="line-115"></a><a name="isRngData"></a><span class='definition'>isRngData</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-116"></a><span class='definition'>isRngData</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"data"</span>
<a name="line-117"></a>
<a name="line-118"></a><a name="isRngDefine"></a><span class='definition'>isRngDefine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-119"></a><span class='definition'>isRngDefine</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"define"</span>
<a name="line-120"></a>
<a name="line-121"></a><a name="isRngDiv"></a><span class='definition'>isRngDiv</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-122"></a><span class='definition'>isRngDiv</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"div"</span>
<a name="line-123"></a>
<a name="line-124"></a><a name="isRngElement"></a><span class='definition'>isRngElement</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-125"></a><span class='definition'>isRngElement</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"element"</span>
<a name="line-126"></a>
<a name="line-127"></a><a name="isRngEmpty"></a><span class='definition'>isRngEmpty</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-128"></a><span class='definition'>isRngEmpty</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"empty"</span>
<a name="line-129"></a>
<a name="line-130"></a><a name="isRngExcept"></a><span class='definition'>isRngExcept</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-131"></a><span class='definition'>isRngExcept</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"except"</span>
<a name="line-132"></a>
<a name="line-133"></a><a name="isRngExternalRef"></a><span class='definition'>isRngExternalRef</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-134"></a><span class='definition'>isRngExternalRef</span>	<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"externalRef"</span>
<a name="line-135"></a>
<a name="line-136"></a><a name="isRngGrammar"></a><span class='definition'>isRngGrammar</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-137"></a><span class='definition'>isRngGrammar</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"grammar"</span>
<a name="line-138"></a>
<a name="line-139"></a><a name="isRngGroup"></a><span class='definition'>isRngGroup</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-140"></a><span class='definition'>isRngGroup</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"group"</span>
<a name="line-141"></a>
<a name="line-142"></a><a name="isRngInclude"></a><span class='definition'>isRngInclude</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-143"></a><span class='definition'>isRngInclude</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"include"</span>
<a name="line-144"></a>
<a name="line-145"></a><a name="isRngInterleave"></a><span class='definition'>isRngInterleave</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-146"></a><span class='definition'>isRngInterleave</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"interleave"</span>
<a name="line-147"></a>
<a name="line-148"></a><a name="isRngList"></a><span class='definition'>isRngList</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-149"></a><span class='definition'>isRngList</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"list"</span>
<a name="line-150"></a>
<a name="line-151"></a><a name="isRngMixed"></a><span class='definition'>isRngMixed</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-152"></a><span class='definition'>isRngMixed</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"mixed"</span>
<a name="line-153"></a>
<a name="line-154"></a><a name="isRngName"></a><span class='definition'>isRngName</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-155"></a><span class='definition'>isRngName</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"name"</span>
<a name="line-156"></a>
<a name="line-157"></a><a name="isRngNotAllowed"></a><span class='definition'>isRngNotAllowed</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-158"></a><span class='definition'>isRngNotAllowed</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"notAllowed"</span>
<a name="line-159"></a>
<a name="line-160"></a><a name="isRngNsName"></a><span class='definition'>isRngNsName</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-161"></a><span class='definition'>isRngNsName</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"nsName"</span>
<a name="line-162"></a>
<a name="line-163"></a><a name="isRngOneOrMore"></a><span class='definition'>isRngOneOrMore</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-164"></a><span class='definition'>isRngOneOrMore</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"oneOrMore"</span>
<a name="line-165"></a>
<a name="line-166"></a><a name="isRngOptional"></a><span class='definition'>isRngOptional</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-167"></a><span class='definition'>isRngOptional</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"optional"</span>
<a name="line-168"></a>
<a name="line-169"></a><a name="isRngParam"></a><span class='definition'>isRngParam</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-170"></a><span class='definition'>isRngParam</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"param"</span>
<a name="line-171"></a>
<a name="line-172"></a><a name="isRngParentRef"></a><span class='definition'>isRngParentRef</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-173"></a><span class='definition'>isRngParentRef</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"parentRef"</span>
<a name="line-174"></a>
<a name="line-175"></a><a name="isRngRef"></a><span class='definition'>isRngRef</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-176"></a><span class='definition'>isRngRef</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"ref"</span>
<a name="line-177"></a>
<a name="line-178"></a><a name="isRngRelaxError"></a><span class='definition'>isRngRelaxError</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-179"></a><span class='definition'>isRngRelaxError</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"relaxError"</span>
<a name="line-180"></a>
<a name="line-181"></a><a name="isRngStart"></a><span class='definition'>isRngStart</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-182"></a><span class='definition'>isRngStart</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"start"</span>
<a name="line-183"></a>
<a name="line-184"></a><a name="isRngText"></a><span class='definition'>isRngText</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-185"></a><span class='definition'>isRngText</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"text"</span>
<a name="line-186"></a>
<a name="line-187"></a><a name="isRngType"></a><span class='definition'>isRngType</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-188"></a><span class='definition'>isRngType</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"type"</span>
<a name="line-189"></a>
<a name="line-190"></a><a name="isRngValue"></a><span class='definition'>isRngValue</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-191"></a><span class='definition'>isRngValue</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"value"</span>
<a name="line-192"></a>
<a name="line-193"></a><a name="isRngZeroOrMore"></a><span class='definition'>isRngZeroOrMore</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-194"></a><span class='definition'>isRngZeroOrMore</span>		<span class='keyglyph'>=</span> <span class='varid'>isElem</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"zeroOrMore"</span>
<a name="line-195"></a>
<a name="line-196"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-197"></a>
<a name="line-198"></a><a name="mkRngElement"></a><span class='definition'>mkRngElement</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='conid'>String</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-199"></a><span class='definition'>mkRngElement</span> <span class='varid'>n</span>		<span class='keyglyph'>=</span> <span class='varid'>mkElement</span> <span class='layout'>(</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>n</span> <span class='varid'>relaxNamespace</span><span class='layout'>)</span>
<a name="line-200"></a>
<a name="line-201"></a><a name="mkRngChoice"></a><span class='definition'>mkRngChoice</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-202"></a><span class='definition'>mkRngChoice</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"choice"</span>
<a name="line-203"></a>
<a name="line-204"></a><a name="mkRngDefine"></a><span class='definition'>mkRngDefine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-205"></a><span class='definition'>mkRngDefine</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"define"</span>
<a name="line-206"></a>
<a name="line-207"></a><a name="mkRngEmpty"></a><span class='definition'>mkRngEmpty</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-208"></a><span class='definition'>mkRngEmpty</span> <span class='varid'>a</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"empty"</span> <span class='varid'>a</span> <span class='varid'>none</span>
<a name="line-209"></a>
<a name="line-210"></a><a name="mkRngGrammar"></a><span class='definition'>mkRngGrammar</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-211"></a><span class='definition'>mkRngGrammar</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"grammar"</span>
<a name="line-212"></a>
<a name="line-213"></a><a name="mkRngGroup"></a><span class='definition'>mkRngGroup</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-214"></a><span class='definition'>mkRngGroup</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"group"</span>
<a name="line-215"></a>
<a name="line-216"></a><a name="mkRngInterleave"></a><span class='definition'>mkRngInterleave</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-217"></a><span class='definition'>mkRngInterleave</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"interleave"</span>
<a name="line-218"></a>
<a name="line-219"></a><a name="mkRngName"></a><span class='definition'>mkRngName</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-220"></a><span class='definition'>mkRngName</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"name"</span>
<a name="line-221"></a>
<a name="line-222"></a><a name="mkRngNotAllowed"></a><span class='definition'>mkRngNotAllowed</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-223"></a><span class='definition'>mkRngNotAllowed</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"notAllowed"</span>
<a name="line-224"></a>
<a name="line-225"></a><a name="mkRngOneOrMore"></a><span class='definition'>mkRngOneOrMore</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-226"></a><span class='definition'>mkRngOneOrMore</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"oneOrMore"</span>
<a name="line-227"></a>
<a name="line-228"></a><a name="mkRngRef"></a><span class='definition'>mkRngRef</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-229"></a><span class='definition'>mkRngRef</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"ref"</span>
<a name="line-230"></a>
<a name="line-231"></a><a name="mkRngRelaxError"></a><span class='definition'>mkRngRelaxError</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-232"></a><span class='definition'>mkRngRelaxError</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"relaxError"</span>
<a name="line-233"></a>
<a name="line-234"></a><a name="mkRngStart"></a><span class='definition'>mkRngStart</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-235"></a><span class='definition'>mkRngStart</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"start"</span>
<a name="line-236"></a>
<a name="line-237"></a><a name="mkRngText"></a><span class='definition'>mkRngText</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='varid'>n</span> <span class='conid'>XmlTree</span>
<a name="line-238"></a><span class='definition'>mkRngText</span> <span class='varid'>a</span>		<span class='keyglyph'>=</span> <span class='varid'>mkRngElement</span> <span class='str'>"text"</span> <span class='varid'>a</span> <span class='varid'>none</span>
<a name="line-239"></a>
<a name="line-240"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-241"></a>
<a name="line-242"></a><a name="setRngName"></a><span class='definition'>setRngName</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='conid'>String</span> <span class='keyglyph'>-&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-243"></a><span class='definition'>setRngName</span> <span class='varid'>n</span>		<span class='keyglyph'>=</span> <span class='varid'>setElemName</span> <span class='layout'>(</span><span class='varid'>mkQName</span> <span class='str'>""</span> <span class='varid'>n</span> <span class='varid'>relaxNamespace</span><span class='layout'>)</span>
<a name="line-244"></a>
<a name="line-245"></a><a name="setRngNameDiv"></a><span class='definition'>setRngNameDiv</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-246"></a><span class='definition'>setRngNameDiv</span>		<span class='keyglyph'>=</span> <span class='varid'>setRngName</span> <span class='str'>"div"</span>
<a name="line-247"></a>
<a name="line-248"></a><a name="setRngNameRef"></a><span class='definition'>setRngNameRef</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-249"></a><span class='definition'>setRngNameRef</span>		<span class='keyglyph'>=</span> <span class='varid'>setRngName</span> <span class='str'>"ref"</span>
<a name="line-250"></a>
<a name="line-251"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-252"></a>
<a name="line-253"></a><span class='comment'>-- Attributes</span>
<a name="line-254"></a>
<a name="line-255"></a><a name="isRngAttrAttribute"></a><span class='definition'>isRngAttrAttribute</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-256"></a><span class='definition'>isRngAttrAttribute</span>		<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"attribute"</span>
<a name="line-257"></a>
<a name="line-258"></a><a name="isRngAttrCombine"></a><span class='definition'>isRngAttrCombine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-259"></a><span class='definition'>isRngAttrCombine</span>		<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"combine"</span>
<a name="line-260"></a>
<a name="line-261"></a><a name="isRngAttrDatatypeLibrary"></a><span class='definition'>isRngAttrDatatypeLibrary</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-262"></a><span class='definition'>isRngAttrDatatypeLibrary</span>	<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"datatypeLibrary"</span>
<a name="line-263"></a>
<a name="line-264"></a><a name="isRngAttrHref"></a><span class='definition'>isRngAttrHref</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-265"></a><span class='definition'>isRngAttrHref</span>			<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"href"</span>
<a name="line-266"></a>
<a name="line-267"></a><a name="isRngAttrName"></a><span class='definition'>isRngAttrName</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-268"></a><span class='definition'>isRngAttrName</span>			<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"name"</span>
<a name="line-269"></a>
<a name="line-270"></a><a name="isRngAttrNs"></a><span class='definition'>isRngAttrNs</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-271"></a><span class='definition'>isRngAttrNs</span>			<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"ns"</span>
<a name="line-272"></a>
<a name="line-273"></a><a name="isRngAttrType"></a><span class='definition'>isRngAttrType</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-274"></a><span class='definition'>isRngAttrType</span>			<span class='keyglyph'>=</span> <span class='varid'>isAttr</span> <span class='varop'>&gt;&gt;&gt;</span> <span class='varid'>hasRngName</span> <span class='str'>"type"</span>
<a name="line-275"></a>
<a name="line-276"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-277"></a>
<a name="line-278"></a><a name="hasRngAttrAttribute"></a><span class='definition'>hasRngAttrAttribute</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-279"></a><span class='definition'>hasRngAttrAttribute</span>		<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"attribute"</span>
<a name="line-280"></a>
<a name="line-281"></a><a name="hasRngAttrCombine"></a><span class='definition'>hasRngAttrCombine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-282"></a><span class='definition'>hasRngAttrCombine</span>		<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"combine"</span>
<a name="line-283"></a>
<a name="line-284"></a><a name="hasRngAttrDatatypeLibrary"></a><span class='definition'>hasRngAttrDatatypeLibrary</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-285"></a><span class='definition'>hasRngAttrDatatypeLibrary</span>	<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"datatypeLibrary"</span>
<a name="line-286"></a>
<a name="line-287"></a><a name="hasRngAttrHref"></a><span class='definition'>hasRngAttrHref</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-288"></a><span class='definition'>hasRngAttrHref</span>			<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"href"</span>
<a name="line-289"></a>
<a name="line-290"></a><a name="hasRngAttrName"></a><span class='definition'>hasRngAttrName</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-291"></a><span class='definition'>hasRngAttrName</span>			<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"name"</span>
<a name="line-292"></a>
<a name="line-293"></a><a name="hasRngAttrNs"></a><span class='definition'>hasRngAttrNs</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-294"></a><span class='definition'>hasRngAttrNs</span>			<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"ns"</span>
<a name="line-295"></a>
<a name="line-296"></a><a name="hasRngAttrType"></a><span class='definition'>hasRngAttrType</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>XmlTree</span>
<a name="line-297"></a><span class='definition'>hasRngAttrType</span>			<span class='keyglyph'>=</span> <span class='varid'>hasAttr</span> <span class='str'>"type"</span>
<a name="line-298"></a>
<a name="line-299"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-300"></a>
<a name="line-301"></a><a name="getRngAttrAttribute"></a><span class='definition'>getRngAttrAttribute</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-302"></a><span class='definition'>getRngAttrAttribute</span>		<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"attribute"</span>
<a name="line-303"></a>
<a name="line-304"></a><a name="getRngAttrCombine"></a><span class='definition'>getRngAttrCombine</span>		<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-305"></a><span class='definition'>getRngAttrCombine</span>		<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"combine"</span>
<a name="line-306"></a>
<a name="line-307"></a><a name="getRngAttrDatatypeLibrary"></a><span class='definition'>getRngAttrDatatypeLibrary</span>	<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-308"></a><span class='definition'>getRngAttrDatatypeLibrary</span>	<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"datatypeLibrary"</span>
<a name="line-309"></a>
<a name="line-310"></a><a name="getRngAttrDescr"></a><span class='definition'>getRngAttrDescr</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-311"></a><span class='definition'>getRngAttrDescr</span>			<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"descr"</span>
<a name="line-312"></a>
<a name="line-313"></a><a name="getRngAttrHref"></a><span class='definition'>getRngAttrHref</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-314"></a><span class='definition'>getRngAttrHref</span>			<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"href"</span>
<a name="line-315"></a>
<a name="line-316"></a><a name="getRngAttrName"></a><span class='definition'>getRngAttrName</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-317"></a><span class='definition'>getRngAttrName</span>			<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"name"</span>
<a name="line-318"></a>
<a name="line-319"></a><a name="getRngAttrNs"></a><span class='definition'>getRngAttrNs</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-320"></a><span class='definition'>getRngAttrNs</span>			<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"ns"</span>
<a name="line-321"></a>
<a name="line-322"></a><a name="getRngAttrType"></a><span class='definition'>getRngAttrType</span>			<span class='keyglyph'>::</span> <span class='conid'>ArrowXml</span> <span class='varid'>a</span> <span class='keyglyph'>=&gt;</span> <span class='varid'>a</span> <span class='conid'>XmlTree</span> <span class='conid'>String</span>
<a name="line-323"></a><span class='definition'>getRngAttrType</span>			<span class='keyglyph'>=</span> <span class='varid'>getAttrValue</span> <span class='str'>"type"</span>
<a name="line-324"></a>
<a name="line-325"></a><span class='comment'>-- ------------------------------------------------------------</span>
<a name="line-326"></a>
</pre></body>
</html>