X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=libraries%2FinstallPackage.hs;h=2a13e0b30585e9a72dc668a3bb2bfc84c374462d;hp=3ab4f7eb0c2bbb318040a555df445122d0948dde;hb=bca61eb59ad615793175e4d1a3de7a243b41de44;hpb=e25d5095e6fd47e0a02404d9532c2f776d3f8a32

diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs
index 3ab4f7e..2a13e0b 100644
--- a/libraries/installPackage.hs
+++ b/libraries/installPackage.hs
@@ -11,6 +11,10 @@ import Distribution.Simple.Utils
 import Distribution.Verbosity
 import System.Environment
 
+-- XXX This will need to be changed
+distPref :: FilePath
+distPref = defaultDistPref
+
 main :: IO ()
 main
   = do args <- getArgs
@@ -136,7 +140,7 @@ replaceTopdir _ p = p
 -- Get the build info, merging the setup-config and buildinfo files.
 getConfig :: Verbosity -> IO LocalBuildInfo
 getConfig verbosity = do
-    lbi <- getPersistBuildConfig
+    lbi <- getPersistBuildConfig distPref
     maybe_infoFile <- defaultHookedPackageDesc
     case maybe_infoFile of
         Nothing -> return lbi