X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Ftest%2Ftypechecker%2Ffix;fp=ghc%2Finterpreter%2Ftest%2Ftypechecker%2Ffix;h=a182498675c91d6274d83e8c1309aabf4a720033;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hp=0000000000000000000000000000000000000000;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247;p=ghc-hetmet.git

diff --git a/ghc/interpreter/test/typechecker/fix b/ghc/interpreter/test/typechecker/fix
new file mode 100644
index 0000000..a182498
--- /dev/null
+++ b/ghc/interpreter/test/typechecker/fix
@@ -0,0 +1,24 @@
+#! /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;
+}