module-management-0.20: Setup.hs

#!/usr/bin/runhaskell

import Distribution.Simple
import Distribution.Simple.LocalBuildInfo (LocalBuildInfo(buildDir))
-- import Language.Haskell.Imports.Clean (cleanBuildImports)
-- import Language.Haskell.Imports.Params (runParamsT)
import System.Process (system)
import System.Exit (ExitCode(ExitSuccess))
import System.Directory (setCurrentDirectory, copyFile)
import System.FilePath ((</>))

main = copyFile "debian/changelog" "changelog" >>
       defaultMainWithHooks simpleUserHooks
         { sDistHook = \ p l u f ->
             system "tar cfz testdata.tar.gz testdata" >> (sDistHook simpleUserHooks) p l u f
         -- , postBuild = \ _ _ _ lbi -> do code <- system (buildDir lbi </> "tests/tests")
         --                               if code == ExitSuccess then putStrLn "Tests passed" else error "Tests failed"
         }