1import qualified Distribution.Simple as Simple 2import qualified Distribution.Simple.LocalBuildInfo as LocalBuildInfo 3import qualified Distribution.Simple.Program as Program 4 5main :: IO () 6main = Simple.defaultMainWithHooks hooks where 7 hooks = Simple.simpleUserHooks 8 { Simple.haddockHook = myHaddockHook 9 } 10 myHaddockHook pkg lbi = Simple.haddockHook Simple.simpleUserHooks pkg (lbi 11 { LocalBuildInfo.withPrograms = Program.userSpecifyArgs "haddock" ["--optghc=-D__HADDOCK__"] (LocalBuildInfo.withPrograms lbi) 12 }) 13