From 2203b2faada1fd7a7370d7298b63703094da42ef Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Fri, 14 May 2010 19:31:23 +0000
Subject: Wibbles to comments
---
src/Main.hs | 16 +++++++---------
1 file changed, 7 insertions(+), 9 deletions(-)
diff --git a/src/Main.hs b/src/Main.hs
index 36773691..082f69aa 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -116,7 +116,7 @@ handleGhcExceptions =
main :: IO ()
main = handleTopExceptions $ do
- -- parse command-line flags and handle some of them initially
+ -- Parse command-line flags and handle some of them initially.
args <- getArgs
(flags, fileArgs) <- parseHaddockOpts args
handleEasyFlags flags
@@ -141,26 +141,24 @@ main = handleTopExceptions $ do
-- Initialize GHC.
withGhc libDir (ghcFlags flags) $ \_ -> handleSrcErrors $ do
- -- get packages supplied with --read-interface
+ -- Get packages supplied with --read-interface.
packages <- readInterfaceFiles nameCacheFromGhc (ifacePairs flags)
-
- -- create the interfaces -- this is the core part of Haddock
+ -- Create the interfaces -- this is the core part of Haddock.
(interfaces, homeLinks) <- createInterfaces verbosity fileArgs flags
(map fst packages)
-
liftIO $ do
- -- render the interfaces
+ -- Render the interfaces.
renderStep packages interfaces
- -- last but not least, dump the interface file
+ -- Last but not least, dump the interface file.
dumpInterfaceFile (map toInstalledIface interfaces) homeLinks flags
else do
- -- get packages supplied with --read-interface
+ -- Get packages supplied with --read-interface.
packages <- readInterfaceFiles freshNameCache (ifacePairs flags)
- -- render even though there are no input files (usually contents/index)
+ -- Render even though there are no input files (usually contents/index).
renderStep packages []
--
cgit v1.2.3