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

error handling for loadSymbolDb.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-07-17 12:37:38 +09:00
parent a6f08fe79f
commit 409bc99f10
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Language/Haskell/GhcMod/Find.hs
View File

@ -11,6 +11,7 @@ module Language.Haskell.GhcMod.Find (
import Config (cProjectVersion,cTargetPlatformString) import Config (cProjectVersion,cTargetPlatformString)
import Control.Applicative ((<$>)) import Control.Applicative ((<$>))
import Control.Exception (handle, SomeException(..))
import Control.Monad (when, void) import Control.Monad (when, void)
import CoreMonad (liftIO) import CoreMonad (liftIO)
import Data.Function (on) import Data.Function (on)
@ -80,14 +81,9 @@ getSymbolDb :: IO SymbolDb
getSymbolDb = SymbolDb <$> loadSymbolDb getSymbolDb = SymbolDb <$> loadSymbolDb
loadSymbolDb :: IO Db loadSymbolDb :: IO Db
loadSymbolDb = do loadSymbolDb = handle (\(SomeException _) -> return M.empty) $ do
file <- chop <$> readProcess "ghc-mod" ["dumpsym"] [] file <- chop <$> readProcess "ghc-mod" ["dumpsym"] []
exist <- doesFileExist file -- False if file is "" M.fromAscList . map conv . lines <$> readFile file
!db <- if exist then
M.fromAscList . map conv . lines <$> liftIO (readFile file)
else
return M.empty
return db
where where
conv :: String -> (Symbol,[ModuleString]) conv :: String -> (Symbol,[ModuleString])
conv = read conv = read