Commit 69562e34 authored by Sylvain Henry's avatar Sylvain Henry Committed by Marge Bot
Browse files

Remove unused `emptyGenericUnitInfo`

parent 10a2ba90
......@@ -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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment