diff options
Diffstat (limited to 'src')
| -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 [] |