From 74df228e2d8cbe27049f65a70253a59e67c7acc0 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 5 Dec 2013 04:10:45 +0400
Subject: Move Block module to exchange subsystem

---
 src/Data/Torrent/Layout.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

(limited to 'src/Data/Torrent/Layout.hs')

diff --git a/src/Data/Torrent/Layout.hs b/src/Data/Torrent/Layout.hs
index 7ed8679d..a32d74fa 100644
--- a/src/Data/Torrent/Layout.hs
+++ b/src/Data/Torrent/Layout.hs
@@ -81,8 +81,6 @@ import Text.PrettyPrint.Class
 import System.FilePath
 import System.Posix.Types
 
-import Data.Torrent.Block
-
 
 {-----------------------------------------------------------------------
 --  File attribytes
@@ -274,7 +272,7 @@ fileCount MultiFile  {..} = L.length liFiles
 
 -- | Find number of blocks of the specified size. If torrent size is
 -- not a multiple of block size then the count is rounded up.
-blockCount :: BlockSize -> LayoutInfo -> Int
+blockCount :: Int -> LayoutInfo -> Int
 blockCount blkSize ci = contentLength ci `sizeInBase` blkSize
 
 {-----------------------------------------------------------------------
-- 
cgit v1.2.3