From ce08b58b32d58d76f7acdf9be4a3a72c873476e5 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 5 Jul 1997 03:14:50 +0000
Subject: [PATCH] [project @ 1997-07-05 03:14:50 by sof] class regexp upd

---
 ghc/driver/ghc-iface.lprl |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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