From cb9a82f5c7a6fd760031d32706cb9265dba3b999 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 14 Apr 2000 09:54:12 +0000
Subject: [PATCH] [project @ 2000-04-14 09:54:12 by simonmar] fix for interface
header regexp; orphan modules weren't being recorded as such.
---
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 90424c599c36..f452fa102104 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;
--
GitLab