diff options
author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-28 02:44:04 +0400 |
---|---|---|
committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-28 02:44:04 +0400 |
commit | fd044dd8d567bb0b24b36dab58c7219bb0001aaa (patch) | |
tree | c9cc2fb7458847fc0df64f8eeef3d08c1eca6994 | |
parent | 8289e70d28f67224a19f79c292d25f3e4f54bff8 (diff) |
Code style
-rw-r--r-- | src/Data/BEncode.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/Data/BEncode.hs b/src/Data/BEncode.hs index 59521b9..9cbd1e5 100644 --- a/src/Data/BEncode.hs +++ b/src/Data/BEncode.hs | |||
@@ -387,30 +387,35 @@ instance BEncodable BDict where | |||
387 | instance BEncodable Word8 where | 387 | instance BEncodable Word8 where |
388 | toBEncode = toBEncode . (fromIntegral :: Word8 -> Word64) | 388 | toBEncode = toBEncode . (fromIntegral :: Word8 -> Word64) |
389 | {-# INLINE toBEncode #-} | 389 | {-# INLINE toBEncode #-} |
390 | |||
390 | fromBEncode b = (fromIntegral :: Word64 -> Word8) <$> fromBEncode b | 391 | fromBEncode b = (fromIntegral :: Word64 -> Word8) <$> fromBEncode b |
391 | {-# INLINE fromBEncode #-} | 392 | {-# INLINE fromBEncode #-} |
392 | 393 | ||
393 | instance BEncodable Word16 where | 394 | instance BEncodable Word16 where |
394 | toBEncode = toBEncode . (fromIntegral :: Word16 -> Word64) | 395 | toBEncode = toBEncode . (fromIntegral :: Word16 -> Word64) |
395 | {-# INLINE toBEncode #-} | 396 | {-# INLINE toBEncode #-} |
397 | |||
396 | fromBEncode b = (fromIntegral :: Word64 -> Word16) <$> fromBEncode b | 398 | fromBEncode b = (fromIntegral :: Word64 -> Word16) <$> fromBEncode b |
397 | {-# INLINE fromBEncode #-} | 399 | {-# INLINE fromBEncode #-} |
398 | 400 | ||
399 | instance BEncodable Word32 where | 401 | instance BEncodable Word32 where |
400 | toBEncode = toBEncode . (fromIntegral :: Word32 -> Word64) | 402 | toBEncode = toBEncode . (fromIntegral :: Word32 -> Word64) |
401 | {-# INLINE toBEncode #-} | 403 | {-# INLINE toBEncode #-} |
404 | |||
402 | fromBEncode b = (fromIntegral :: Word64 -> Word32) <$> fromBEncode b | 405 | fromBEncode b = (fromIntegral :: Word64 -> Word32) <$> fromBEncode b |
403 | {-# INLINE fromBEncode #-} | 406 | {-# INLINE fromBEncode #-} |
404 | 407 | ||
405 | instance BEncodable Word64 where | 408 | instance BEncodable Word64 where |
406 | toBEncode = toBEncode . (fromIntegral :: Word64 -> Int) | 409 | toBEncode = toBEncode . (fromIntegral :: Word64 -> Int) |
407 | {-# INLINE toBEncode #-} | 410 | {-# INLINE toBEncode #-} |
411 | |||
408 | fromBEncode b = (fromIntegral :: Int -> Word64) <$> fromBEncode b | 412 | fromBEncode b = (fromIntegral :: Int -> Word64) <$> fromBEncode b |
409 | {-# INLINE fromBEncode #-} | 413 | {-# INLINE fromBEncode #-} |
410 | 414 | ||
411 | instance BEncodable Word where | 415 | instance BEncodable Word where |
412 | toBEncode = toBEncode . (fromIntegral :: Word -> Int) | 416 | toBEncode = toBEncode . (fromIntegral :: Word -> Int) |
413 | {-# INLINE toBEncode #-} | 417 | {-# INLINE toBEncode #-} |
418 | |||
414 | fromBEncode b = (fromIntegral :: Int -> Word) <$> fromBEncode b | 419 | fromBEncode b = (fromIntegral :: Int -> Word) <$> fromBEncode b |
415 | {-# INLINE fromBEncode #-} | 420 | {-# INLINE fromBEncode #-} |
416 | 421 | ||