[project @ 1997-07-05 03:14:50 by sof]

class regexp upd

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index 8144c8a..ffc15b9 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+(\d+)\s+:: (.*)/ ) {
+       } elsif ( $now_in eq 'usages' && /^(\S+)\s+(!\s+)?(\d+)\s+:: (.*)/ ) {
            $Stuff{"$mod:usages"} .= $_; # save the whole thing