diff options
| -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) |