
11 Dec
2008
11 Dec
'08
8:01 p.m.
On Fri, 2008-12-12 at 01:01 +0100, Sean Leather wrote:
Call the original haddockHook with the updated flags rather than the haddock command.
No change in output.
Ah, sorry I misread the code. This works: import Distribution.Simple import Distribution.Simple.LocalBuildInfo (LocalBuildInfo(withPrograms)) import Distribution.Simple.Program (reconfigurePrograms) import Distribution.Verbosity (normal) main :: IO () main = defaultMainWithHooks simpleUserHooks { haddockHook = \pkg lbi h f -> do progs <- reconfigurePrograms normal [] [("haddock",["--optghc=-D__HADDOCK__"])] (withPrograms lbi) haddockHook simpleUserHooks pkg lbi { withPrograms = progs } h f }