Exporting more low level APIs.

This commit is contained in:
Kazu Yamamoto
2013-09-16 09:56:08 +09:00
parent 5750673e0e
commit 45751e3926
5 changed files with 61 additions and 23 deletions

View File

@@ -96,6 +96,8 @@ initSession build opt cmdOpts idirs mDepPkgs logging = do
----------------------------------------------------------------
-- | Initialize the 'DynFlags' relating to the compilation of a single
-- file or GHC session.
initializeFlags :: GhcMonad m => Options -> m ()
initializeFlags opt = do
dflags0 <- getSessionDynFlags
@@ -167,6 +169,8 @@ setTargetFiles files = do
getDynamicFlags :: IO DynFlags
getDynamicFlags = runGhc (Just libdir) getSessionDynFlags
-- | Checking if Template Haskell or quasi quotes are used.
-- If not, the process can be faster.
canCheckFast :: ModuleGraph -> Bool
canCheckFast = not . any (hasTHorQQ . ms_hspp_opts)
where