diff options
| -rw-r--r-- | src/Distribution/Haddock.hs | 9 | ||||
| -rw-r--r-- | src/Haddock/DevHelp.hs | 6 | ||||
| -rw-r--r-- | src/Haddock/Exception.hs | 7 | ||||
| -rw-r--r-- | src/Haddock/HH.hs | 6 | ||||
| -rw-r--r-- | src/Haddock/HH2.hs | 6 | ||||
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 8 | ||||
| -rw-r--r-- | src/Haddock/ModuleTree.hs | 6 | ||||
| -rw-r--r-- | src/Haddock/Options.hs | 2 | ||||
| -rw-r--r-- | src/Haddock/Types.hs | 2 | ||||
| -rw-r--r-- | src/Haddock/Utils/GHC.hs | 6 | ||||
| -rw-r--r-- | src/Haddock/Version.hs | 4 |
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 ) |