diff options
author | David Waern <david.waern@gmail.com> | 2010-04-08 21:20:00 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-04-08 21:20:00 +0000 |
commit | 6f47cab6685dd30c9795fe56eb947cd94c7255ee (patch) | |
tree | 8b093beb2084add5f7898b6a44dbf2a72e2f80b3 /src/Haddock/Interface.hs | |
parent | a897d5c77d0e99c586023cc4c14062ef7cc4f8a2 (diff) |
Improve function name
Diffstat (limited to 'src/Haddock/Interface.hs')
-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 |