diff options
| author | Alex Biehl <alexbiehl@gmail.com> | 2017-03-23 17:39:14 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2017-03-23 17:39:14 +0100 |
| commit | 07272c70c1cc72cd631177796a1b5b332bcc579b (patch) | |
| tree | db741b1629a46db59d6821e8b4d1da0f2782e216 /haddock-api/src | |
| parent | 069b44b8c1f0c940ec7b232bc1d52e55630f8a98 (diff) | |
| parent | b43e370739eca5541c70ed44029587424544cc05 (diff) | |
Merge pull request #568 from awson/ghc-head
Prevent GHC API from doing optimization passes.
Diffstat (limited to 'haddock-api/src')
| -rw-r--r-- | haddock-api/src/Haddock.hs | 2 |
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 |