Add top module comment to all files

11 files changed, 56 insertions, 6 deletions

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 )