aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIan Lynagh <igloo@earth.li>2012-08-07 14:48:13 +0100
committerIan Lynagh <igloo@earth.li>2012-08-07 14:48:13 +0100
commitbcc20b6bf309df26bd8b9f0d80b598eaf6cfcf42 (patch)
treec5662eee3ca3c2cc885e24ee8697d7242f63f529
parent26742dface2c2144c86447d760875582cc962f4f (diff)
Follow changes in GHC
-rw-r--r--src/Haddock/Interface.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index dcd794af..9b676964 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -133,7 +133,8 @@ createIfaces0 verbosity modules flags instIfaceMap =
enableCompilation :: ModuleGraph -> Ghc ModuleGraph
enableCompilation modGraph = do
- let enableComp d = d { hscTarget = defaultObjectTarget }
+ let enableComp d = let platform = targetPlatform d
+ in d { hscTarget = defaultObjectTarget platform }
modifySessionDynFlags enableComp
-- We need to update the DynFlags of the ModSummaries as well.
let upd m = m { ms_hspp_opts = enableComp (ms_hspp_opts m) }