[Make copy.hs strip link contents before copying
David Waern <david.waern@gmail.com>**20091122144847
 Ignore-this: cbf8d1e847a2d2f1f8a2790b572fa3e4
 
 No more updating of reference files when URLs in links changes.
] {
hunk ./tests/copy.hs 8
+import Text.Regex
+
hunk ./tests/copy.hs 18
-    else    
+    else
hunk ./tests/copy.hs 21
+
hunk ./tests/copy.hs 24
-  print file 
+  print file
hunk ./tests/copy.hs 26
-  copyFile file ("tests" </> takeFileName file <.> ".ref") 
+  contents <- readFile file
+  writeFile new (stripLinks contents)
+
+
+stripLinks f = subRegex (mkRegexWithOpts "<A HREF=[^>]*>" False False) f "<A HREF=\"\">"
}