diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-26 06:30:09 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-11-26 06:30:09 +0400 |
| commit | 220b86a81a9bcd857bcd4d2443480e73f35bcff3 (patch) | |
| tree | 5321efd8d794ce63c23b862b252393bee7b912b2 /tests/Network/BitTorrent/Tracker | |
| parent | 8faf05f27f955ce3633ede220ac8da97488cd229 (diff) | |
Fix warnings
Diffstat (limited to 'tests/Network/BitTorrent/Tracker')
| -rw-r--r-- | tests/Network/BitTorrent/Tracker/MessageSpec.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs index 62b4ab04..99518067 100644 --- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs +++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs | |||
| @@ -10,17 +10,17 @@ import Network | |||
| 10 | import Network.URI | 10 | import Network.URI |
| 11 | import Test.Hspec | 11 | import Test.Hspec |
| 12 | import Test.QuickCheck | 12 | import Test.QuickCheck |
| 13 | import Network.HTTP.Types.URI | 13 | --import Network.HTTP.Types.URI |
| 14 | 14 | ||
| 15 | import Data.Torrent.InfoHashSpec hiding (spec) | 15 | import Data.Torrent.InfoHashSpec () |
| 16 | import Data.Torrent.ProgressSpec hiding (spec) | 16 | import Data.Torrent.ProgressSpec () |
| 17 | import Network.BitTorrent.Core.PeerIdSpec hiding (spec) | 17 | import Network.BitTorrent.Core.PeerIdSpec () |
| 18 | 18 | ||
| 19 | import Network.BitTorrent.Tracker.Message | 19 | import Network.BitTorrent.Tracker.Message |
| 20 | 20 | ||
| 21 | 21 | ||
| 22 | prop_bencode :: Eq a => BEncode a => a -> Bool | 22 | --prop_bencode :: Eq a => BEncode a => a -> Bool |
| 23 | prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a | 23 | --prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a |
| 24 | 24 | ||
| 25 | --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool | 25 | --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool |
| 26 | --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a | 26 | --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a |