--- b/Setup.lhs	2008-04-04 19:21:06.000000000 +0200
+++ a/Setup.lhs	2008-04-04 19:43:42.000000000 +0200
@@ -1,12 +1,14 @@
+-- packages: process, Cabal, directory, filepath
 #!/usr/bin/runghc
 
 \begin{code}
 import Data.Maybe(fromMaybe)
 import Distribution.PackageDescription
+import Distribution.Verbosity
+import Distribution.PackageDescription.Parse
 import Distribution.Setup
 import Distribution.Simple
 import Distribution.Simple.LocalBuildInfo
-import Distribution.Simple.Utils(rawSystemVerbose)
 import System.Info
 import System.Exit
 import System.Directory
@@ -15,19 +17,19 @@
 import Control.Monad(when)
 import Control.Exception(try)
 
+
 main = defaultMainWithHooks defaultUserHooks{preConf=preConf, postConf=postConf}
   where
     preConf ::  [String] -> ConfigFlags -> IO HookedBuildInfo
     preConf args flags = do
       try (removeFile "MySQL.buildinfo")
       return emptyHookedBuildInfo
-    postConf :: [String] -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ExitCode
+    postConf :: [String] -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ()
     postConf args flags _ localbuildinfo = do
-      mb_bi <- mysqlConfigBuildInfo (configVerbose flags)
+      mb_bi <- mysqlConfigBuildInfo (fromFlag (configVerbose flags))
       let default_binfo | os == "mingw32" = emptyBuildInfo{extraLibs=["libmySQL"], ccOptions=["-Dmingw32_HOST_OS"]}
                         | otherwise       = emptyBuildInfo{extraLibs=["mysqlclient"]}
       writeHookedBuildInfo "MySQL.buildinfo" (Just (fromMaybe default_binfo mb_bi),[])
-      return ExitSuccess
 \end{code}
 
 The following code is derived from Distribution.Simple.Configure
@@ -46,9 +48,9 @@
   message ("Using " ++ name ++ ": " ++ path)
   return (Just path)
 
-rawSystemGrabOutput :: Int -> FilePath -> [String] -> IO String
+rawSystemGrabOutput :: Verbosity -> FilePath -> [String] -> IO String
 rawSystemGrabOutput verbose path args = do
-  when (verbose > 0) $
+  when (verbose > silent ) $
         putStrLn (path ++ concatMap (' ':) args)
   (inp,out,err,pid) <- runInteractiveProcess path args Nothing Nothing
   exitCode <- waitForProcess pid
@@ -67,7 +69,7 @@
 
 Populate BuildInfo using pkg-config tool.
 \begin{code}
-mysqlConfigBuildInfo :: Int -> IO (Maybe BuildInfo)
+mysqlConfigBuildInfo :: Verbosity -> IO (Maybe BuildInfo)
 mysqlConfigBuildInfo verbose = do
   mb_mysql_config_path <- findProgram "mysql_config" Nothing
   case mb_mysql_config_path of
--- a/hsql-mysql.cabal	2008-04-07 17:36:32.000000000 +0200
+++ b/hsql-mysql.cabal	2008-04-07 17:34:17.000000000 +0200
@@ -5,7 +5,7 @@
 category:	 Database
 description: 	 MySQL driver for HSQL.
 exposed-modules: Database.HSQL.MySQL
-build-depends: 	 base, hsql
+build-depends: 	 base, hsql, old-time
 extensions:      ForeignFunctionInterface, CPP
 cc-options: -IDatabase/HSQL
 extra-source-files: Database/HSQL/HsMySQL.h
