From 05f45f1d361ac59a67c0bd7c61baad3b60e95021 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Thu, 17 Jul 2014 14:40:35 +0900 Subject: [PATCH] adding error handling. --- Language/Haskell/GhcMod/Find.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Language/Haskell/GhcMod/Find.hs b/Language/Haskell/GhcMod/Find.hs index e8ef11b..db7346c 100644 --- a/Language/Haskell/GhcMod/Find.hs +++ b/Language/Haskell/GhcMod/Find.hs @@ -19,7 +19,7 @@ import Data.List (groupBy, sort) import Data.List.Split (splitOn) import Data.Maybe (fromMaybe) import DynFlags (DynFlags(..), systemPackageConfig) -import Exception (handleIO) +import Exception (ghandle, handleIO) import qualified GHC as G import Language.Haskell.GhcMod.Convert import Language.Haskell.GhcMod.Monad @@ -113,7 +113,7 @@ dumpSymbol = do Just dir -> do let cache = dir symbolCache pkgdb = dir packageCache - do -- fixme: bracket + ghandle (\(SomeException _) -> return "") $ do create <- liftIO $ needToCreate cache pkgdb when create $ do sm <- getSymbol