module GHC.UniqueSubdir ( uniqueSubdir ) where import Prelude -- See Note [Why do we import Prelude here?] import Data.List (intercalate) import GHC.Platform.ArchOS import GHC.Version (cProjectVersion) -- | 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. uniqueSubdir :: ArchOS -> FilePath uniqueSubdir :: ArchOS -> FilePath uniqueSubdir (ArchOS Arch arch OS os) = FilePath -> [FilePath] -> FilePath forall a. [a] -> [[a]] -> [a] intercalate FilePath "-" [ Arch -> FilePath stringEncodeArch Arch arch , OS -> FilePath stringEncodeOS OS os , FilePath cProjectVersion ] -- NB: This functionality is reimplemented in Cabal, so if you -- change it, be sure to update Cabal. -- TODO make Cabal use this now that it is in ghc-boot.