diff options
Diffstat (limited to 'src/Distribution/Haddock.hs')
| -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 |