From 4dfc49d672dfd5ddc5e8523fa1c36943ca678645 Mon Sep 17 00:00:00 2001
From: ThJaeger <ThJaeger@gmail.com>
Date: Mon, 31 Oct 2005 04:46:09 +0000
Subject: [PATCH] Cabal interface change.

---
 Setup.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Setup.hs b/Setup.hs
index ec18088..841d4d0 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -3,9 +3,9 @@ import Distribution.Setup   ( ConfigFlags (..) )
 import System.Directory     ( findExecutable )
 
 main = defaultMainWithHooks (defaultUserHooks { postConf = defaultPostConf })
-    where defaultPostConf args flags lbi
+    where defaultPostConf args flags lbi xxx
               = do args' <- fmap (args++) (configToArgs flags)
-                   (postConf defaultUserHooks) args' flags lbi
+                   (postConf defaultUserHooks) args' flags lbi xxx
 
 configToArgs :: ConfigFlags -> IO [String]
 configToArgs (ConfigFlags { configHcPath = Just hcPath })