Add Int{8,16,32,64} instances.

1 files changed, 33 insertions, 6 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index 37c84c7..402e8b3 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -436,18 +436,45 @@ instance BEncodable Word where
   fromBEncode = fromBEncodeIntegral
   {-# INLINE fromBEncode #-}
 
-{--------------------------------------------------------------------
---  Derived instances
---------------------------------------------------------------------}
+instance BEncodable Int8 where
+  toBEncode = toBEncodeIntegral
+  {-# INLINE toBEncode #-}
+
+  fromBEncode = fromBEncodeIntegral
+  {-# INLINE fromBEncode #-}
+
+instance BEncodable Int16 where
+  toBEncode = toBEncodeIntegral
+  {-# INLINE toBEncode #-}
+
+  fromBEncode = fromBEncodeIntegral
+  {-# INLINE fromBEncode #-}
+
+instance BEncodable Int32 where
+  toBEncode = toBEncodeIntegral
+  {-# INLINE toBEncode #-}
+
+  fromBEncode = fromBEncodeIntegral
+  {-# INLINE fromBEncode #-}
+
+instance BEncodable Int64 where
+  toBEncode = toBEncodeIntegral
+  {-# INLINE toBEncode #-}
+
+  fromBEncode = fromBEncodeIntegral
+  {-# INLINE fromBEncode #-}
 
 instance BEncodable Int where
-  toBEncode = BInteger . fromIntegral
+  toBEncode = toBEncodeIntegral
   {-# INLINE toBEncode #-}
 
-  fromBEncode (BInteger i) = Right (fromIntegral i)
-  fromBEncode _            = decodingError "Int"
+  fromBEncode = fromBEncodeIntegral
   {-# INLINE fromBEncode #-}
 
+{--------------------------------------------------------------------
+--  Derived instances
+--------------------------------------------------------------------}
+
 instance BEncodable Bool where
   toBEncode = toBEncode . fromEnum
   {-# INLINE toBEncode #-}