diff options
| author | John Ericson <John.Ericson@Obsidian.Systems> | 2019-06-20 18:04:30 -0400 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-07-09 22:56:18 -0400 |
| commit | 24782b89907ab36fb5aef3a17584f4c10f1e2690 (patch) | |
| tree | b0d55f9b146f33fc901aa10b166a647aeded0c0e /compiler/main/DynFlags.hs | |
| parent | 0472f0f6a92395d478e9644c0dbd12948518099f (diff) | |
| download | haskell-24782b89907ab36fb5aef3a17584f4c10f1e2690.tar.gz | |
Deduplicate "unique subdir" code between GHC and Cabal
The code, including the generated module with the version, is now in
ghc-boot. Config.hs reexports stuff as needed, ghc-pkg doesn't need any
tricks at all.
Diffstat (limited to 'compiler/main/DynFlags.hs')
| -rw-r--r-- | compiler/main/DynFlags.hs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 2379f484e9..7009771aa4 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -250,6 +250,7 @@ module DynFlags ( import GhcPrelude import GHC.Platform +import GHC.UniqueSubdir (uniqueSubdir) import PlatformConstants import Module import PackageConfig @@ -1499,17 +1500,8 @@ versionedAppDir dflags = do appdir <- tryMaybeT $ getAppUserDataDirectory (programName dflags) return $ appdir </> versionedFilePath dflags --- | A filepath like @x86_64-linux-7.6.3@ with the platform string to use when --- constructing platform-version-dependent files that need to co-exist. --- versionedFilePath :: DynFlags -> FilePath -versionedFilePath dflags = intercalate "-" - [ stringEncodeArch $ platformArch $ targetPlatform dflags - , stringEncodeOS $ platformOS $ targetPlatform dflags - , projectVersion dflags - ] - -- NB: This functionality is reimplemented in Cabal, so if you - -- change it, be sure to update Cabal. +versionedFilePath dflags = uniqueSubdir $ targetPlatform dflags -- | The target code type of the compilation (if any). -- |