aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Distribution/Haddock.hs9
-rw-r--r--src/Haddock/DevHelp.hs6
-rw-r--r--src/Haddock/Exception.hs7
-rw-r--r--src/Haddock/HH.hs6
-rw-r--r--src/Haddock/HH2.hs6
-rw-r--r--src/Haddock/InterfaceFile.hs8
-rw-r--r--src/Haddock/ModuleTree.hs6
-rw-r--r--src/Haddock/Options.hs2
-rw-r--r--src/Haddock/Types.hs2
-rw-r--r--src/Haddock/Utils/GHC.hs6
-rw-r--r--src/Haddock/Version.hs4
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 )