hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

error handling for doc.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-03-27 16:40:34 +09:00
parent 187f718de0
commit 5dbea7b909
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Language/Haskell/GhcMod/PkgDoc.hs
View File

@ -14,9 +14,12 @@ packageDoc _ cradle mdl = pkgDoc cradle mdl
pkgDoc :: Cradle -> String -> IO String pkgDoc :: Cradle -> String -> IO String
pkgDoc cradle mdl = do pkgDoc cradle mdl = do
pkg <- trim <$> readProcess "ghc-pkg" toModuleOpts [] pkg <- trim <$> readProcess "ghc-pkg" toModuleOpts []
htmlpath <- readProcess "ghc-pkg" ["field", pkg, "haddock-html"] [] if pkg == "" then
let ret = pkg ++ " " ++ drop 14 htmlpath return "\n"
return ret else do
htmlpath <- readProcess "ghc-pkg" ["field", pkg, "haddock-html"] []
let ret = pkg ++ " " ++ drop 14 htmlpath
return ret
where where
toModuleOpts = ["find-module", "--simple-output"] ++ cradlePackageDbOpts cradle ++ [mdl] toModuleOpts = ["find-module", "--simple-output"] ++ cradlePackageDbOpts cradle ++ [mdl]
trim = takeWhile (/= '\n') trim = takeWhile (/= '\n')