[project @ 1997-07-27 09:13:50 by sof]

regexp change for usage lines

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index fe61f69..7f4cb66 100644 (file)
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -187,7 +187,7 @@ sub readHiFile {
        } elsif ( /^_([a-z_]+)_$/ ) {
            $now_in = $1;
 
-       } elsif ( $now_in eq 'usages' && /^(\S+)\s+(!\s+)?(\d+)\s+:: (.*)/ ) {
+       } elsif ( $now_in eq 'usages' && /^(\S+)\s+(!\s+)?(\d+)\s+::(.*)/ ) {
            $Stuff{"$mod:usages"} .= $_; # save the whole thing