Improve function name

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)