diff options
| -rw-r--r-- | src/Haddock/Interface.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index ffe2ae71..33a2f7de 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -92,8 +92,8 @@ createInterfaces' verbosity modules flags instIfaceMap = do dflags <- getSessionDynFlags _ <- setSessionDynFlags dflags { hscTarget = defaultObjectTarget } -- we need to set defaultObjectTarget on all the ModSummaries as well - let addHscAsm m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = defaultObjectTarget } } - return (map addHscAsm modgraph) + let addDefTarget m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = defaultObjectTarget } } + return (map addDefTarget modgraph) else return modgraph let orderedMods = flattenSCCs $ topSortModuleGraph False modgraph' Nothing |