From 98275c68cdc6762e1d00cf26b724d5b68fe42ee4 Mon Sep 17 00:00:00 2001 From: Sam T Date: Mon, 22 Apr 2013 17:00:16 +0400 Subject: ~ Fix field names. --- src/Data/Torrent.hs | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'src') diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs index d9f59626..5955dfcc 100644 --- a/src/Data/Torrent.hs +++ b/src/Data/Torrent.hs @@ -71,25 +71,25 @@ data Torrent = Torrent { -- | Info part of the .torrent file contain info about each content file. data TorrentInfo = SingleFile { - tLength :: Integer + tiLength :: Integer -- ^ Length of the file in bytes. - , tMD5sum :: Maybe ByteString + , tiMD5sum :: Maybe ByteString -- ^ 32 character long MD5 sum of the file. -- Used by third-party tools, not by bittorrent protocol itself. - , tName :: ByteString + , tiName :: ByteString -- ^ Suggested name of the file single file. - , tPieceLength :: Int + , tiPieceLength :: Int -- ^ Number of bytes in each piece. - , tPieces :: ByteString + , tiPieces :: ByteString -- ^ Concatenation of all 20-byte SHA1 hash values. - , tPrivate :: Maybe Bool + , tiPrivate :: Maybe Bool -- ^ If set the client MUST publish its presence to get other peers ONLY -- via the trackers explicity described in the metainfo file. -- @@ -97,15 +97,15 @@ data TorrentInfo = } | MultiFile { - tFiles :: [TorrentFile] + tiFiles :: [TorrentFile] -- ^ List of the all files that torrent contains. - , tName :: ByteString + , tiName :: ByteString -- | The file path of the directory in which to store all the files. - , tPieceLength :: Int - , tPieces :: ByteString - , tPrivate :: Maybe Bool + , tiPieceLength :: Int + , tiPieces :: ByteString + , tiPrivate :: Maybe Bool } deriving (Show, Read, Eq) -- | Contain info about one single file. -- cgit v1.2.3