new APIs.

This commit is contained in:
Kazu Yamamoto
2014-03-19 10:23:32 +09:00
parent 710ac6636e
commit be926f0366
3 changed files with 10 additions and 1 deletions

View File

@@ -6,6 +6,7 @@ module Language.Haskell.GhcMod.GHCApi (
, initializeFlags
, initializeFlagsWithCradle
, setTargetFiles
, addTargetFiles
, getDynamicFlags
) where
@@ -157,6 +158,12 @@ setTargetFiles files = do
targets <- forM files $ \file -> guessTarget file Nothing
setTargets targets
addTargetFiles :: (GhcMonad m) => [FilePath] -> m ()
addTargetFiles [] = error "ghc-mod: addTargetFiles: No target files given"
addTargetFiles files = do
targets <- forM files $ \file -> guessTarget file Nothing
mapM_ addTarget targets
----------------------------------------------------------------
-- | Return the 'DynFlags' currently in use in the GHC session.