From: simonmar <unknown>
Date: Fri, 14 Apr 2000 09:54:12 +0000 (+0000)
Subject: [project @ 2000-04-14 09:54:12 by simonmar]
X-Git-Tag: Approximately_9120_patches~4701
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=cb9a82f5c7a6fd760031d32706cb9265dba3b999;p=ghc-hetmet.git

[project @ 2000-04-14 09:54:12 by simonmar]
fix for interface header regexp; orphan modules weren't being recorded
as such.
---

diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl
index 90424c5..f452fa1 100644
--- a/ghc/driver/ghc-iface.lprl
+++ b/ghc/driver/ghc-iface.lprl
@@ -211,7 +211,7 @@ sub readHiFile {
     hi_line: while (<HIFILE>) {
 	next if /^ *$/; # blank line
 
-	if ( /^__interface ("[A-Za-z]*"\s*)([A-Z]\S*) (\d+) (\!)?/ ) {
+	if ( /^__interface ("[A-Za-z]*"\s*)([A-Z]\S*)\s+(\d+)?\s*(\!)?/ ) {
 	    if ( $mod ne 'new' ) {
 		# Reading old .hi file
 		$ModuleVersion{$mod} = $3;