From: sof <unknown>
Date: Sat, 5 Jul 1997 03:14:50 +0000 (+0000)
Subject: [project @ 1997-07-05 03:14:50 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~253
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ce08b58b32d58d76f7acdf9be4a3a72c873476e5;p=ghc-hetmet.git

[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
--- 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