diff options
author | David Waern <david.waern@gmail.com> | 2012-02-04 03:21:33 +0100 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2012-02-04 03:21:33 +0100 |
commit | fbef8bafd21d34f83326f7dd06bb82c563571345 (patch) | |
tree | 0525ac86a7f6daa40866edc930829a68ed81df5c /tests | |
parent | 8b5294785bb5bbe2de738e03c3961a4317ffcf86 (diff) |
Remove copy.hs - use accept.hs instead.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/html-tests/copy.hs | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/tests/html-tests/copy.hs b/tests/html-tests/copy.hs deleted file mode 100644 index 188bfd33..00000000 --- a/tests/html-tests/copy.hs +++ /dev/null @@ -1,37 +0,0 @@ -import System.Cmd -import System.Environment -import System.FilePath -import System.Exit -import System.Directory -import Data.List -import Control.Monad - - -main :: IO () -main = do - args <- getArgs - dir <- getCurrentDirectory - contents <- getDirectoryContents (dir </> "output") - if not $ null args - then - mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args ] - else - mapM_ copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ] - - -copy file = do - let new = "tests" </> takeFileName file <.> ".ref" - print file - print new - contents <- readFile file - writeFile new (stripLinks contents) - - -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 |