[commit: Cabal] master: The update command doesn't take any extra args (3f8efb3)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3f8efb30a0ad09a9477256309ee4d545b67cf593

>---------------------------------------------------------------

commit 3f8efb30a0ad09a9477256309ee4d545b67cf593
Author: Duncan Coutts <duncan at haskell.org>
Date:   Fri Jun 13 18:54:21 2008 +0000

    The update command doesn't take any extra args

>---------------------------------------------------------------

 cabal-install/Main.hs |    4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Main.hs b/cabal-install/Main.hs
index 34764b4..293965e 100644
--- a/cabal-install/Main.hs
+++ b/cabal-install/Main.hs
@@ -181,7 +181,9 @@ listAction listFlags extraArgs = do
        extraArgs
 
 updateAction :: Flag Verbosity -> [String] -> IO ()
-updateAction verbosityFlag _extraArgs = do
+updateAction verbosityFlag extraArgs = do
+  unless (null extraArgs) $ do
+    die $ "'update' doesn't take any extra arguments: " ++ unwords extraArgs
   configFile <- defaultConfigFile --FIXME
   let verbosity = fromFlag verbosityFlag
   config <- loadConfig verbosity configFile