From 159ee12636ddade431283a4869a263d8e9ac0768 Mon Sep 17 00:00:00 2001
From: David Waern <davve@dtek.chalmers.se>
Date: Thu, 18 Oct 2007 22:30:18 +0000
Subject: Refactoring -- get rid of Haddock.Packages

---
 src/Distribution/Haddock.hs | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'src/Distribution')

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
-- 
cgit v1.2.3