summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSam Truzjan <pxqr.sta@gmail.com>2013-09-28 02:44:04 +0400
committerSam Truzjan <pxqr.sta@gmail.com>2013-09-28 02:44:04 +0400
commitfd044dd8d567bb0b24b36dab58c7219bb0001aaa (patch)
treec9cc2fb7458847fc0df64f8eeef3d08c1eca6994
parent8289e70d28f67224a19f79c292d25f3e4f54bff8 (diff)
Code style
-rw-r--r--src/Data/BEncode.hs5
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
387instance BEncodable Word8 where 387instance 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
393instance BEncodable Word16 where 394instance 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
399instance BEncodable Word32 where 401instance 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
405instance BEncodable Word64 where 408instance 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
411instance BEncodable Word where 415instance 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