From bcc20b6bf309df26bd8b9f0d80b598eaf6cfcf42 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Tue, 7 Aug 2012 14:48:13 +0100
Subject: Follow changes in GHC

---
 src/Haddock/Interface.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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) }
-- 
cgit v1.2.3