[commit: packages/deepseq] master: Foreign.Ptr instances. (b88c2ed)

[git at git.haskell.org]

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

On branch  : master
Link       : http://git.haskell.org/packages/deepseq.git/commitdiff/b88c2ed2a33caac4dc304d8bccdd39fc91e96735

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

commit b88c2ed2a33caac4dc304d8bccdd39fc91e96735
Author: Mathieu Boespflug <m at tweag.io>
Date:   Sun Oct 4 20:15:59 2015 +0200

    Foreign.Ptr instances.


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

b88c2ed2a33caac4dc304d8bccdd39fc91e96735
 Control/DeepSeq.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 419d479..0b87c2e 100644
--- a/Control/DeepSeq.hs
+++ b/Control/DeepSeq.hs
@@ -71,6 +71,7 @@ import Data.Fixed
 import Data.Version
 import Data.Monoid
 import Data.Unique ( Unique )
+import Foreign.Ptr
 import Foreign.C.Types
 import System.Mem.StableName ( StableName )
 
@@ -421,6 +422,15 @@ instance NFData Fingerprint where
 #endif
 
 ----------------------------------------------------------------------------
+-- Foreign.Ptr
+
+-- |/Since: 1.4.3.0/
+instance NFData (Ptr a) where rnf !_ = ()
+
+-- |/Since: 1.4.3.0/
+instance NFData (FunPtr a) where rnf !_ = ()
+
+----------------------------------------------------------------------------
 -- Foreign.C.Types
 
 -- |/Since: 1.4.0.0/