using check finally.

2014-04-28 16:31:28 +09:00
parent bb38a930e7
commit 411a584bb8
3 changed files with 31 additions and 37 deletions
--- a/Language/Haskell/GhcMod/GHCApi.hs
+++ b/Language/Haskell/GhcMod/GHCApi.hs
@@ -5,7 +5,6 @@ module Language.Haskell.GhcMod.GHCApi (
  , withGHC'
  , initializeFlagsWithCradle
  , setTargetFiles
-  , addTargetFiles
  , getDynamicFlags
  , getSystemLibDir
  , withDynFlags
@@ -160,13 +159,6 @@ setTargetFiles files = do
    G.setTargets targets
    void $ G.load LoadAllTargets

-- | Adding the files to the targets.
-addTargetFiles :: (GhcMonad m) => [FilePath] -> m ()
-addTargetFiles files = do
-    targets <- forM files $ \file -> G.guessTarget file Nothing
-    mapM_ G.addTarget targets
-    void $ G.load LoadAllTargets
-
 ----------------------------------------------------------------

 -- | Return the 'DynFlags' currently in use in the GHC session.
--- a/Language/Haskell/GhcMod/Internal.hs
+++ b/Language/Haskell/GhcMod/Internal.hs
@@ -23,7 +23,6 @@ module Language.Haskell.GhcMod.Internal (
  , initializeFlagsWithCradle
  -- * Targets
  , setTargetFiles
-  , addTargetFiles
  -- * Logging
  , withLogger
  , setNoWaringFlags