fix .gitignore
[packages/time.git] / Setup.hs
index 1863d6e..54f57d6 100644 (file)
--- a/Setup.hs
+++ b/Setup.hs
@@ -1,23 +1,6 @@
 module Main (main) where
 
-import Control.Exception
-import Distribution.PackageDescription
 import Distribution.Simple
-import Distribution.Simple.LocalBuildInfo
-import Distribution.Simple.Utils
-import System.Cmd
-import System.Directory
 
 main :: IO ()
-main = do let hooks = defaultUserHooks { runTests = runTestScript }
-          defaultMainWithHooks hooks
-
-withCurrentDirectory :: FilePath -> IO a -> IO a
-withCurrentDirectory path f = do
-    cur <- getCurrentDirectory
-    setCurrentDirectory path
-    finally f (setCurrentDirectory cur)
-
-runTestScript :: Args -> Bool -> PackageDescription -> LocalBuildInfo -> IO ()
-runTestScript _args _flag _pd _lbi
- = maybeExit $ withCurrentDirectory "test" $ system "make"
+main = defaultMainWithHooks autoconfUserHooks