[Pkg-haskell-commits] darcs: haskell-cabal-install: Refresh patch

[Joachim Breitner]

Wed Apr 18 08:18:30 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * Refresh patch
  Ignore-this: ef0f6591ac9fddc0f70e515c5b066448

    M ./patches/DontSuggestUpgrading.patch -27 +3

Wed Apr 18 08:18:30 UTC 2012  Joachim Breitner <mail at joachim-breitner.de>
  * Refresh patch
  Ignore-this: ef0f6591ac9fddc0f70e515c5b066448
diff -rN -u old-haskell-cabal-install//patches/DontSuggestUpgrading.patch new-haskell-cabal-install//patches/DontSuggestUpgrading.patch
--- old-haskell-cabal-install//patches/DontSuggestUpgrading.patch	2012-04-18 08:22:20.639249549 +0000
+++ new-haskell-cabal-install//patches/DontSuggestUpgrading.patch	2012-04-18 08:22:20.643250385 +0000
@@ -5,10 +5,10 @@
 # Forwarded: not-needed
 # Last-Update: 2011-05-22
 # Applied-Upstream: no
-Index: cabal-install-0.10.2/Distribution/Client/Update.hs
+Index: haskell-cabal-install-0.14.0/Distribution/Client/Update.hs
 ===================================================================
---- cabal-install-0.10.2.orig/Distribution/Client/Update.hs	2011-05-22 09:32:15.000000000 -0300
-+++ cabal-install-0.10.2/Distribution/Client/Update.hs	2011-05-22 09:32:27.000000000 -0300
+--- haskell-cabal-install-0.14.0.orig/Distribution/Client/Update.hs	2012-04-17 17:17:31.000000000 +0200
++++ haskell-cabal-install-0.14.0/Distribution/Client/Update.hs	2012-04-18 10:17:50.000000000 +0200
 @@ -46,9 +46,7 @@
  update verbosity [] = do
    warn verbosity $ "No remote package servers have been specified. Usually "
@@ -20,27 +20,3 @@
  
  updateRepo :: Verbosity -> Repo -> IO ()
  updateRepo verbosity repo = case repoKind repo of
-@@ -60,23 +58,3 @@
-     writeFileAtomic (dropExtension indexPath) . BS.Char8.unpack
-                                               . maybeDecompress
-                                             =<< BS.readFile indexPath
--
--checkForSelfUpgrade :: Verbosity -> [Repo] -> IO ()
--checkForSelfUpgrade verbosity repos = do
--  AvailablePackageDb available prefs <- getAvailablePackages verbosity repos
--
--  let self = PackageName "cabal-install"
--      preferredVersionRange  = fromMaybe anyVersion (Map.lookup self prefs)
--      currentVersion         = Paths_cabal_install.version
--      laterPreferredVersions =
--        [ packageVersion pkg
--        | pkg <- PackageIndex.lookupPackageName available self
--        , let version = packageVersion pkg
--        , version > currentVersion
--        , version `withinRange` preferredVersionRange ]
--
--  when (not (null laterPreferredVersions)) $
--    notice verbosity $
--         "Note: there is a new version of cabal-install available.\n"
--      ++ "To upgrade, run: cabal install cabal-install"
--