diff options
author | Sam T <sta.cs.vsu@gmail.com> | 2013-04-01 06:36:45 +0400 |
---|---|---|
committer | Sam T <sta.cs.vsu@gmail.com> | 2013-04-01 06:36:45 +0400 |
commit | 2c814d0ceb5566ff0223a48eb75ceab4bf0be187 (patch) | |
tree | b9f50475d1461c8329ffe3b62fe24fbd64cff4bb | |
parent | 6abead88acb3939444cd04ca8c68e939e7ac44c8 (diff) |
+ instance for bool
-rw-r--r-- | src/Data/BEncode.hs | 7 |
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 | |||
70 | fromBEncode _ = Nothing | 70 | fromBEncode _ = Nothing |
71 | {-# INLINE fromBEncode #-} | 71 | {-# INLINE fromBEncode #-} |
72 | 72 | ||
73 | instance BEncodable Bool where | ||
74 | toBEncode = toBEncode . fromEnum | ||
75 | {-# INLINE toBEncode #-} | ||
76 | |||
77 | fromBEncode b = toEnum <$> fromBEncode b | ||
78 | {-# INLINE fromBEncode #-} | ||
79 | |||
73 | instance BEncodable Integer where | 80 | instance BEncodable Integer where |
74 | toBEncode = BInteger . fromIntegral | 81 | toBEncode = BInteger . fromIntegral |
75 | {-# INLINE toBEncode #-} | 82 | {-# INLINE toBEncode #-} |