1 files changed, 4 insertions, 3 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs
index 5a8e8485..ea1f42e5 100644
--- a/src/Haddock/Interface.hs
+++ b/src/Haddock/Interface.hs
@@ -50,9 +50,9 @@ import System.FilePath
 import Text.Printf
 
 import Digraph
-import DynFlags hiding (verbosity, flags)
+import DynFlags hiding (verbosity)
 import Exception
-import GHC hiding (verbosity, flags)
+import GHC hiding (verbosity)
 import HscTypes
 
 
@@ -138,7 +138,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) }