Log cache dir (#567)

This commit is contained in:
Pepe Iborra 2020-05-18 09:26:04 +01:00 committed by GitHub
parent cd6f62bbed
commit d54fd38b14
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -38,6 +38,7 @@ import qualified Language.Haskell.LSP.Types as LSP
import Data.Aeson (ToJSON(toJSON))
import Development.IDE.Types.Logger (logDebug)
import Util
import System.IO (hPutStrLn, stderr)
-- Prefix for the cache path
cacheDir :: String
@ -122,6 +123,8 @@ createSession (ComponentOptions theOpts _) = do
cacheDir <- getCacheDir theOpts
hPutStrLn stderr $ "Interface files cache dir: " <> cacheDir
runGhc (Just libdir) $ do
dflags <- getSessionDynFlags
(dflags', _targets) <- addCmdOpts theOpts dflags