Fix ghc-pkg's quoting of the pkgroot field
authorIan Lynagh <igloo@earth.li>
Sun, 19 Jun 2011 15:45:17 +0000 (16:45 +0100)
committerIan Lynagh <igloo@earth.li>
Sun, 19 Jun 2011 15:45:17 +0000 (16:45 +0100)
utils/ghc-pkg/Main.hs

index 5e918a3..14664a8 100644 (file)
@@ -1093,7 +1093,7 @@ doDump expand_pkgroot pkgs = do
         else showInstalledPackageInfo pkg ++ pkgrootField
     | (pkg, pkgloc) <- pkgs
     , let pkgroot      = takeDirectory pkgloc
-          pkgrootField = "pkgroot: " ++ pkgroot ++ "\n" ]
+          pkgrootField = "pkgroot: " ++ show pkgroot ++ "\n" ]
 
 -- PackageId is can have globVersion for the version
 findPackages :: PackageDBStack -> PackageArg -> IO [InstalledPackageInfo]