[commit: ghc] master: Remove base 3 support from bin-package-db (0faa8f5)
Ian Lynagh
igloo at earth.li
Tue Mar 19 02:43:09 CET 2013
Repository : http://darcs.haskell.org/ghc.git/
On branch : master
https://github.com/ghc/ghc/commit/0faa8f539f94f51002c73fb1b9c8b22a6d6321e2
>---------------------------------------------------------------
commit 0faa8f539f94f51002c73fb1b9c8b22a6d6321e2
Author: Ian Lynagh <ian at well-typed.com>
Date: Mon Mar 18 12:33:10 2013 +0000
Remove base 3 support from bin-package-db
>---------------------------------------------------------------
.../bin-package-db/Distribution/InstalledPackageInfo/Binary.hs | 6 ------
libraries/bin-package-db/bin-package-db.cabal | 9 +--------
2 files changed, 1 insertion(+), 14 deletions(-)
diff --git a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
index f6cbc7c..476897e 100644
--- a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
+++ b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
@@ -36,13 +36,7 @@ readBinPackageDB file
(\err -> error ("While parsing " ++ show file ++ ": " ++ err))
catchUserError :: IO a -> (String -> IO a) -> IO a
-#ifdef BASE3
-catchUserError io f = io `Exception.catch` \e -> case e of
- ErrorCall err -> f err
- _ -> throw e
-#else
catchUserError io f = io `Exception.catch` \(ErrorCall err) -> f err
-#endif
writeBinPackageDB :: Binary m => FilePath -> [InstalledPackageInfo_ m] -> IO ()
writeBinPackageDB file ipis = Bin.encodeFile file ipis
diff --git a/libraries/bin-package-db/bin-package-db.cabal b/libraries/bin-package-db/bin-package-db.cabal
index 7fde05d..67c7f65 100644
--- a/libraries/bin-package-db/bin-package-db.cabal
+++ b/libraries/bin-package-db/bin-package-db.cabal
@@ -11,18 +11,11 @@ source-repository head
type: darcs
location: http://darcs.haskell.org/ghc
-flag base3
- default: False
-
Library {
exposed-modules:
Distribution.InstalledPackageInfo.Binary
- if flag(base3)
- build-depends: base >= 3 && < 4
- cpp-options: -DBASE3
- else
- build-depends: base >= 4 && < 5
+ build-depends: base >= 4 && < 5
build-depends: binary >= 0.5 && < 0.8,
Cabal >= 1.8 && < 1.18
More information about the ghc-commits
mailing list