diff options
| author | Kyrill Briantsev <kyrab@mail.ru> | 2017-01-12 13:23:50 +0300 |
|---|---|---|
| committer | alexbiehl <alex.biehl@gmail.com> | 2017-04-11 21:01:42 +0200 |
| commit | e9cd7b1b52228b9ef8e1bd4e6cb1f2583740fcee (patch) | |
| tree | acc3ac9eb811942505e0b643d2c975c48117ec75 | |
| parent | b44676d9acd36b50a93aea6882751284d00013b6 (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 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 |