Commit bdbcad52 authored by Simon Marlow's avatar Simon Marlow

small tidyup

parent a13bbc1f
......@@ -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
......
......@@ -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 =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment