Remove urlencoded stuff completely

1 files changed, 1 insertions, 13 deletions

diff --git a/tests/Network/BitTorrent/Tracker/MessageSpec.hs b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
index 44dc2c7a..a95cf0d7 100644
--- a/tests/Network/BitTorrent/Tracker/MessageSpec.hs
+++ b/tests/Network/BitTorrent/Tracker/MessageSpec.hs
@@ -40,23 +40,11 @@ instance Arbitrary AnnounceQuery where
     <$> arbitrary <*> arbitrary <*> arbitrary <*> arbitrary
     <*> arbitrary <*> arbitrary <*> arbitrary
 
-baseURI :: URI
-baseURI = fromJust $ parseURI "http://a"
-
-parseUriQuery :: URI -> SimpleQuery
-parseUriQuery = filterMaybes . parseQuery . BC.pack . uriQuery
-  where
-    filterMaybes :: [(a, Maybe b)] -> [(a, b)]
-    filterMaybes = catMaybes . L.map f
-      where
-        f (a, Nothing) = Nothing
-        f (a, Just b ) = Just (a, b)
-
 spec :: Spec
 spec = do
   describe "Announce" $ do
     it "properly url encoded" $ property $ \ q ->
-      parseAnnounceQuery (parseUriQuery (renderAnnounceQuery baseURI q))
+      parseAnnounceQuery (renderAnnounceQuery q)
         `shouldBe` Right q
 
   describe "Scrape" $ do