From 6f47cab6685dd30c9795fe56eb947cd94c7255ee Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 8 Apr 2010 21:20:00 +0000
Subject: Improve function name

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

(limited to 'src/Haddock')

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