diff --git a/compiler/GHC/Unit/Info.hs b/compiler/GHC/Unit/Info.hs
index 80029dcaa58b4a0b303dcac1470561d635e10c21..010bb5ebf33a0d6729696130a53cd8d9f5111e6a 100644
--- a/compiler/GHC/Unit/Info.hs
+++ b/compiler/GHC/Unit/Info.hs
@@ -22,7 +22,6 @@ module GHC.Unit.Info (
         PackageId(..),
         PackageName(..),
         Version(..),
-        defaultUnitInfo,
         unitPackageNameString,
         unitPackageIdString,
         pprUnitInfo,
@@ -83,9 +82,6 @@ instance Outputable PackageId where
 instance Outputable PackageName where
   ppr (PackageName str) = ftext str
 
-defaultUnitInfo :: UnitInfo
-defaultUnitInfo = emptyGenericUnitInfo
-
 unitPackageIdString :: UnitInfo -> String
 unitPackageIdString pkg = unpackFS str
   where
diff --git a/libraries/ghc-boot/GHC/PackageDb.hs b/libraries/ghc-boot/GHC/PackageDb.hs
index b0d7a179cbd723511e741740ff14d65ee4cd04de..bc6cdbcc6d9f61530616088e97de7d7f86bcb382 100644
--- a/libraries/ghc-boot/GHC/PackageDb.hs
+++ b/libraries/ghc-boot/GHC/PackageDb.hs
@@ -48,7 +48,6 @@
 --
 module GHC.PackageDb
    ( GenericUnitInfo(..)
-   , emptyGenericUnitInfo
    -- * Read and write
    , DbMode(..)
    , DbOpenMode(..)
@@ -282,41 +281,6 @@ class BinaryStringRep a where
   fromStringRep :: BS.ByteString -> a
   toStringRep   :: a -> BS.ByteString
 
-emptyGenericUnitInfo :: RepGenericUnitInfo a b c d e f g
-                          => GenericUnitInfo a b c d e f g
-emptyGenericUnitInfo =
-  GenericUnitInfo {
-       unitId                  = fromStringRep BS.empty,
-       unitInstanceOf          = fromStringRep BS.empty,
-       unitInstantiations      = [],
-       unitPackageId           = fromStringRep BS.empty,
-       unitPackageName         = fromStringRep BS.empty,
-       unitPackageVersion      = Version [] [],
-       unitComponentName       = Nothing,
-       unitAbiHash             = "",
-       unitDepends             = [],
-       unitAbiDepends          = [],
-       unitImportDirs          = [],
-       unitLibraries           = [],
-       unitExtDepLibsSys       = [],
-       unitExtDepLibsGhc       = [],
-       unitLibraryDirs         = [],
-       unitLibraryDynDirs      = [],
-       unitExtDepFrameworks    = [],
-       unitExtDepFrameworkDirs = [],
-       unitLinkerOptions       = [],
-       unitCcOptions           = [],
-       unitIncludes            = [],
-       unitIncludeDirs         = [],
-       unitHaddockInterfaces   = [],
-       unitHaddockHTMLs        = [],
-       unitExposedModules      = [],
-       unitHiddenModules       = [],
-       unitIsIndefinite        = False,
-       unitIsExposed           = False,
-       unitIsTrusted           = False
-  }
-
 -- | Represents a lock of a package db.
 newtype PackageDbLock = PackageDbLock Handle