small tidyup
authorSimon Marlow <marlowsd@gmail.com>
Thu, 1 Mar 2012 14:18:17 +0000 (14:18 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Fri, 15 Jun 2012 14:03:03 +0000 (15:03 +0100)
compiler/iface/MkIface.lhs
compiler/main/HscMain.hs

index 3df54be..7420dd8 100644 (file)
@@ -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
index df85d06..562332d 100644 (file)
@@ -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 =