From 93d806105dd027f4d31a76e2bd2410001fe10b29 Mon Sep 17 00:00:00 2001
From: David Waern <unknown>
Date: Fri, 17 Aug 2007 11:41:05 +0000
Subject: Add top module comment to all files

---
 src/Distribution/Haddock.hs  | 9 +++++++++
 src/Haddock/DevHelp.hs       | 6 ++++++
 src/Haddock/Exception.hs     | 7 +++++++
 src/Haddock/HH.hs            | 6 ++++++
 src/Haddock/HH2.hs           | 6 ++++++
 src/Haddock/InterfaceFile.hs | 8 ++++++++
 src/Haddock/ModuleTree.hs    | 6 ++++++
 src/Haddock/Options.hs       | 2 --
 src/Haddock/Types.hs         | 2 --
 src/Haddock/Utils/GHC.hs     | 6 ++++++
 src/Haddock/Version.hs       | 4 ++--
 11 files changed, 56 insertions(+), 6 deletions(-)

(limited to 'src')

diff --git a/src/Distribution/Haddock.hs b/src/Distribution/Haddock.hs
index bf57605e..b43c4f6b 100644
--- a/src/Distribution/Haddock.hs
+++ b/src/Distribution/Haddock.hs
@@ -1,14 +1,23 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
+
 module Distribution.Haddock (
   readInterfaceFile,
   H.InterfaceFile(..)
 ) where
 
+
 import Haddock.Exception
 import qualified Haddock.InterfaceFile as H
 
 import Control.Exception
 import Control.Monad
 
+
 readInterfaceFile :: FilePath -> IO (Either String H.InterfaceFile)
 readInterfaceFile f = 
   liftM Right (H.readInterfaceFile f)
diff --git a/src/Haddock/DevHelp.hs b/src/Haddock/DevHelp.hs
index afcbd1c3..3401a7b4 100644
--- a/src/Haddock/DevHelp.hs
+++ b/src/Haddock/DevHelp.hs
@@ -1,3 +1,9 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
 module Haddock.DevHelp(ppDevHelpFile) where
 
 import Haddock.ModuleTree
diff --git a/src/Haddock/Exception.hs b/src/Haddock/Exception.hs
index df6d3236..385f36a9 100644
--- a/src/Haddock/Exception.hs
+++ b/src/Haddock/Exception.hs
@@ -1,3 +1,10 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
+
 module Haddock.Exception (
   HaddockException,
   throwE
diff --git a/src/Haddock/HH.hs b/src/Haddock/HH.hs
index a41d7297..dc8f37e0 100644
--- a/src/Haddock/HH.hs
+++ b/src/Haddock/HH.hs
@@ -1,3 +1,9 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
 module Haddock.HH(ppHHContents, ppHHIndex, ppHHProject) where
 
 ppHHContents = error "not yet"
diff --git a/src/Haddock/HH2.hs b/src/Haddock/HH2.hs
index 945734e6..7f88ed51 100644
--- a/src/Haddock/HH2.hs
+++ b/src/Haddock/HH2.hs
@@ -1,3 +1,9 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
 module Haddock.HH2(ppHH2Contents, ppHH2Index, ppHH2Files, ppHH2Collection) where
 
 ppHH2Contents = error "not yet"
diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 9b8e0b3e..246c6dba 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -1,3 +1,10 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
+
 module Haddock.InterfaceFile (
   InterfaceFile(..),
   writeInterfaceFile,
@@ -5,6 +12,7 @@ module Haddock.InterfaceFile (
   hmod2interface
 ) where
 
+
 import Haddock.Types
 import Haddock.Exception
 
diff --git a/src/Haddock/ModuleTree.hs b/src/Haddock/ModuleTree.hs
index e4c72880..f73cf2ee 100644
--- a/src/Haddock/ModuleTree.hs
+++ b/src/Haddock/ModuleTree.hs
@@ -1,3 +1,9 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
 module Haddock.ModuleTree ( ModuleTree(..), mkModuleTree ) where
 
 import Haddock.Types ( DocName )
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index 5e420ccc..2b459f8d 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -3,8 +3,6 @@
 --
 -- (c) Simon Marlow 2003
 --
--- Ported to use the GHC API by David Waern during "Summer of Code" 2006
---
 
 
 module Haddock.Options (
diff --git a/src/Haddock/Types.hs b/src/Haddock/Types.hs
index 03818fa4..b1ce11f1 100644
--- a/src/Haddock/Types.hs
+++ b/src/Haddock/Types.hs
@@ -3,8 +3,6 @@
 --
 -- (c) Simon Marlow 2003
 --
--- Ported to use the GHC API by David Waern 2006
--- 
 
 
 module Haddock.Types where
diff --git a/src/Haddock/Utils/GHC.hs b/src/Haddock/Utils/GHC.hs
index 4799734e..8393cbb2 100644
--- a/src/Haddock/Utils/GHC.hs
+++ b/src/Haddock/Utils/GHC.hs
@@ -1,3 +1,9 @@
+--
+-- Haddock - A Haskell Documentation Tool
+--
+-- (c) Simon Marlow 2003
+--
+
 module Haddock.Utils.GHC where
 
 import Debug.Trace
diff --git a/src/Haddock/Version.hs b/src/Haddock/Version.hs
index 04d567af..cdfc4658 100644
--- a/src/Haddock/Version.hs
+++ b/src/Haddock/Version.hs
@@ -5,8 +5,8 @@
 --
 
 module Haddock.Version ( 
-	projectName, projectVersion, projectUrl
-   ) where
+  projectName, projectVersion, projectUrl
+) where
 
 import Paths_haddock ( version )
 import Data.Version  ( showVersion )
-- 
cgit v1.2.3