From 25bdb159aa45ddeb2af89e09a5d7ff517cfc2ec7 Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Fri, 17 Aug 2007 11:26:59 +0000
Subject: Small comment/layout fixes

---
 src/Haddock/Options.hs | 16 ++++++++++++----
 src/Main.hs            |  3 +--
 2 files changed, 13 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 18b5597c..5e420ccc 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -1,3 +1,12 @@
+--
+-- 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
diff --git a/src/Main.hs b/src/Main.hs
index e86cede5..7223b8f6 100644
--- a/src/Main.hs
+++ b/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,
-- 
cgit v1.2.3