+ instance for bool

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs
index aa34ab6..5d4e14d 100644
--- a/src/Data/BEncode.hs
+++ b/src/Data/BEncode.hs
@@ -70,6 +70,13 @@ instance BEncodable Int where
   fromBEncode _            = Nothing
   {-# INLINE fromBEncode #-}
 
+instance BEncodable Bool where
+  toBEncode = toBEncode . fromEnum
+  {-# INLINE toBEncode #-}
+
+  fromBEncode b = toEnum <$> fromBEncode b
+  {-# INLINE fromBEncode #-}
+
 instance BEncodable Integer where
   toBEncode = BInteger . fromIntegral
   {-# INLINE toBEncode #-}