diff options
| author | Herbert Valerio Riedel <hvr@gnu.org> | 2015-03-11 16:36:09 +0100 |
|---|---|---|
| committer | Herbert Valerio Riedel <hvr@gnu.org> | 2015-03-11 16:36:17 +0100 |
| commit | 842028b4a624e639dc9ee9a4f92fc208c8206e3f (patch) | |
| tree | 02bc1928f86a4a7468e4482d20770dd0a61f71ae | |
| parent | 5f356f3e412ae4a808b2a72c10609eaacfb1ce3a (diff) | |
| download | haskell-842028b4a624e639dc9ee9a4f92fc208c8206e3f.tar.gz | |
Rename ty{Con,peRep}Hash to ty{Con,peRep}Fingerprint
This is a follow-up change to 56e0ac98c3a439b8757a2e886db259270bdc85f0
See also discussion at
https://groups.google.com/d/msg/haskell-core-libraries/e9N3U6nJeQE/V-TvG3G-3x4J
Reviewed By: simonpj
Differential Revision: https://phabricator.haskell.org/D726
| -rw-r--r-- | libraries/base/Data/Typeable.hs | 4 | ||||
| -rw-r--r-- | libraries/base/Data/Typeable/Internal.hs | 10 | ||||
| -rw-r--r-- | libraries/base/changelog.md | 4 |
3 files changed, 9 insertions, 9 deletions
diff --git a/libraries/base/Data/Typeable.hs b/libraries/base/Data/Typeable.hs index 7e501a5fe8..c30a43dd65 100644 --- a/libraries/base/Data/Typeable.hs +++ b/libraries/base/Data/Typeable.hs @@ -61,12 +61,12 @@ module Data.Typeable -- * Type representations TypeRep, -- abstract, instance of: Eq, Show, Typeable - typeRepHash, + typeRepFingerprint, rnfTypeRep, showsTypeRep, TyCon, -- abstract, instance of: Eq, Show, Typeable - tyConHash, + tyConFingerprint, tyConString, tyConPackage, tyConModule, diff --git a/libraries/base/Data/Typeable/Internal.hs b/libraries/base/Data/Typeable/Internal.hs index 9285904660..477247384d 100644 --- a/libraries/base/Data/Typeable/Internal.hs +++ b/libraries/base/Data/Typeable/Internal.hs @@ -44,7 +44,7 @@ module Data.Typeable.Internal ( splitPolyTyConApp, funResultTy, typeRepArgs, - typeRepHash, + typeRepFingerprint, rnfTypeRep, showsTypeRep, tyConString, @@ -83,7 +83,7 @@ instance Ord TypeRep where -- | An abstract representation of a type constructor. 'TyCon' objects can -- be built using 'mkTyCon'. data TyCon = TyCon { - tyConHash :: {-# UNPACK #-} !Fingerprint, -- ^ @since 4.8.0.0 + tyConFingerprint :: {-# UNPACK #-} !Fingerprint, -- ^ @since 4.8.0.0 tyConPackage :: String, -- ^ @since 4.5.0.0 tyConModule :: String, -- ^ @since 4.5.0.0 tyConName :: String -- ^ @since 4.5.0.0 @@ -196,8 +196,8 @@ tyConString = tyConName -- | Observe the 'Fingerprint' of a type representation -- -- @since 4.8.0.0 -typeRepHash :: TypeRep -> Fingerprint -typeRepHash (TypeRep fpr _ _ _) = fpr +typeRepFingerprint :: TypeRep -> Fingerprint +typeRepFingerprint (TypeRep fpr _ _ _) = fpr ------------------------------------------------------------- -- @@ -337,7 +337,7 @@ typeLitTypeRep nm = rep where rep = mkTyConApp tc [] tc = TyCon - { tyConHash = fingerprintString (mk pack modu nm) + { tyConFingerprint = fingerprintString (mk pack modu nm) , tyConPackage = pack , tyConModule = modu , tyConName = nm diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md index e99c1b1854..e2318a8d92 100644 --- a/libraries/base/changelog.md +++ b/libraries/base/changelog.md @@ -142,8 +142,8 @@ * Restore invariant in `Data (Ratio a)` instance (#10011) - * Add/expose `rnfTypeRep`, `rnfTyCon`, `TypeRepHash`, and - `TyConHash` helpers to `Data.Typeable`. + * Add/expose `rnfTypeRep`, `rnfTyCon`, `typeRepFingerprint`, and + `tyConFingerprint` helpers to `Data.Typeable`. * Define proper `MINIMAL` pragma for `class Ix`. (#10142) |