diff options
author | David Waern <david.waern@gmail.com> | 2010-05-14 19:31:23 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2010-05-14 19:31:23 +0000 |
commit | 2203b2faada1fd7a7370d7298b63703094da42ef (patch) | |
tree | 0193f5f605a63f6045ae0b1b41b921fdfb6f6b78 | |
parent | 88db1947de35858844e1b991d0f76d7804a90409 (diff) |
Wibbles to comments
-rw-r--r-- | src/Main.hs | 16 |
1 files 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 [] |