aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock.hs
diff options
context:
space:
mode:
authorAlex Biehl <alexbiehl@gmail.com>2017-03-23 17:39:14 +0100
committerGitHub <noreply@github.com>2017-03-23 17:39:14 +0100
commit07272c70c1cc72cd631177796a1b5b332bcc579b (patch)
treedb741b1629a46db59d6821e8b4d1da0f2782e216 /haddock-api/src/Haddock.hs
parent069b44b8c1f0c940ec7b232bc1d52e55630f8a98 (diff)
parentb43e370739eca5541c70ed44029587424544cc05 (diff)
Merge pull request #568 from awson/ghc-head
Prevent GHC API from doing optimization passes.
Diffstat (limited to 'haddock-api/src/Haddock.hs')
-rw-r--r--haddock-api/src/Haddock.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock.hs b/haddock-api/src/Haddock.hs
index bbaea359..6af0874a 100644
--- a/haddock-api/src/Haddock.hs
+++ b/haddock-api/src/Haddock.hs
@@ -397,7 +397,7 @@ withGhc' libDir flags ghcActs = runGhc (Just libDir) $ do
ghcMode = CompManager,
ghcLink = NoLink
}
- let dynflags'' = gopt_unset dynflags' Opt_SplitObjs
+ let dynflags'' = updOptLevel 0 $ gopt_unset dynflags' Opt_SplitObjs
defaultCleanupHandler dynflags'' $ do
-- ignore the following return-value, which is a list of packages
-- that may need to be re-linked: Haddock doesn't do any