diff --git a/Control/DeepSeq.hs b/Control/DeepSeq.hs
index 71cc19c..497bbb4 100644
--- 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