From 33ae6235029ad9d2a9b5726afff13b660783b86a Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Wed, 17 Jul 2013 01:03:04 +0400
Subject: ~ Add stubs to nonblocking IO.

---
 src/Data/Torrent.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Data')

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index 2b303b80..8e837b56 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -56,6 +56,7 @@ module Data.Torrent
        , Data.Torrent.hash
        , Data.Torrent.hashlazy
        , layoutOffsets
+       , slice
 -- #endif
        ) where
 
@@ -464,14 +465,17 @@ fileOffset fullPath
 isSingleFile :: ContentInfo -> Bool
 isSingleFile SingleFile {} = True
 isSingleFile _             = False
+{-# INLINE isSingleFile #-}
 
 -- | Test if this is multifile torrent.
 isMultiFile :: ContentInfo -> Bool
 isMultiFile MultiFile {} = True
 isMultiFile _            = False
+{-# INLINE isMultiFile #-}
 
 slice :: Int -> Int -> ByteString -> ByteString
-slice from to = B.take to . B.drop from
+slice from siz = B.take siz . B.drop from
+{-# INLINE slice #-}
 
 -- | Extract validation hash by specified piece index.
 pieceHash :: ContentInfo -> Int -> ByteString
-- 
cgit v1.2.3