$OpenBSD: patch-libraries_Cabal_Distribution_Simple_Setup_hs,v 1.2 2011/04/11 14:30:33 kili Exp $
--- libraries/Cabal/Distribution/Simple/Setup.hs.orig	Sat Mar 26 19:10:12 2011
+++ libraries/Cabal/Distribution/Simple/Setup.hs	Tue Mar 29 19:26:21 2011
@@ -803,6 +803,7 @@ data RegisterFlags = RegisterFlags {
     regGenPkgConf  :: Flag (Maybe FilePath),
     regInPlace     :: Flag Bool,
     regDistPref    :: Flag FilePath,
+    regPkgPath     :: Flag String,
     regVerbosity   :: Flag Verbosity
   }
   deriving Show
@@ -814,6 +815,7 @@ defaultRegisterFlags = RegisterFlags {
     regGenPkgConf  = NoFlag,
     regInPlace     = Flag False,
     regDistPref    = Flag defaultDistPref,
+    regPkgPath     = Flag "",
     regVerbosity   = Flag normal
   }
 
@@ -850,6 +852,11 @@ registerCommand = makeCommand name shortDesc longDesc 
          "instead of registering, generate a package registration file"
          regGenPkgConf (\v flags -> flags { regGenPkgConf  = v })
          (optArg' "PKG" Flag flagToList)
+
+      ,option "" ["pkgpath"]
+	 "set the pkgpath field"
+	 regPkgPath (\v flags -> flags { regPkgPath = v })
+	 (reqArgFlag "PKGPATH")
       ]
 
 unregisterCommand :: CommandUI RegisterFlags
@@ -887,6 +894,7 @@ instance Monoid RegisterFlags where
     regGenPkgConf  = mempty,
     regInPlace     = mempty,
     regDistPref    = mempty,
+    regPkgPath     = mempty,
     regVerbosity   = mempty
   }
   mappend a b = RegisterFlags {
@@ -895,6 +903,7 @@ instance Monoid RegisterFlags where
     regGenPkgConf  = combine regGenPkgConf,
     regInPlace     = combine regInPlace,
     regDistPref    = combine regDistPref,
+    regPkgPath     = combine regPkgPath,
     regVerbosity   = combine regVerbosity
   }
     where combine field = field a `mappend` field b
