summaryrefslogtreecommitdiff
path: root/src/System
diff options
context:
space:
mode:
Diffstat (limited to 'src/System')
-rw-r--r--src/System/Torrent/Storage.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/src/System/Torrent/Storage.hs b/src/System/Torrent/Storage.hs
index bf44d7bf..8ad4d3e5 100644
--- a/src/System/Torrent/Storage.hs
+++ b/src/System/Torrent/Storage.hs
@@ -45,7 +45,7 @@ import Data.Typeable
45import Data.Torrent.Bitfield 45import Data.Torrent.Bitfield
46import Data.Torrent.Layout 46import Data.Torrent.Layout
47import Data.Torrent.Piece 47import Data.Torrent.Piece
48import System.Torrent.FileMap 48import System.Torrent.FileMap as FM
49 49
50 50
51data StorageFailure 51data StorageFailure
@@ -82,7 +82,9 @@ withStorage :: Mode -> PieceSize -> FileLayout FileSize
82withStorage m s l = bracket (open m s l) close 82withStorage m s l = bracket (open m s l) close
83 83
84isValidIx :: PieceIx -> Storage -> Bool 84isValidIx :: PieceIx -> Storage -> Bool
85isValidIx i s = 0 <= i && i < undefined s 85isValidIx i Storage {..} = 0 <= i && i < pcount
86 where
87 pcount = FM.size fileMap `sizeInBase` pieceLen
86 88
87writePiece :: Piece BL.ByteString -> Storage -> IO () 89writePiece :: Piece BL.ByteString -> Storage -> IO ()
88writePiece p @ Piece {..} s @ Storage {..} 90writePiece p @ Piece {..} s @ Storage {..}