From e32e53131b67414f090c06366d52f2a3c8ebae8b Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Fri, 14 May 2010 19:25:07 +0000
Subject: Improve comments

---
 src/Main.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 3c746863..93b1927d 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -133,13 +133,12 @@ main = handleTopExceptions $ do
 
       libDir <- getGhcLibDir flags
 
-      -- We have one global error handler for all GHC source errors.  Other kinds
-      -- of exceptions will be propagated to the top-level error handler.
+      -- Catches all GHC source errors, then prints and re-throws them.
       let handleSrcErrors action = flip handleSourceError action $ \err -> do
             printExceptionAndWarnings err
             liftIO exitFailure
 
-      -- initialize GHC
+      -- Initialize GHC.
       withGhc libDir (ghcFlags flags) $ \_ -> handleSrcErrors $ do
 
         -- get packages supplied with --read-interface
-- 
cgit v1.2.3