From: sof <unknown>
Date: Tue, 3 Jun 1997 16:17:59 +0000 (+0000)
Subject: [project @ 1997-06-03 16:17:59 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~443
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d68b9e0496508212ba107d1ad1d4720189a8da84;p=ghc-hetmet.git

[project @ 1997-06-03 16:17:59 by sof]
regexes for class fixed up
---

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index aafcdaf..8144c8a 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -223,8 +223,10 @@ sub readHiFile {
 		$Decl{"$mod:$current_name"} = $_;
 	        if ($mod eq "old") { $OldVersion{$current_name} = $version; }
 
-	    } elsif ( /^class\s+(.*\s+=>\s+)?(\S+)\s+.*where\s+\{.*\}/ ) {
+	    } elsif ( /^class\s+(\{[^{}]*\}\s+=>\s+)?(\S+)\s+/ ) {
 		# must be wary of => bit matching after "where"...
+		# ..hence the [^{}] part
+		# NB: a class decl may not have a where part at all
 		$current_name = $2;
 		$Decl{"$mod:$current_name"} = $_;
 	        if ($mod eq "old") { $OldVersion{$current_name} = $version; }