From 795fe083e59fa22055cca53fadc36ebd26b0d2a5 Mon Sep 17 00:00:00 2001
From: Herbert Valerio Riedel <hvr@gnu.org>
Date: Mon, 26 Aug 2013 22:03:25 +0200
Subject: [PATCH] Sync Cabal to upstream version 1.18 pre-release

Apart from bumping build-dep version bounds, `ghc-cabal` is adapted to
some minor Cabal API changes, and `bin-package-db` is made aware of
Cabal's recently added AGPL licence support.
---
 libraries/Cabal                                     |  2 +-
 .../Distribution/InstalledPackageInfo/Binary.hs     |  4 +++-
 libraries/bin-package-db/bin-package-db.cabal       |  2 +-
 utils/ghc-cabal/Main.hs                             | 13 +++++++------
 utils/ghc-cabal/ghc-cabal.cabal                     |  2 +-
 5 files changed, 13 insertions(+), 10 deletions(-)

diff --git a/libraries/Cabal b/libraries/Cabal
index 5fa5c41cd9..85cb83d7d8 160000
--- a/libraries/Cabal
+++ b/libraries/Cabal
@@ -1 +1 @@
-Subproject commit 5fa5c41cd9d2c9b4b543312af6919fe3d8588654
+Subproject commit 85cb83d7d8dbc8e59e20d31323e660608eb52557
diff --git a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
index 123f91adae..27e23d8959 100644
--- a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
+++ b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
@@ -131,7 +131,8 @@ instance Binary License where
   put AllRightsReserved    = do putWord8 6
   put OtherLicense         = do putWord8 7
   put (Apache v)           = do putWord8 8; put v
-  put (UnknownLicense str) = do putWord8 9; put str
+  put (AGPL v)             = do putWord8 9; put v
+  put (UnknownLicense str) = do putWord8 10; put str
 
   get = do
     n <- getWord8
@@ -145,6 +146,7 @@ instance Binary License where
       6 -> return AllRightsReserved
       7 -> return OtherLicense
       8 -> do v <- get; return (Apache v)
+      9 -> do v <- get; return (AGPL v)
       _ -> do str <- get; return (UnknownLicense str)
 
 instance Binary Version where
diff --git a/libraries/bin-package-db/bin-package-db.cabal b/libraries/bin-package-db/bin-package-db.cabal
index c03399cd5b..c308b60052 100644
--- a/libraries/bin-package-db/bin-package-db.cabal
+++ b/libraries/bin-package-db/bin-package-db.cabal
@@ -18,7 +18,7 @@ Library {
     build-depends: base >= 4 && < 5
 
     build-depends: binary >= 0.5 && < 0.8,
-                   Cabal >= 1.8 && < 1.18
+                   Cabal >= 1.18 && < 1.19
 
     extensions: CPP
 }
diff --git a/utils/ghc-cabal/Main.hs b/utils/ghc-cabal/Main.hs
index 9a76d6b93d..7d1d9bcc92 100644
--- a/utils/ghc-cabal/Main.hs
+++ b/utils/ghc-cabal/Main.hs
@@ -167,7 +167,7 @@ doCopy directory distDir
                                                  (installDirTemplates lbi)
                 progs = withPrograms lbi
                 stripProgram' = stripProgram {
-                    programFindLocation = \_ -> return (Just strip) }
+                    programFindLocation = \_ _ -> return (Just strip) }
 
             progs' <- configureProgram verbosity stripProgram' progs
             let lbi' = lbi {
@@ -205,12 +205,13 @@ doRegister directory distDir ghc ghcpkg topdir
                 progs = withPrograms lbi
                 ghcpkgconf = topdir </> "package.conf.d"
                 ghcProgram' = ghcProgram {
-                    programPostConf = \_ _ -> return ["-B" ++ topdir],
-                    programFindLocation = \_ -> return (Just ghc) }
+                    programPostConf = \_ cp -> return cp { programDefaultArgs = ["-B" ++ topdir] },
+                    programFindLocation = \_ _ -> return (Just ghc) }
                 ghcPkgProgram' = ghcPkgProgram {
-                    programPostConf = \_ _ -> return $ ["--global-package-db", ghcpkgconf]
-                                                    ++ ["--force" | not (null myDestDir) ],
-                    programFindLocation = \_ -> return (Just ghcpkg) }
+                    programPostConf = \_ cp -> return cp { programDefaultArgs =
+                                                                ["--global-package-db", ghcpkgconf]
+                                                                ++ ["--force" | not (null myDestDir) ] },
+                    programFindLocation = \_ _ -> return (Just ghcpkg) }
                 configurePrograms ps conf = foldM (flip (configureProgram verbosity)) conf ps
 
             progs' <- configurePrograms [ghcProgram', ghcPkgProgram'] progs
diff --git a/utils/ghc-cabal/ghc-cabal.cabal b/utils/ghc-cabal/ghc-cabal.cabal
index 864620487d..10d6e0a9e4 100644
--- a/utils/ghc-cabal/ghc-cabal.cabal
+++ b/utils/ghc-cabal/ghc-cabal.cabal
@@ -17,7 +17,7 @@ Executable ghc-cabal
 
     Build-Depends: base       >= 3   && < 5,
                    bytestring >= 0.10 && < 0.11,
-                   Cabal      >= 1.10 && < 1.18,
+                   Cabal      >= 1.18 && < 1.19,
                    directory  >= 1.1 && < 1.3,
                    filepath   >= 1.2 && < 1.4
 
-- 
GitLab