[commit: packages/deepseq] master, typeable-with-kinds: instance NFData GHC.Fingerprint.Type.Fingerprint (af4abf7)

[git at git.haskell.org]

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

On branches: master,typeable-with-kinds
Link       : http://git.haskell.org/packages/deepseq.git/commitdiff/af4abf7891be87d5b378edb280c3496928f4d53f

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

commit af4abf7891be87d5b378edb280c3496928f4d53f
Author: Herbert Valerio Riedel <hvr at gnu.org>
Date:   Tue Nov 25 11:56:52 2014 +0100

    instance NFData GHC.Fingerprint.Type.Fingerprint


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

af4abf7891be87d5b378edb280c3496928f4d53f
 Control/DeepSeq.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 7ab8257..0472277 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -77,6 +77,7 @@ import Numeric.Natural ( Natural )
 #endif
 
 #if __GLASGOW_HASKELL__ >= 702
+import GHC.Fingerprint.Type ( Fingerprint(..) )
 import GHC.Generics
 
 -- | Hidden internal type-class
@@ -327,6 +328,18 @@ instance NFData a => NFData (Sum a) where
 instance NFData a => NFData (Product a) where
     rnf = rnf . getProduct
 
+----------------------------------------------------------------------------
+-- GHC Specifics
+
+#if __GLASGOW_HASKELL__ >= 702
+-- |/Since: 1.4.0.0/
+instance NFData Fingerprint where
+    rnf (Fingerprint _ _) = ()
+#endif
+
+----------------------------------------------------------------------------
+-- Tuples
+
 instance (NFData a, NFData b) => NFData (a,b) where
   rnf (x,y) = rnf x `seq` rnf y