From e9cd7b1b52228b9ef8e1bd4e6cb1f2583740fcee Mon Sep 17 00:00:00 2001
From: Kyrill Briantsev <kyrab@mail.ru>
Date: Thu, 12 Jan 2017 13:23:50 +0300
Subject: Prevent GHC API from doing optimization passes.
---
haddock-api/src/Haddock.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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
--
cgit v1.2.3