From 80d29d2fb322ddbb8d6eacac437216841b4d252c Mon Sep 17 00:00:00 2001 From: David Waern Date: Mon, 6 Jul 2009 21:44:10 +0000 Subject: Use HscAsm instead of HscC when using TH --- src/Haddock/Interface.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index ffb9ebaf..b9d409db 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -102,10 +102,10 @@ createInterfaces' verbosity modules flags instIfaceMap = do modgraph' <- if needsTemplateHaskell modgraph then do dflags <- getSessionDynFlags - _ <- setSessionDynFlags dflags { hscTarget = HscC } - -- we need to set HscC on all the ModSummaries as well - let addHscC m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = HscC } } - return (map addHscC modgraph) + _ <- setSessionDynFlags dflags { hscTarget = HscAsm } + -- we need to set HscAsm on all the ModSummaries as well + let addHscAsm m = m { ms_hspp_opts = (ms_hspp_opts m) { hscTarget = HscAsm } } + return (map addHscAsm modgraph) else return modgraph #else let modgraph' = modgraph -- cgit v1.2.3