diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-06 22:09:20 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-06 22:09:20 +0400 |
| commit | c45c87c587046fcc7f2656bc1eb7302286c0ef96 (patch) | |
| tree | 3bc4317db109c4c887a87de49b52b0331470b5d5 /src/Data/Torrent/Piece.hs | |
| parent | 068751854cc6c111bf4bec14802fb2552c0a26bf (diff) | |
Add ppTorrent function
Diffstat (limited to 'src/Data/Torrent/Piece.hs')
| -rw-r--r-- | src/Data/Torrent/Piece.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/Torrent/Piece.hs b/src/Data/Torrent/Piece.hs index 9e7280b0..c8727a65 100644 --- a/src/Data/Torrent/Piece.hs +++ b/src/Data/Torrent/Piece.hs | |||
| @@ -194,8 +194,8 @@ instance BEncode PieceInfo where | |||
| 194 | 194 | ||
| 195 | -- | Format piece info in human readable form. Hashes are omitted. | 195 | -- | Format piece info in human readable form. Hashes are omitted. |
| 196 | ppPieceInfo :: PieceInfo -> Doc | 196 | ppPieceInfo :: PieceInfo -> Doc |
| 197 | ppPieceInfo PieceInfo { piPieceLength = len } = | 197 | ppPieceInfo PieceInfo {..} = |
| 198 | "PieceInfo" <+> braces ("length" <+> "=" <+> int len) | 198 | "Piece size: " <> int piPieceLength |
| 199 | 199 | ||
| 200 | hashsize :: Int | 200 | hashsize :: Int |
| 201 | hashsize = 20 | 201 | hashsize = 20 |