@@ -24,8 +24,7 @@ import Data.List ( (\\) )
2424main :: IO ()
2525main = do
2626 defaultMainWithHooks $ simpleUserHooks {
27− runTests = runTestSuite
28− , postBuild = makeManPages
27+ postBuild = makeManPages
2928 , postCopy = \ _ flags pkg lbi ->
3029 installManpages pkg lbi (fromFlag $ copyVerbosity flags)
3130 (fromFlag $ copyDest flags)
@@ -34,18 +33,6 @@ main = do
3433 }
3534 exitWith ExitSuccess
3635
37−-- | Run test suite.
38−runTestSuite :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO a
39−runTestSuite args _ pkg lbi = do
40− let testDir = buildDir lbi </> "test-pandoc"
41− testDir' <- canonicalizePath testDir
42− let testArgs = "--timeout=5" : concatMap (\arg -> ["-t",arg]) args
43− if any id [buildable (buildInfo exe) | exe <- executables pkg, exeName exe == "test-pandoc"]
44− then inDirectory "tests" $ rawSystem (testDir' </> "test-pandoc") testArgs >>= exitWith
45− else do
46− putStrLn "Build pandoc with the 'tests' flag to run tests"
47− exitWith $ ExitFailure 3
48−
4936-- | Build man pages from markdown sources in man/
5037makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
5138makeManPages _ flags _ lbi = do