$OpenBSD: patch-libraries_Cabal_Distribution_Simple_Register_hs,v 1.6 2011/04/11 14:30:33 kili Exp $
--- libraries/Cabal/Distribution/Simple/Register.hs.orig	Wed Dec 15 19:10:13 2010
+++ libraries/Cabal/Distribution/Simple/Register.hs	Sun Dec 19 13:07:14 2010
@@ -128,13 +128,14 @@ register pkg@PackageDescription { library       = Just
 
     installedPkgInfo <- generateRegistrationInfo
                            verbosity pkg lib lbi clbi inplace distPref
+    let installedPkgInfo' = installedPkgInfo { IPI.pkgpath = pkgPath }
 
      -- Three different modes:
     case () of
-     _ | modeGenerateRegFile   -> writeRegistrationFile installedPkgInfo
-       | modeGenerateRegScript -> writeRegisterScript   installedPkgInfo
+     _ | modeGenerateRegFile   -> writeRegistrationFile installedPkgInfo'
+       | modeGenerateRegScript -> writeRegisterScript   installedPkgInfo'
        | otherwise             -> registerPackage verbosity
-                                    installedPkgInfo pkg lbi inplace packageDbs
+                                    installedPkgInfo' pkg lbi inplace packageDbs
 
   where
     modeGenerateRegFile = isJust (flagToMaybe (regGenPkgConf regFlags))
@@ -150,6 +151,7 @@ register pkg@PackageDescription { library       = Just
     packageDbs = nub $ withPackageDB lbi
                     ++ maybeToList (flagToMaybe  (regPackageDB regFlags))
     distPref  = fromFlag (regDistPref regFlags)
+    pkgPath = fromFlag (regPkgPath regFlags)
     verbosity = fromFlag (regVerbosity regFlags)
 
     writeRegistrationFile installedPkgInfo = do
@@ -272,6 +274,7 @@ generalInstalledPackageInfo adjustRelIncDirs pkg lib c
     IPI.pkgUrl             = pkgUrl      pkg,
     IPI.description        = description pkg,
     IPI.category           = category    pkg,
+    IPI.pkgpath            = "",
     IPI.exposed            = libExposed  lib,
     IPI.exposedModules     = exposedModules lib,
     IPI.hiddenModules      = otherModules bi,
