Remove base 3 support from bin-package-db
authorIan Lynagh <ian@well-typed.com>
Mon, 18 Mar 2013 12:33:10 +0000 (12:33 +0000)
committerIan Lynagh <ian@well-typed.com>
Mon, 18 Mar 2013 12:33:10 +0000 (12:33 +0000)
libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
libraries/bin-package-db/bin-package-db.cabal

index f6cbc7c..476897e 100644 (file)
@@ -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
index 7fde05d..67c7f65 100644 (file)
@@ -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