1 files changed, 36 insertions, 1 deletions

diff --git a/Setup.lhs b/Setup.lhs
index 3bce97b..17efee4 100644
--- a/Setup.lhs
+++ b/Setup.lhs
@@ -2,7 +2,42 @@
 
 > import Distribution.Simple
 > import System.Process(system)
+>
+> import Config(config)
+>
+> import Distribution.Simple.Setup
+> import Distribution.PackageDescription
+> import Distribution.Simple.LocalBuildInfo
+> import Distribution.Simple.Command
+> import Distribution.PackageDescription.Parse
+> import Distribution.Simple.Utils(info)
+> import Distribution.Verbosity
+
+> main = do
+>    defaultMainWithHooks autoconfUserHooks {
+>        runTests = t, 
+>        postConf = modifiedPostConf }
+>   where modifiedPostConf :: Args -> ConfigFlags -> PackageDescription -> LocalBuildInfo -> IO ()
+>         modifiedPostConf args flags pkg_descr lbi
+>              = do let verbosity = fromFlag (configVerbosity flags)
+>                   noExtraFlags args
+>
+>                   config
+>
+>                   pbi <- getHookedBuildInfo verbosity
+>                   let pkg_descr' = updatePackageDescription pbi pkg_descr
+>                   postConf simpleUserHooks args flags pkg_descr' lbi
+
+
+> getHookedBuildInfo :: Verbosity -> IO HookedBuildInfo
+> getHookedBuildInfo verbosity = do
+>   maybe_infoFile <- defaultHookedPackageDesc
+>   case maybe_infoFile of
+>     Nothing       -> return emptyHookedBuildInfo
+>     Just infoFile -> do
+>       info verbosity $ "Reading parameters from " ++ infoFile
+>       readHookedBuildInfo verbosity infoFile
 
-> main = defaultMainWithHooks autoconfUserHooks {runTests = t}
 
 > t _ _ _ _ = system ( "runhaskell examples/tests.hs") >> return()
+