Extended interface mangler with deprecations handling.
NOTE: Whoever wrote this part of the driver without adding a HUGE
warning in MkIface.lhs to keep both files in synch deserves the most
severe punishment imaginable (huge stick, etc.)! >:-( The seemingly
magical random rearrangement of the interface file outside Haskell's
realm can drive you mad if you forget this...
print NEWHI $Decl{"new:$v"}; # Print the new decl itself
}
print NEWHI $Stuff{'new:rules'} unless $Stuff{'new:rules'} eq '';
print NEWHI $Decl{"new:$v"}; # Print the new decl itself
}
print NEWHI $Stuff{'new:rules'} unless $Stuff{'new:rules'} eq '';
+ print NEWHI $Stuff{'new:deprecations'} unless $Stuff{'new:deprecations'} eq '';
close(NEWHI) || &tidy_up_and_die(1,"Failed writing to $new_hi\n");
}
close(NEWHI) || &tidy_up_and_die(1,"Failed writing to $new_hi\n");
}
$Stuff{"$mod:instances"} = '';
$Stuff{"$mod:declarations"} = '';
$Stuff{"$mod:rules"} = '';
$Stuff{"$mod:instances"} = '';
$Stuff{"$mod:declarations"} = '';
$Stuff{"$mod:rules"} = '';
+ $Stuff{"$mod:deprecations"} = '';
if (! -f $hifile) { # no pre-existing .hi file
$HiExists{$mod} = 0;
if (! -f $hifile) { # no pre-existing .hi file
$HiExists{$mod} = 0;
} elsif ( /^{-## __R / ) {
$Stuff{"$mod:rules"} .= $_;
} elsif ( /^{-## __R / ) {
$Stuff{"$mod:rules"} .= $_;
+ } elsif ( /^{-## __D / ) {
+ $Stuff{"$mod:deprecations"} .= $_;
+
} elsif ( /^-[-]+ .*/ ) { # silently ignore comment lines.
;
} else { # We're in a declaration
} elsif ( /^-[-]+ .*/ ) { # silently ignore comment lines.
;
} else { # We're in a declaration
return(&mv_change($changed_version, "orphan-hood changed"));
}
return(&mv_change($changed_version, "orphan-hood changed"));
}
- foreach $t ( 'usages' , 'exports', 'instances', 'fixities', 'rules' ) {
+ foreach $t ( 'usages' , 'exports', 'instances', 'fixities', 'rules', 'deprecations' ) {
return(&mv_change($changed_version,"$t changed")) if $Stuff{"old:$t"} ne $Stuff{"new:$t"};
}
return(&mv_change($changed_version,"$t changed")) if $Stuff{"old:$t"} ne $Stuff{"new:$t"};
}