diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Data/BEncode.hs | 20 |
1 files changed, 10 insertions, 10 deletions
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 _ | |||
402 | 402 | ||
403 | 403 | ||
404 | instance BEncodable Word8 where | 404 | instance BEncodable Word8 where |
405 | toBEncode = toBEncode . (fromIntegral :: Word8 -> Word64) | 405 | toBEncode = toBEncodeIntegral |
406 | {-# INLINE toBEncode #-} | 406 | {-# INLINE toBEncode #-} |
407 | 407 | ||
408 | fromBEncode b = (fromIntegral :: Word64 -> Word8) <$> fromBEncode b | 408 | fromBEncode = fromBEncodeIntegral |
409 | {-# INLINE fromBEncode #-} | 409 | {-# INLINE fromBEncode #-} |
410 | 410 | ||
411 | instance BEncodable Word16 where | 411 | instance BEncodable Word16 where |
412 | toBEncode = toBEncode . (fromIntegral :: Word16 -> Word64) | 412 | toBEncode = toBEncodeIntegral |
413 | {-# INLINE toBEncode #-} | 413 | {-# INLINE toBEncode #-} |
414 | 414 | ||
415 | fromBEncode b = (fromIntegral :: Word64 -> Word16) <$> fromBEncode b | 415 | fromBEncode = fromBEncodeIntegral |
416 | {-# INLINE fromBEncode #-} | 416 | {-# INLINE fromBEncode #-} |
417 | 417 | ||
418 | instance BEncodable Word32 where | 418 | instance BEncodable Word32 where |
419 | toBEncode = toBEncode . (fromIntegral :: Word32 -> Word64) | 419 | toBEncode = toBEncodeIntegral |
420 | {-# INLINE toBEncode #-} | 420 | {-# INLINE toBEncode #-} |
421 | 421 | ||
422 | fromBEncode b = (fromIntegral :: Word64 -> Word32) <$> fromBEncode b | 422 | fromBEncode = fromBEncodeIntegral |
423 | {-# INLINE fromBEncode #-} | 423 | {-# INLINE fromBEncode #-} |
424 | 424 | ||
425 | instance BEncodable Word64 where | 425 | instance BEncodable Word64 where |
426 | toBEncode = toBEncode . (fromIntegral :: Word64 -> Int) | 426 | toBEncode = toBEncodeIntegral |
427 | {-# INLINE toBEncode #-} | 427 | {-# INLINE toBEncode #-} |
428 | 428 | ||
429 | fromBEncode b = (fromIntegral :: Int -> Word64) <$> fromBEncode b | 429 | fromBEncode = fromBEncodeIntegral |
430 | {-# INLINE fromBEncode #-} | 430 | {-# INLINE fromBEncode #-} |
431 | 431 | ||
432 | instance BEncodable Word where | 432 | instance BEncodable Word where |
433 | toBEncode = toBEncode . (fromIntegral :: Word -> Int) | 433 | toBEncode = toBEncodeIntegral |
434 | {-# INLINE toBEncode #-} | 434 | {-# INLINE toBEncode #-} |
435 | 435 | ||
436 | fromBEncode b = (fromIntegral :: Int -> Word) <$> fromBEncode b | 436 | fromBEncode = fromBEncodeIntegral |
437 | {-# INLINE fromBEncode #-} | 437 | {-# INLINE fromBEncode #-} |
438 | 438 | ||
439 | {-------------------------------------------------------------------- | 439 | {-------------------------------------------------------------------- |