[project @ 2001-01-17 15:23:39 by sewardj]
[ghc-hetmet.git] / ghc / interpreter / test / typechecker / fix
diff --git a/ghc/interpreter/test/typechecker/fix b/ghc/interpreter/test/typechecker/fix
deleted file mode 100644 (file)
index a182498..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-#! /usr/bin/perl -i.bak
-
-while (<>) {
-    # Insert header line
-    if ($ARGV ne $oldargv) {
-       $ARGV =~ /\d+/;
-       $filenum = $&;
-       print <<EOTXT;
-Reading file "test/typechecker/t$filenum.hs":
-EOTXT
-        $oldargv = $ARGV;
-    }
-
-    # Make this script idempotent
-    next if /^Reading file "test\/typechecker\/t\d+\.hs":/;
-
-    # Fix error messages
-    s#test/T[A-Za-z0-9]*\.hs#test/typechecker/t$filenum.hs#g;
-
-    # Delete trailing line
-    s/^Hugs:\[Leaving Hugs\]\n//;
-
-    print;
-}