From 220b86a81a9bcd857bcd4d2443480e73f35bcff3 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Tue, 26 Nov 2013 06:30:09 +0400 Subject: Fix warnings --- tests/Network/BitTorrent/Core/PeerIdSpec.hs | 1 + tests/Network/BitTorrent/Tracker/MessageSpec.hs | 12 ++++++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/tests/Network/BitTorrent/Core/PeerIdSpec.hs b/tests/Network/BitTorrent/Core/PeerIdSpec.hs index 7ed8a976..7153ef68 100644 --- a/tests/Network/BitTorrent/Core/PeerIdSpec.hs +++ b/tests/Network/BitTorrent/Core/PeerIdSpec.hs @@ -2,6 +2,7 @@ module Network.BitTorrent.Core.PeerIdSpec (spec) where import Control.Applicative import Test.Hspec import Test.QuickCheck +import Test.QuickCheck.Instances import Network.BitTorrent.Core.PeerId 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 import Network.URI import Test.Hspec import Test.QuickCheck -import Network.HTTP.Types.URI +--import Network.HTTP.Types.URI -import Data.Torrent.InfoHashSpec hiding (spec) -import Data.Torrent.ProgressSpec hiding (spec) -import Network.BitTorrent.Core.PeerIdSpec hiding (spec) +import Data.Torrent.InfoHashSpec () +import Data.Torrent.ProgressSpec () +import Network.BitTorrent.Core.PeerIdSpec () import Network.BitTorrent.Tracker.Message -prop_bencode :: Eq a => BEncode a => a -> Bool -prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a +--prop_bencode :: Eq a => BEncode a => a -> Bool +--prop_bencode a = BE.decode (BL.toStrict (BE.encode a)) == return a --prop_urlencode :: Eq a => URLDecoded a => URLEncoded a => a -> Bool --prop_urlencode a = urlDecode (T.pack (urlEncode a)) == a -- cgit v1.2.3