From 6f55aa8b181d1cfcfb415a87733e530809332573 Mon Sep 17 00:00:00 2001
From: "davve@dtek.chalmers.se" <David Waern>
Date: Sun, 25 Mar 2007 00:46:48 +0000
Subject: Start work on Haddock API

---
 src/Distribution/Haddock.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 src/Distribution/Haddock.hs

(limited to 'src/Distribution')

diff --git a/src/Distribution/Haddock.hs b/src/Distribution/Haddock.hs
new file mode 100644
index 00000000..c6e2dd3b
--- /dev/null
+++ b/src/Distribution/Haddock.hs
@@ -0,0 +1,17 @@
+module Distribution.Haddock (
+  readInterfaceFile,
+  H.writeInterfaceFile,
+  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)
-- 
cgit v1.2.3