From ecbfdc1dfced53530aaa3f0c8dbd18dcea52cd4f Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 22 Jul 2010 17:21:58 +0000
Subject: Improve function name

---
 src/Main.hs | 6 +++---
 1 file 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)
-- 
cgit v1.2.3