[commit: ghc] wip/ttypeable: Unpack the fingerprints (4b79d99)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/ttypeable
Link       : http://ghc.haskell.org/trac/ghc/changeset/4b79d997a941ad8c17070219de60eff27fd9d6f9/ghc

>---------------------------------------------------------------

commit 4b79d997a941ad8c17070219de60eff27fd9d6f9
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Mon Oct 3 21:49:59 2016 -0400

    Unpack the fingerprints


>---------------------------------------------------------------

4b79d997a941ad8c17070219de60eff27fd9d6f9
 libraries/base/Data/Typeable/Internal.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libraries/base/Data/Typeable/Internal.hs b/libraries/base/Data/Typeable/Internal.hs
index 4c064d6..c8558ed 100644
--- a/libraries/base/Data/Typeable/Internal.hs
+++ b/libraries/base/Data/Typeable/Internal.hs
@@ -153,9 +153,9 @@ rnfString (c:cs) = c `seq` rnfString cs
 -- | A concrete representation of a (monomorphic) type.
 -- 'TypeRep' supports reasonably efficient equality.
 data TypeRep (a :: k) where
-    TrTyCon :: !Fingerprint -> !TyCon -> TypeRep k -> TypeRep (a :: k)
+    TrTyCon :: {-# UNPACK #-} !Fingerprint -> !TyCon -> TypeRep k -> TypeRep (a :: k)
     TrApp   :: forall k1 k2 (a :: k1 -> k2) (b :: k1).
-               !Fingerprint
+               {-# UNPACK #-} !Fingerprint
             -> TypeRep (a :: k1 -> k2)
             -> TypeRep (b :: k1)
             -> TypeRep (a b)