Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : master
http://hackage.haskell.org/trac/ghc/changeset/626211cc85d70918c0c02328084dcee50a206086 >--------------------------------------------------------------- commit 626211cc85d70918c0c02328084dcee50a206086 Author: David Waern <[email protected]> Date: Fri Nov 25 00:03:33 2011 +0100 Avoid depency on regex-compat also in accept.hs. >--------------------------------------------------------------- tests/html-tests/accept.hs | 10 ++++++++-- 1 files changed, 8 insertions(+), 2 deletions(-) diff --git a/tests/html-tests/accept.hs b/tests/html-tests/accept.hs index fa18fe9..fe1e542 100644 --- a/tests/html-tests/accept.hs +++ b/tests/html-tests/accept.hs @@ -5,7 +5,6 @@ import System.Exit import System.Directory import Data.List import Control.Monad -import Text.Regex main = do @@ -27,4 +26,11 @@ copy file = do writeFile new (stripLinks contents) -stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">" +stripLinks str = + let prefix = "<a href=\"" in + case stripPrefix prefix str of + Just str' -> prefix ++ stripLinks (dropWhile (/= '"') str') + Nothing -> + case str of + [] -> [] + x : xs -> x : stripLinks xs _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
