[Haskell-cafe] Problem with haddock 2.3.0 (again)

[Duncan Coutts]

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
}