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