debian-1.2: Setup.hs

#!/usr/bin/runhaskell

import Distribution.Simple
import Distribution.PackageDescription
import Distribution.Simple.LocalBuildInfo
import System.Exit
import System.Cmd
import System.Directory
import Control.Exception

withCurrentDirectory :: FilePath -> IO a -> IO a
withCurrentDirectory path f = do
	cur <- getCurrentDirectory
	setCurrentDirectory path
	finally f (setCurrentDirectory cur)

runTestScript :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ExitCode
runTestScript args flag pd lbi = withCurrentDirectory "tests" (system "runhaskell Main.hs")

main :: IO ()
main = defaultMainWithHooks defaultUserHooks{runTests = runTestScript}