Small comment/layout fixes

src/Haddock/Options.hs

+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+-- Ported to use the GHC API by David Waern during "Summer of Code" 2006
+--
+
+
 module Haddock.Options (
   parseHaddockOpts,
   Flag(..),
@@ -14,6 +23,9 @@ getUsage :: IO String
 getUsage = do
   prog <- getProgramName
   return $ usageInfo (usageHeader prog) (options False)
+  where
+    usageHeader :: String -> String
+    usageHeader prog = "Usage: " ++ prog ++ " [OPTION...] file...\n"
 
 
 parseHaddockOpts :: [String] -> IO ([Flag], [String])
@@ -25,10 +37,6 @@ parseHaddockOpts words =
       throwE (concat errors ++ usage)
 
 
-usageHeader :: String -> String
-usageHeader prog = "Usage: " ++ prog ++ " [OPTION...] file...\n"
-
-
 data Flag
   = Flag_CSS String
   | Flag_Debug

src/Main.hs

@@ -250,7 +250,6 @@ parseGhcFlags session ghcFlags = do
       return dynflags'
 
  
-
 byeVersion = 
   bye ("Haddock version " ++ projectVersion ++ 
        ", (c) Simon Marlow 2003; ported to the GHC-API by David Waern 2006\n")
@@ -1212,7 +1211,7 @@ type ErrMsgM a = Writer [ErrMsg] a
 --------------------------------------------------------------------------------
 
 
--- | Represents the installed haddock information for a package
+-- | Represents the installed Haddock information of a package
 data HaddockPackage = HaddockPackage {
   pdModules  :: [Module],
   pdDocEnv   :: DocEnv,