blob: 9bcbaa78aa391736480e4c84299aa3e67f394154 (
plain)
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
import Distribution.Simple
import Distribution.PackageDescription ( emptyHookedBuildInfo )
import Control.Exception ( bracket_ )
import System.Process ( runCommand, waitForProcess )
import System.FilePath ( (</>) )
import System.Directory ( getCurrentDirectory, setCurrentDirectory, findExecutable, doesFileExist )
import System.IO ( stderr )
import System.Exit
import Data.Maybe ( fromJust )
main = defaultMainWithHooks (simpleUserHooks {runTests = runTestSuite, preConf = checkReferenceODT})
-- | Run test suite.
runTestSuite _ _ _ _ = do
inDirectory "tests" $ runCommand "runhaskell RunTests.hs" >>= waitForProcess
return ()
-- | If reference.odt does not exist, build it.
checkReferenceODT _ _ = do
refODTexists <- doesFileExist ("odt-styles" </> "reference.odt")
if refODTexists
then return ()
else makeReferenceODT
return emptyHookedBuildInfo
-- | Create reference.odt by zipping up sources in odt-styles directory.
makeReferenceODT :: IO ()
makeReferenceODT = do
zipPathMaybe <- findExecutable "zip"
if zipPathMaybe == Nothing
then error $ "The 'zip' command, which is needed to build reference.odt\n" ++
"from sources in the odt-styles directory, was not found.\n" ++
"Try again after installing zip (http://www.info-zip.org/Zip.html).\n" ++
"Or use the pandoc source tarball, which contains a prebuilt reference.odt."
else do
putStrLn "Creating reference.odt:"
inDirectory "odt-styles" $ do
ec <- runCommand "zip -9 -r reference.odt *" >>= waitForProcess
case ec of
ExitSuccess -> putStrLn "Done."
_ -> error "Error creating ODT."
-- | Perform an IO action in a directory.
inDirectory :: FilePath -> IO a -> IO a
inDirectory dir action = do
oldDir <- getCurrentDirectory
bracket_ (setCurrentDirectory dir) (setCurrentDirectory oldDir) action
|
