Move symbolCache
to PathsAndFiles
This commit is contained in:
parent
1c5a1c8b3e
commit
844bdea3db
@ -61,17 +61,6 @@ isOutdated db = symbolDbCachePath db `isOlderThan` packageCachePath db
|
|||||||
|
|
||||||
----------------------------------------------------------------
|
----------------------------------------------------------------
|
||||||
|
|
||||||
-- | When introducing incompatible changes to the 'symbolCache' file format
|
|
||||||
-- increment this version number.
|
|
||||||
symbolCacheVersion :: Integer
|
|
||||||
symbolCacheVersion = 0
|
|
||||||
|
|
||||||
-- | Filename of the symbol table cache file.
|
|
||||||
symbolCache :: String
|
|
||||||
symbolCache = "ghc-mod-"++ show symbolCacheVersion ++".cache"
|
|
||||||
|
|
||||||
----------------------------------------------------------------
|
|
||||||
|
|
||||||
-- | Looking up 'SymbolDb' with 'Symbol' to \['ModuleString'\]
|
-- | Looking up 'SymbolDb' with 'Symbol' to \['ModuleString'\]
|
||||||
-- which will be concatenated. 'loadSymbolDb' is called internally.
|
-- which will be concatenated. 'loadSymbolDb' is called internally.
|
||||||
findSymbol :: IOish m => Symbol -> GhcModT m String
|
findSymbol :: IOish m => Symbol -> GhcModT m String
|
||||||
@ -114,7 +103,7 @@ loadSymbolDb = do
|
|||||||
|
|
||||||
dumpSymbol :: IOish m => FilePath -> GhcModT m String
|
dumpSymbol :: IOish m => FilePath -> GhcModT m String
|
||||||
dumpSymbol dir = do
|
dumpSymbol dir = do
|
||||||
let cache = dir </> symbolCache
|
let cache = dir </> symbolCacheFile
|
||||||
pkgdb = dir </> packageCache
|
pkgdb = dir </> packageCache
|
||||||
|
|
||||||
create <- liftIO $ cache `isOlderThan` pkgdb
|
create <- liftIO $ cache `isOlderThan` pkgdb
|
||||||
|
@ -164,3 +164,9 @@ ghcSandboxPkgDbDir =
|
|||||||
packageCache :: String
|
packageCache :: String
|
||||||
packageCache = "package.cache"
|
packageCache = "package.cache"
|
||||||
|
|
||||||
|
-- | Filename of the symbol table cache file.
|
||||||
|
symbolCache :: Cradle -> FilePath
|
||||||
|
symbolCache crdl = cradleTempDir crdl </> symbolCacheFile
|
||||||
|
|
||||||
|
symbolCacheFile :: String
|
||||||
|
symbolCacheFile = "ghc-mod-0.symbol-cache"
|
||||||
|
Loading…
Reference in New Issue
Block a user