Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/bdbcad52b57bc355c427e7322dc38360458d56d7 >--------------------------------------------------------------- commit bdbcad52b57bc355c427e7322dc38360458d56d7 Author: Simon Marlow <[email protected]> Date: Thu Mar 1 14:18:17 2012 +0000 small tidyup >--------------------------------------------------------------- compiler/iface/MkIface.lhs | 2 -- compiler/main/HscMain.hs | 3 +-- 2 files changed, 1 insertions(+), 4 deletions(-) diff --git a/compiler/iface/MkIface.lhs b/compiler/iface/MkIface.lhs index 3df54be..7420dd8 100644 --- a/compiler/iface/MkIface.lhs +++ b/compiler/iface/MkIface.lhs @@ -1095,8 +1095,6 @@ data RecompileRequired | RecompBecause String -- ^ The .o/.hi files are up to date, but something else has changed -- to force recompilation; the String says what (one-line summary) - | RecompForcedByTH - -- ^ recompile is forced due to use of TH by the module deriving Eq recompileRequired :: RecompileRequired -> Bool diff --git a/compiler/main/HscMain.hs b/compiler/main/HscMain.hs index df85d06..562332d 100644 --- a/compiler/main/HscMain.hs +++ b/compiler/main/HscMain.hs @@ -625,7 +625,7 @@ genericHscCompile compiler hscMessage hsc_env case mb_checked_iface of Just iface | not (recompileRequired recomp_reqd) -> if mi_used_th iface && not stable - then compile RecompForcedByTH + then compile (RecompBecause "TH") else skip iface _otherwise -> compile recomp_reqd @@ -851,7 +851,6 @@ batchMsg hsc_env mb_mod_index recomp mod_summary = | verbosity (hsc_dflags hsc_env) >= 2 -> showMsg "Skipping " "" | otherwise -> return () RecompBecause reason -> showMsg "Compiling " (" [" ++ reason ++ "]") - RecompForcedByTH -> showMsg "Compiling " " [TH]" where dflags = hsc_dflags hsc_env showMsg msg reason = _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
