diff options
Diffstat (limited to 'textproc/hs-HaXml/files/patch-1.13-percent')
| -rw-r--r-- | textproc/hs-HaXml/files/patch-1.13-percent | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/textproc/hs-HaXml/files/patch-1.13-percent b/textproc/hs-HaXml/files/patch-1.13-percent new file mode 100644 index 000000000000..75858eaa11e9 --- /dev/null +++ b/textproc/hs-HaXml/files/patch-1.13-percent @@ -0,0 +1,21 @@ +--- src/Text/XML/HaXml/Lex.hs.orig 2005-04-19 13:22:15.000000000 +0100 ++++ src/Text/XML/HaXml/Lex.hs 2006-02-21 15:46:57.000000000 +0000 +@@ -194,12 +194,12 @@ + | close `prefixes` (s:ss) = emit (TokFreeText (reverse acc)) pos: + emit tok p: + skip (length close-1) (addcol 1 p) ss k +- | s=='&'||s=='%' = (if not (null acc) +- then (emit (TokFreeText (reverse acc)) pos:) +- else id) +- (emit (if s=='&' then TokAmp else TokPercent) p: +- textUntil ";" TokSemi "" p (addcol 1 p) ss +- (\p' i-> textOrRefUntil close tok "" p p' i k)) ++ | s=='&' = (if not (null acc) ++ then (emit (TokFreeText (reverse acc)) pos:) ++ else id) ++ (emit TokAmp p: ++ textUntil ";" TokSemi "" p (addcol 1 p) ss ++ (\p' i-> textOrRefUntil close tok "" p p' i k)) + | isSpace s = textOrRefUntil close tok (s:acc) pos (white s p) ss k + | otherwise = textOrRefUntil close tok (s:acc) pos (addcol 1 p) ss k + |