diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-03-01 14:18:17 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-06-15 15:03:03 +0100 |
| commit | bdbcad52b57bc355c427e7322dc38360458d56d7 (patch) | |
| tree | b9cf86d2067757d8c7c70b4be66548b4bd5afd4e | |
| parent | a13bbc1f594d2ebbce4d37e7236e9e253bdfad14 (diff) | |
| download | haskell-bdbcad52b57bc355c427e7322dc38360458d56d7.tar.gz | |
small tidyup
| -rw-r--r-- | compiler/iface/MkIface.lhs | 2 | ||||
| -rw-r--r-- | 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 3df54be1a7..7420dd8c32 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 df85d06f1b..562332d52a 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 = |