diff options
Diffstat (limited to 'textproc/hs-HaXml/files/patch-src::tools::Xtract')
| -rw-r--r-- | textproc/hs-HaXml/files/patch-src::tools::Xtract | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/textproc/hs-HaXml/files/patch-src::tools::Xtract b/textproc/hs-HaXml/files/patch-src::tools::Xtract deleted file mode 100644 index a84ee6beb403..000000000000 --- a/textproc/hs-HaXml/files/patch-src::tools::Xtract +++ /dev/null @@ -1,34 +0,0 @@ -Index: src/tools/Xtract.hs -=================================================================== -RCS file: /home/cvs/root/HaXml/src/tools/Xtract.hs,v -retrieving revision 1.3 -diff -u -r1.3 Xtract.hs ---- src/tools/Xtract.hs 2 Oct 2002 10:24:06 -0000 1.3 -+++ src/tools/Xtract.hs 27 Aug 2003 16:27:55 -0000 -@@ -11,7 +11,7 @@ - import Text.XML.HaXml.Parse (xmlParse) - import Text.XML.HaXml.Html.Parse (htmlParse) - import Text.XML.HaXml.Xtract.Parse (parseXtract) --import Text.PrettyPrint.HughesPJ (render, vcat) -+import Text.PrettyPrint.HughesPJ (render, vcat, hcat, empty) - import Text.XML.HaXml.Pretty (content) - import Text.XML.HaXml.Html.Generate (htmlprint) - -@@ -40,7 +40,7 @@ - ( if isHTML x then - hPutStrLn stdout . render . htmlprint . - dfilter htmlSelection . getElem . htmlParse x -- else hPutStrLn stdout . render . vcat . map content . -+ else hPutStrLn stdout . render . format . - dfilter xmlSelection . getElem . xmlParse x) c) - files - -@@ -48,3 +48,8 @@ - isHTML x = ".html" `isSuffixOf` x || ".htm" `isSuffixOf` x - - dfilter f = \x-> f x x -+ -+format [] = empty -+format cs@(CString _ _:_) = hcat . map content $ cs -+format cs@(CRef _:_) = hcat . map content $ cs -+format cs = vcat . map content $ cs |