Commit ec785180 authored by simonpj's avatar simonpj
Browse files

[project @ 1998-12-21 09:39:56 by simonpj]

Forgot to commit changes to interface file munging in ghc-iface.lprl
parent 38060280
......@@ -108,7 +108,6 @@ sub constructNewHiFile {
print NEWHI $Stuff{'new:usages'} unless $Stuff{'new:usages'} eq '';
print NEWHI $Stuff{'new:instance_modules'} unless $Stuff{'new:instance_modules'} eq '';
print NEWHI $Stuff{'new:exports'};
print NEWHI $Stuff{'new:fixities'} unless $Stuff{'new:fixities'} eq '';
print NEWHI $Stuff{'new:instances'} unless $Stuff{'new:instances'} eq '';
foreach $v (@decl_names) {
......@@ -148,7 +147,6 @@ sub readHiFile {
$Stuff{"$mod:instance_modules"} = '';
$Stuff{"$mod:usages"} = ''; # stuff glommed together
$Stuff{"$mod:exports"} = '';
$Stuff{"$mod:fixities"} = '';
$Stuff{"$mod:instances"} = '';
$Stuff{"$mod:declarations"} = '';
......@@ -177,9 +175,6 @@ sub readHiFile {
} elsif ( /^__export/ ) {
$Stuff{"$mod:exports"} .= $_;
} elsif ( /^infix(r|l)? / ) {
$Stuff{"$mod:fixities"} .= $_;
} elsif ( /^instance / ) {
$Stuff{"$mod:instances"} .= $_;
......@@ -220,6 +215,12 @@ sub readHiFile {
$Decl{"$mod:$current_name"} = $_;
if ($mod eq "old") { $OldVersion{$current_name} = $version; }
} elsif ( /^infix(r|l)?\s+[0-9]\s+(\S+)/ ) {
# fixity declaration
$current_name = "fixity $2";
$Decl{"$mod:$current_name"} = $_;
if ($mod eq "old") { $OldVersion{$current_name} = $version; }
} elsif ( /^(\S+)\s+::\s+/ ) {
# Value declaration
$current_name = $1;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment