blob: 48c733d0cc3fb4767c0955c0359aff60f5d5a29c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
{-# LANGUAGE CPP #-}
import System.Environment
import System.FilePath
import Test.Haddock
baseDir :: FilePath
baseDir = takeDirectory __FILE__
main :: IO ()
main = do
let dcfg = defaultDirConfig baseDir
cfg <- uncurry (loadConfig dcfg) =<< checkOpt =<< getArgs
runHaddock cfg
checkFiles cfg
-- *** OLD TEST RUNNER UTILITY FUNCTIONS ***
-- These are considered bad and should be replaced as soon as possible.
-- | List of modules in which we don't 'stripLinks'
preserveLinksModules :: [String]
preserveLinksModules = ["Bug253"]
|
