From 2ab55bbc8e54eeaf71c4cb2fb8b670c7105f77cb Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 19 Jul 2001 09:24:56 +0000 Subject: [PATCH] [project @ 2001-07-19 09:24:56 by simonpj] Output a slightly better message for -ddump-hi-diffs --- ghc/compiler/rename/RnIfaces.lhs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/rename/RnIfaces.lhs b/ghc/compiler/rename/RnIfaces.lhs index 443c642..b5a3ebb 100644 --- a/ghc/compiler/rename/RnIfaces.lhs +++ b/ghc/compiler/rename/RnIfaces.lhs @@ -859,8 +859,10 @@ checkEntityUsage new_vers (name,old_vers) out_of_date (sep [ptext SLIT("No longer exported:"), ppr name]) Just new_vers -- It's there, but is it up to date? - | new_vers == old_vers -> traceHiDiffsRn (text "Up to date" <+> ppr name <+> parens (ppr new_vers)) `thenRn_` returnRn upToDate - | otherwise -> out_of_date (sep [ptext SLIT("Out of date:"), ppr name]) + | new_vers == old_vers -> traceHiDiffsRn (text "Up to date" <+> ppr name <+> parens (ppr new_vers)) `thenRn_` + returnRn upToDate + | otherwise -> out_of_date (sep [ptext SLIT("Out of date:"), ppr name, ppr + old_vers, ptext SLIT("->"), ppr new_vers]) up_to_date msg = traceHiDiffsRn msg `thenRn_` returnRn upToDate out_of_date msg = traceHiDiffsRn msg `thenRn_` returnRn outOfDate -- 1.7.10.4