Add more instances.

Control/DeepSeq.hs

@@ -119,6 +119,7 @@ import Foreign.C.Types
 import Foreign.Ptr
 import GHC.Arr (Array)
 import qualified GHC.Arr
+import GHC.Conc (TVar)
 import GHC.Fingerprint.Type (Fingerprint (..))
 import GHC.Generics
 import GHC.Stack.Types (CallStack (..), SrcLoc (..))
@@ -137,6 +138,12 @@ import GHC.Tuple (Solo (..))
 import Data.Array.Byte (ByteArray(..), MutableByteArray(..))
 #endif
 
+#if MIN_VERSION_base(4,8,0)
+import Foreign.ForeignPtr
+#else
+import Foreign.ForeignPtr.Safe
+#endif
+
 -- | Hidden internal type-class
 class GNFData arity f where
   grnf :: RnfArgs arity a -> f a -> ()
@@ -758,6 +765,14 @@ instance NFData (MVar a) where
 instance NFData1 MVar where
   liftRnf _ = rwhnf
 
+-- | @since 1.5.X
+instance NFData (TVar a) where
+    rnf = rwhnf
+
+-- | @since 1.5.X
+instance NFData1 TVar where
+    liftRnf _ = rwhnf
+
 ----------------------------------------------------------------------------
 -- GHC Specifics
 
@@ -784,6 +799,20 @@ instance NFData (FunPtr a) where
 instance NFData1 FunPtr where
   liftRnf _ = rwhnf
 
+----------------------------------------------------------------------------
+-- Foreign.Ptr
+
+-- | __NOTE__: Only strict in the reference and not the referenced value. Not
+--   strict in the finalizers.
+
+-- | @since 1.5.X
+instance NFData (ForeignPtr a) where
+    rnf = rwhnf
+
+-- | @since 1.5.X
+instance NFData1 ForeignPtr where
+    liftRnf _ = rwhnf
+
 ----------------------------------------------------------------------------
 -- Foreign.C.Types
 

changelog.md

@@ -2,7 +2,8 @@
 
 ## Upcoming
 
-
+* Add `NFData` instance for `ForeignPtr` ([#50](https://github.com/haskell/deepseq/pull/50))
+* Add `NFData` instance for `TVar` ([#50](https://github.com/haskell/deepseq/pull/50))
 
 ## 1.5.1.0