X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fdriver%2Fghc-recomp.lprl;h=39efdb9780551d3a6f0b536c1af2adef243a8fdb;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=3414605e8d2bdae0261c4413d819f38470b84484;hpb=a7e6cdbfc4f27c2e0ab9c12ebe6431c246c74c6d;p=ghc-hetmet.git diff --git a/ghc/driver/ghc-recomp.lprl b/ghc/driver/ghc-recomp.lprl index 3414605..39efdb9 100644 --- a/ghc/driver/ghc-recomp.lprl +++ b/ghc/driver/ghc-recomp.lprl @@ -33,7 +33,7 @@ sub runRecompChkr { $hi_atime,$hi_mtime,$hi_ctime,$hi_blksize,$hi_blocks) = stat(_); # stat info from -f test if ($i_mtime > $o_mtime) { - print STDERR "$Pgm:recompile:Input file $ifile newer than $ofile_target ($i_mtime > $o_mtime)\n"; + print STDERR "$Pgm:recompile:Input file $ifile newer than $ofile_target\n"; return(1); } @@ -121,10 +121,6 @@ print STDERR "considering used entities...\n"; } return 0 if ! $used_entities_have_changed; - print STDERR "ifile $ifile:\t$i_mtime\n"; - print STDERR "ofile $ofile_target:\t$o_mtime\n"; - print STDERR "hifile $hifile_target:\t$hi_mtime\n"; - return(1); # OK, *recompile* } \end{code}