diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2014-01-05 17:42:21 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2014-01-05 17:42:21 +0400 |
| commit | 5b122b1fab7f2de4942db6100a7363ccdc478a71 (patch) | |
| tree | 5f1e6a7b0faec514cb1f1c1d228a037a1a2ff419 /src/Data/Torrent | |
| parent | a001d6a9415e61a31b8d0abcddb20ed638fd9916 (diff) | |
Make Torrent(tAnnounce) field optional
Diffstat (limited to 'src/Data/Torrent')
| -rw-r--r-- | src/Data/Torrent/Magnet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Torrent/Magnet.hs b/src/Data/Torrent/Magnet.hs index ae4e134b..ae6a8dc5 100644 --- a/src/Data/Torrent/Magnet.hs +++ b/src/Data/Torrent/Magnet.hs | |||
| @@ -326,7 +326,7 @@ detailedMagnet :: Torrent -> Magnet | |||
| 326 | detailedMagnet t @ Torrent {tInfoDict = InfoDict {..}, tAnnounce} | 326 | detailedMagnet t @ Torrent {tInfoDict = InfoDict {..}, tAnnounce} |
| 327 | = (simpleMagnet t) | 327 | = (simpleMagnet t) |
| 328 | { exactLength = Just $ fromIntegral $ contentLength idLayoutInfo | 328 | { exactLength = Just $ fromIntegral $ contentLength idLayoutInfo |
| 329 | , tracker = Just tAnnounce | 329 | , tracker = tAnnounce |
| 330 | } | 330 | } |
| 331 | 331 | ||
| 332 | {----------------------------------------------------------------------- | 332 | {----------------------------------------------------------------------- |