1 files changed, 1 insertions, 18 deletions
diff --git a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
index 9fd27f64df..571424f410 100644
--- a/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
+++ b/libraries/bin-package-db/Distribution/InstalledPackageInfo/Binary.hs
@@ -14,10 +14,7 @@
 -- Portability :  portable
 --
 
-module Distribution.InstalledPackageInfo.Binary (
-       readBinPackageDB,
-       writeBinPackageDB
-  ) where
+module Distribution.InstalledPackageInfo.Binary () where
 
 import Distribution.Version
 import Distribution.Package hiding (depends)
@@ -29,20 +26,6 @@ import Distribution.Text (display)
 import Data.Binary as Bin
 import Control.Exception as Exception
 
-readBinPackageDB :: Binary m => FilePath -> IO [InstalledPackageInfo_ m]
-readBinPackageDB file
-    = do xs <- Bin.decodeFile file
-         _ <- Exception.evaluate $ length xs
-         return xs
-      `catchUserError`
-      (\err -> error ("While parsing " ++ show file ++ ": " ++ err))
-
-catchUserError :: IO a -> (String -> IO a) -> IO a
-catchUserError io f = io `Exception.catch` \(ErrorCall err) -> f err
-
-writeBinPackageDB :: Binary m => FilePath -> [InstalledPackageInfo_ m] -> IO ()
-writeBinPackageDB file ipis = Bin.encodeFile file ipis
-
 instance Binary m => Binary (InstalledPackageInfo_ m) where
   put = putInstalledPackageInfo
   get = getInstalledPackageInfo