XML: fix union of EscapedText

[haskell/symantic-xml.git] / test / Golden / XML / 0046.xml.read

(NodeElem doc) @(test/Golden/XML/0046.xml#1:1-4:7 :| [])
|
`- (NodeText (EscapedText (fromList [EscapedPlain "\r\n",EscapedCharRef (CharRef 'A'),EscapedCharRef (CharRef '\t'),EscapedCharRef (CharRef 'A'),EscapedCharRef (CharRef 'O'),EscapedCharRef (CharRef 'O'),EscapedCharRef (CharRef '\t'),EscapedPlain "\r\n",EscapedCharRef (CharRef '\1110764'),EscapedCharRef (CharRef '\n'),EscapedPlain "\r\n"]))) @(test/Golden/XML/0046.xml#1:6-4:1 :| [])