From 050366161e8221fca8fe4cb9880b5814e5c77117 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Sat, 28 Sep 2013 03:14:23 +0400 Subject: Use generic integral coders --- src/Data/BEncode.hs | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index a9f6aac..37c84c7 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs @@ -402,38 +402,38 @@ fromBEncodeIntegral _ instance BEncodable Word8 where - toBEncode = toBEncode . (fromIntegral :: Word8 -> Word64) + toBEncode = toBEncodeIntegral {-# INLINE toBEncode #-} - fromBEncode b = (fromIntegral :: Word64 -> Word8) <$> fromBEncode b + fromBEncode = fromBEncodeIntegral {-# INLINE fromBEncode #-} instance BEncodable Word16 where - toBEncode = toBEncode . (fromIntegral :: Word16 -> Word64) + toBEncode = toBEncodeIntegral {-# INLINE toBEncode #-} - fromBEncode b = (fromIntegral :: Word64 -> Word16) <$> fromBEncode b + fromBEncode = fromBEncodeIntegral {-# INLINE fromBEncode #-} instance BEncodable Word32 where - toBEncode = toBEncode . (fromIntegral :: Word32 -> Word64) + toBEncode = toBEncodeIntegral {-# INLINE toBEncode #-} - fromBEncode b = (fromIntegral :: Word64 -> Word32) <$> fromBEncode b + fromBEncode = fromBEncodeIntegral {-# INLINE fromBEncode #-} instance BEncodable Word64 where - toBEncode = toBEncode . (fromIntegral :: Word64 -> Int) + toBEncode = toBEncodeIntegral {-# INLINE toBEncode #-} - fromBEncode b = (fromIntegral :: Int -> Word64) <$> fromBEncode b + fromBEncode = fromBEncodeIntegral {-# INLINE fromBEncode #-} instance BEncodable Word where - toBEncode = toBEncode . (fromIntegral :: Word -> Int) + toBEncode = toBEncodeIntegral {-# INLINE toBEncode #-} - fromBEncode b = (fromIntegral :: Int -> Word) <$> fromBEncode b + fromBEncode = fromBEncodeIntegral {-# INLINE fromBEncode #-} {-------------------------------------------------------------------- -- cgit v1.2.3