diff options
author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-10 12:00:55 -0700 |
---|---|---|
committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-10-10 12:01:03 -0700 |
commit | bbad4f6b5894c3deb417a056e0fd3fd75da7f593 (patch) | |
tree | 8dcca16ff9f66c0029c4cf9c701687226efd2a76 /compiler/main/PackageConfig.hs | |
parent | 614ce4b0b93ec1f9c308589b956b725535c57111 (diff) | |
download | haskell-bbad4f6b5894c3deb417a056e0fd3fd75da7f593.tar.gz |
Delete ShPackageKey for now.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'compiler/main/PackageConfig.hs')
-rw-r--r-- | compiler/main/PackageConfig.hs | 21 |
1 files changed, 0 insertions, 21 deletions
diff --git a/compiler/main/PackageConfig.hs b/compiler/main/PackageConfig.hs index 71a84d8622..f3cdac77da 100644 --- a/compiler/main/PackageConfig.hs +++ b/compiler/main/PackageConfig.hs @@ -12,18 +12,13 @@ module PackageConfig ( -- * PackageKey packageConfigId, - -- * LibraryName - LibraryName(..), - -- * The PackageConfig type: information about a package PackageConfig, InstalledPackageInfo(..), InstalledPackageId(..), SourcePackageId(..), PackageName(..), - UnitName(..), Version(..), - packageUnitName, defaultPackageConfig, installedPackageIdString, sourcePackageIdString, @@ -59,8 +54,6 @@ type PackageConfig = InstalledPackageInfo newtype InstalledPackageId = InstalledPackageId FastString deriving (Eq, Ord) newtype SourcePackageId = SourcePackageId FastString deriving (Eq, Ord) newtype PackageName = PackageName FastString deriving (Eq, Ord) -newtype UnitName = UnitName FastString deriving (Eq, Ord) -newtype LibraryName = LibraryName FastString deriving (Eq, Ord) instance BinaryStringRep InstalledPackageId where fromStringRep = InstalledPackageId . mkFastStringByteString @@ -74,10 +67,6 @@ instance BinaryStringRep PackageName where fromStringRep = PackageName . mkFastStringByteString toStringRep (PackageName s) = fastStringToByteString s -instance BinaryStringRep LibraryName where - fromStringRep = LibraryName . mkFastStringByteString - toStringRep (LibraryName s) = fastStringToByteString s - instance Uniquable InstalledPackageId where getUnique (InstalledPackageId n) = getUnique n @@ -90,12 +79,6 @@ instance Uniquable PackageName where instance Outputable InstalledPackageId where ppr (InstalledPackageId str) = ftext str -instance Outputable UnitName where - ppr (UnitName str) = ftext str - -instance Outputable LibraryName where - ppr (LibraryName str) = ftext str - instance Outputable SourcePackageId where ppr (SourcePackageId str) = ftext str @@ -188,7 +171,3 @@ pprPackageConfig InstalledPackageInfo {..} = -- | Get the GHC 'PackageKey' right out of a Cabalish 'PackageConfig' packageConfigId :: PackageConfig -> PackageKey packageConfigId = packageKey - -packageUnitName :: PackageConfig -> UnitName -packageUnitName pkg = let PackageName fs = packageName pkg - in UnitName fs |