[project @ 2003-11-10 12:04:25 by simonpj]

[ghc-hetmet.git] / ghc / compiler / main / DriverFlags.hs

diff --git a/ghc/compiler/main/DriverFlags.hs b/ghc/compiler/main/DriverFlags.hs
index 0ea708b..f159b39 100644 (file)
--- a/ghc/compiler/main/DriverFlags.hs
+++ b/ghc/compiler/main/DriverFlags.hs
@@ -93,7 +93,7 @@ processOneArg action rest (dash_arg@('-':arg):args) =
                if rest /= "" 
                        then fio rest >> return args
                        else case args of
-                               [] -> unknownFlagErr dash_arg
+                               [] -> missingArgErr dash_arg
                                (arg1:args1) -> fio arg1 >> return args1
 
        SepArg fio ->