Fix #8677 (fallout from #8180)
authorAustin Seipp <austin@well-typed.com>
Tue, 21 Jan 2014 20:05:49 +0000 (14:05 -0600)
committerAustin Seipp <austin@well-typed.com>
Tue, 21 Jan 2014 20:05:52 +0000 (14:05 -0600)
When using TemplateHaskell and -prof, we *do not* want -dynamic-too, because
we're going to *expect* that you compiled the vanilla/dyn way already,
and are compiling profiling the second time (i.e. so GHCi can just load
the normal, non-profiled object files.)

Signed-off-by: Austin Seipp <austin@well-typed.com>
compiler/main/DriverPipeline.hs

index b2f182a..3d34bdb 100644 (file)
@@ -140,9 +140,10 @@ compileOne' m_tc_result mHscMessage
        mod_graph   = hsc_mod_graph hsc_env0
        needsTH     = any (xopt Opt_TemplateHaskell . ms_hspp_opts) mod_graph
        isDynWay    = any (== WayDyn) (ways dflags0)
+       isProfWay   = any (== WayProf) (ways dflags0)
    -- #8180 - when using TemplateHaskell, switch on -dynamic-too so
    -- the linker can correctly load the object files.
-   let dflags1 = if needsTH && dynamicGhc && not isDynWay
+   let dflags1 = if needsTH && dynamicGhc && not isDynWay && not isProfWay
                   then gopt_set dflags0 Opt_BuildDynamicToo
                   else dflags0