~ Move instance for NFData to library.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 62188ff..b53f6e5 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -102,6 +102,7 @@ module Data.BEncode
 
 
 import Control.Applicative
+import Control.DeepSeq
 import Control.Monad
 import Data.Int
 import Data.Maybe         (mapMaybe)
@@ -146,6 +147,12 @@ data BEncode = BInteger {-# UNPACK #-} !Int64
              | BDict    Dict
                deriving (Show, Read, Eq, Ord)
 
+instance NFData BEncode where
+    rnf (BInteger i) = rnf i
+    rnf (BString  s) = rnf s
+    rnf (BList    l) = rnf l
+    rnf (BDict    d) = rnf d
+
 -- | Result used in decoding operations.
 type Result = Either String