3 files changed, 11 insertions, 10 deletions

diff --git a/bench/Main.hs b/bench/Main.hs
index 2edf43a..20de179 100644
--- a/bench/Main.hs
+++ b/bench/Main.hs
@@ -15,7 +15,6 @@ import             Data.AttoBencode as B
 import             Data.AttoBencode.Parser as B
 import "bencoding" Data.BEncode     as C
 
-
 instance NFData A.BEncode where
     rnf (A.BInt    i) = rnf i
     rnf (A.BString s) = rnf s
@@ -28,15 +27,8 @@ instance NFData B.BValue where
     rnf (B.BList   l) = rnf l
     rnf (B.BDict   d) = rnf d
 
-instance NFData C.BEncode where
-    rnf (C.BInteger i) = rnf i
-    rnf (C.BString  s) = rnf s
-    rnf (C.BList    l) = rnf l
-    rnf (C.BDict    d) = rnf d
-
 getRight :: Either String a -> a
-getRight (Left e) = error e
-getRight (Right x) = x
+getRight = either error id
 
 main :: IO ()
 main = do
diff --git a/bencoding.cabal b/bencoding.cabal
index 7918508..0aa251a 100644
--- a/bencoding.cabal
+++ b/bencoding.cabal
@@ -20,7 +20,8 @@ description:
     * /0.1.0.0:/ Initial version.
 
 
-extra-source-files:    README.md .travis.yml
+extra-source-files:    README.md
+                       .travis.yml
 
 source-repository head
   type:                git
@@ -30,6 +31,7 @@ source-repository head
 library
   exposed-modules:     Data.BEncode
   build-depends:       base       == 4.*
+                     , deepseq    == 1.3.*
                      , containers >= 0.4
                      , bytestring >= 0.10.0.0
                      , attoparsec >= 0.10
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