diff options
author | David Waern <davve@dtek.chalmers.se> | 2007-10-18 22:30:18 +0000 |
---|---|---|
committer | David Waern <davve@dtek.chalmers.se> | 2007-10-18 22:30:18 +0000 |
commit | 159ee12636ddade431283a4869a263d8e9ac0768 (patch) | |
tree | 17c06b6326ecfe05b7ec0c30193ca0031e09d21e /src/Distribution | |
parent | 3fdfcf2a507667327fc6b0e1c95cc9898fc1f9b6 (diff) |
Refactoring -- get rid of Haddock.Packages
Diffstat (limited to 'src/Distribution')
-rw-r--r-- | src/Distribution/Haddock.hs | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/src/Distribution/Haddock.hs b/src/Distribution/Haddock.hs index b43c4f6b..2d0f3dc7 100644 --- a/src/Distribution/Haddock.hs +++ b/src/Distribution/Haddock.hs @@ -7,19 +7,7 @@ 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) - `catchDyn` - (\(e::HaddockException) -> return $ Left $ show e) +import Haddock.InterfaceFile |