Improve function name

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