diff options
| author | simonmar <unknown> | 2000-04-14 09:54:12 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-04-14 09:54:12 +0000 |
| commit | cb9a82f5c7a6fd760031d32706cb9265dba3b999 (patch) | |
| tree | b1d8a48c58b68f5cd3def22fd24a1e7b8fe868cd | |
| parent | ae860efadc3f6b01749f9e45aa8164f68a773803 (diff) | |
| download | haskell-cb9a82f5c7a6fd760031d32706cb9265dba3b999.tar.gz | |
[project @ 2000-04-14 09:54:12 by simonmar]
fix for interface header regexp; orphan modules weren't being recorded
as such.
| -rw-r--r-- | ghc/driver/ghc-iface.lprl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/driver/ghc-iface.lprl b/ghc/driver/ghc-iface.lprl index 90424c599c..f452fa1021 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; |