Old bytestring doesn't have NFData instance

Data/Csv/Streaming.hs

@@ -43,6 +43,10 @@ import qualified Data.Csv.Incremental as I
 import Data.Csv.Parser
 import Data.Csv.Types
 
+#if !MIN_VERSION_bytestring(0,10,0)
+import qualified Data.ByteString.Lazy.Internal as BL  -- for constructors
+#endif
+
 -- $example
 --
 -- A short usage example:
@@ -119,7 +123,15 @@ instance Traversable Records where
 
 instance NFData a => NFData (Records a) where
     rnf (Cons r rs) = rnf r `seq` rnf rs
+#if MIN_VERSION_bytestring(0,10,0)
     rnf (Nil errMsg rest) = rnf errMsg `seq` rnf rest
+#else
+    rnf (Nil errMsg rest) = rnf errMsg `seq` rnfLazyByteString rest
+
+rnfLazyByteString :: BL.ByteString -> ()
+rnfLazyByteString BL.Empty       = ()
+rnfLazyByteString (BL.Chunk _ b) = rnfLazyByteString b
+#endif
 
 -- | Efficiently deserialize CSV records in a streaming fashion.
 -- Equivalent to @'decodeWith' 'defaultDecodeOptions'@.