blob: c6e2dd3b81338553d3a0b9e55c1a04ca9236fe50 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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)
|
