diff options
| author | Kyrill Briantsev <kyrab@mail.ru> | 2017-01-12 13:23:50 +0300 |
|---|---|---|
| committer | Kyrill Briantsev <kyrab@mail.ru> | 2017-01-12 13:23:50 +0300 |
| commit | b43e370739eca5541c70ed44029587424544cc05 (patch) | |
| tree | 6b28841588231d0df1a09fda20f02d184304b925 | |
| parent | b19ea3ababeb231157c4a067c43003e09b1f0185 (diff) | |
Prevent GHC API from doing optimization passes.
| -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 6a784f48..547e22c2 100644 --- a/haddock-api/src/Haddock.hs +++ b/haddock-api/src/Haddock.hs @@ -398,7 +398,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 |