diff options
| author | Oliver Braun <obraun@FreeBSD.org> | 2004-02-22 15:36:33 +0000 |
|---|---|---|
| committer | Oliver Braun <obraun@FreeBSD.org> | 2004-02-22 15:36:33 +0000 |
| commit | 66cc2531933182433f2c7365d8c98b2a7cf2d72c (patch) | |
| tree | 725fef33bf50dfde423d4191f12658aa7d75badf /textproc/hs-haxml | |
| parent | 5307d47cef9ecf70dbb7b46982d31de127816bf2 (diff) | |
| download | ports-66cc2531933182433f2c7365d8c98b2a7cf2d72c.tar.gz ports-66cc2531933182433f2c7365d8c98b2a7cf2d72c.zip | |
Notes
Diffstat (limited to 'textproc/hs-haxml')
| -rw-r--r-- | textproc/hs-haxml/Makefile | 2 | ||||
| -rw-r--r-- | textproc/hs-haxml/files/patch-src::tools::Xtract | 34 |
2 files changed, 0 insertions, 36 deletions
diff --git a/textproc/hs-haxml/Makefile b/textproc/hs-haxml/Makefile index 93081fe8cbd1..03bd08a12355 100644 --- a/textproc/hs-haxml/Makefile +++ b/textproc/hs-haxml/Makefile @@ -16,8 +16,6 @@ DISTNAME= HaXml-${PORTVERSION} MAINTAINER= obraun@FreeBSD.org COMMENT= A collection of utilities for using Haskell and XML together -BROKEN= "Patch fails" - USE_SIZE= yes USE_REINPLACE= yes HAS_CONFIGURE= yes 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 |