aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-07-22 17:21:58 +0000
committerDavid Waern <david.waern@gmail.com>2010-07-22 17:21:58 +0000
commitecbfdc1dfced53530aaa3f0c8dbd18dcea52cd4f (patch)
tree0ea0c5803e6871c7efd44b7ed70dc750ac05e203
parent4be7e1868c4973034e1b14cd11672673aa2eb64a (diff)
Improve function name
-rw-r--r--src/Main.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs
index 957ef5c5..b3613a51 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -121,7 +121,7 @@ main = handleTopExceptions $ do
-- Parse command-line flags and handle some of them initially.
args <- getArgs
(flags, fileArgs) <- parseHaddockOpts args
- handleEasyFlags flags
+ shortcutFlags flags
if not (null fileArgs)
then do
@@ -336,8 +336,8 @@ getGhcLibDir flags =
xs -> return $ last xs
-handleEasyFlags :: [Flag] -> IO ()
-handleEasyFlags flags = do
+shortcutFlags :: [Flag] -> IO ()
+shortcutFlags flags = do
usage <- getUsage
when (Flag_Help `elem` flags) (bye usage)