Catch only ErrorCall and IOException

Author: Hogeyama

src/Haskell/Ide/Engine/Plugin/ApplyRefact.hs

@@ -6,7 +6,9 @@ module Haskell.Ide.Engine.Plugin.ApplyRefact where
 
 import           Control.Arrow
 import           Control.Exception              ( IOException
-                                                , SomeException
+                                                , ErrorCall
+                                                , Handler(..)
+                                                , catches
                                                 , try
                                                 )
 import           Control.Lens            hiding ( List )
@@ -252,8 +254,10 @@ applyHint fp mhint fileMap = do
     -- If we provide "applyRefactorings" with "Just (1,13)" then
     -- the "Redundant bracket" hint will never be executed
     -- because SrcSpan (1,20,??,??) doesn't contain position (1,13).
-    res <- liftIO
-      (try $ applyRefactorings Nothing commands fp :: IO (Either SomeException String))
+    res <- liftIO $ (Right <$> applyRefactorings Nothing commands fp) `catches`
+              [ Handler $ \e -> return (Left (show (e :: IOException)))
+              , Handler $ \e -> return (Left (show (e :: ErrorCall)))
+              ]
     case res of
       Right appliedFile -> do
         diff <- ExceptT $ Right <$> makeDiffResult fp (T.pack appliedFile) fileMap