ghc-pkg: Drop trailing slashes in computing db paths
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 20 Jun 2016 07:25:05 +0000 (09:25 +0200)
committerBen Gamari <ben@smart-cactus.org>
Thu, 30 Jun 2016 18:02:23 +0000 (20:02 +0200)
Test Plan: Validate, try tests in ticket

Reviewers: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D2336

GHC Trac Issues: #12194

utils/ghc-pkg/Main.hs

index 1b5f5e0..e0625fe 100644 (file)
@@ -790,7 +790,7 @@ mungePackageDBPaths :: FilePath -> PackageDB -> PackageDB
 mungePackageDBPaths top_dir db@PackageDB { packages = pkgs } =
     db { packages = map (mungePackagePaths top_dir pkgroot) pkgs }
   where
-    pkgroot = takeDirectory (locationAbsolute db)
+    pkgroot = takeDirectory $ dropTrailingPathSeparator (locationAbsolute db)
     -- It so happens that for both styles of package db ("package.conf"
     -- files and "package.conf.d" dirs) the pkgroot is the parent directory
     -- ${pkgroot}/package.conf  or  ${pkgroot}/package.conf.d/