Make copy.hs strip link contents before copying

No more updating of reference files when URLs in links changes.

1 files changed, 10 insertions, 3 deletions

diff --git a/tests/copy.hs b/tests/copy.hs
index d19dff7b..fa18fe9c 100644
--- a/tests/copy.hs
+++ b/tests/copy.hs
@@ -5,6 +5,8 @@ import System.Exit
 import System.Directory
 import Data.List
 import Control.Monad
+import Text.Regex
+
 
 main = do
   args <- getArgs
@@ -13,11 +15,16 @@ main = do
   if not $ null args
     then
       mapM copy [ "output" </> file  | file <- contents, ".html" `isSuffixOf` file, takeBaseName file `elem` args  ]
-    else    
+    else
       mapM copy [ "output" </> file | file <- contents, ".html" `isSuffixOf` file ]
 
+
 copy file = do
   let new = "tests" </> takeFileName file <.> ".ref"
-  print file 
+  print file
   print new
-  copyFile file ("tests" </> takeFileName file <.> ".ref") 
+  contents <- readFile file
+  writeFile new (stripLinks contents)
+
+
+stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"