blob: b43c4f6b822385e1a8fd03ef73b2609646c0f644 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
--
-- 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)
`catchDyn`
(\(e::HaddockException) -> return $ Left $ show e)
|
