blob: d3ab79a88863ac48291ec5e81c7ccd7668374cb2 (
plain) (
tree)
|
|
{-# LANGUAGE CPP #-}
import Data.Char
import Data.List
import Data.Function (on)
import System.Environment
import System.FilePath
import Test.Haddock
import Test.Haddock.Xhtml
checkConfig :: CheckConfig Xml
checkConfig = CheckConfig
{ ccfgRead = parseXml
, ccfgClean = \_ -> strip
, ccfgDump = dumpXml
, ccfgEqual = (==) `on` dumpXml
}
where
strip = stripAnchors' . stripLinks' . stripFooter
stripLinks' = stripLinksWhen $ \href -> "#local-" `isPrefixOf` href
stripAnchors' = stripAnchorsWhen $ \name -> "local-" `isPrefixOf` name
dirConfig :: DirConfig
dirConfig = (defaultDirConfig $ takeDirectory __FILE__)
{ dcfgCheckIgnore = checkIgnore
}
main :: IO ()
main = do
cfg <- parseArgs checkConfig dirConfig =<< getArgs
runAndCheck $ cfg
{ cfgHaddockArgs = cfgHaddockArgs cfg ++
[ "--pretty-html"
, "--hyperlinked-source"
]
}
checkIgnore :: FilePath -> Bool
checkIgnore file
| and . map ($ file) $ [isHtmlFile, isSourceFile, isModuleFile] = False
where
isHtmlFile = (== ".html") . takeExtension
isSourceFile = (== "src") . takeDirectory
isModuleFile = isUpper . head . takeBaseName
checkIgnore _ = True
|