Add ForeignPtr instnaces.

haskell · Sep 21, 2019 · 468fc06 · 468fc06
1 parent c9d12bf
commit 468fc06
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
@@ -102,6 +102,7 @@ import Data.Monoid as Mon
 import Data.Typeable ( TypeRep, TyCon )
 import Data.Unique ( Unique )
 import Foreign.Ptr
+import Foreign.ForeignPtr
 import Foreign.C.Types
 import System.Exit ( ExitCode(..) )
 import System.Mem.StableName ( StableName )
@@ -775,6 +776,16 @@ instance NFData (FunPtr a) where
 instance NFData1 FunPtr where
     liftRnf _ = rwhnf
 
+----------------------------------------------------------------------------
+-- Foreign.ForeignPtr
+
+-- |@since 1.4.5.0
+instance NFData (ForeignPtr a) where
+    rnf = rwhnf
+-- |@since 1.4.5.0
+instance NFData1 ForeignPtr where
+    liftRnf _ = rwhnf
+
 ----------------------------------------------------------------------------
 -- Foreign.C.Types