Factor out some new libraries

	word64-map:
		Data.Word64Map
	network-addr:
		Network.Address
	tox-crypto:
		Crypto.Tox
	lifted-concurrent:
		Control.Concurrent.Lifted.Instrument
		Control.Concurrent.Async.Lifted.Instrument
	psq-wrap:
		Data.Wrapper.PSQInt
		Data.Wrapper.PSQ
	minmax-psq:
		Data.MinMaxPSQ
        tasks:
                Control.Concurrent.Tasks
	kad:
		Network.Kademlia
		Network.Kademlia.Bootstrap
		Network.Kademlia.Routing
		Network.Kademlia.CommonAPI
		Network.Kademlia.Persistence
		Network.Kademlia.Search

1 files changed, 0 insertions, 79 deletions

diff --git a/bittorrent/tests/Network/BitTorrent/Tracker/RPCSpec.hs b/bittorrent/tests/Network/BitTorrent/Tracker/RPCSpec.hs
deleted file mode 100644
index dfc13a1e..00000000
--- a/bittorrent/tests/Network/BitTorrent/Tracker/RPCSpec.hs
+++ /dev/null
@@ -1,79 +0,0 @@
-{-# LANGUAGE RecordWildCards #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-module Network.BitTorrent.Tracker.RPCSpec (spec) where
-import Control.Applicative
-import Control.Monad
-import Data.Default
-import Data.List as L
-import Test.Hspec
-import Test.QuickCheck
-
-import Network.BitTorrent.Tracker.RPC as RPC
-
-import           Network.BitTorrent.Tracker.TestData
-import           Network.BitTorrent.Tracker.MessageSpec hiding (spec)
-import qualified Network.BitTorrent.Tracker.RPC.UDPSpec as UDP (rpcOpts)
-
-
-instance Arbitrary SAnnounceQuery where
-  arbitrary = SAnnounceQuery <$> arbitrary <*> arbitrary
-                             <*> arbitrary <*> arbitrary
-
-rpcOpts :: Options
-rpcOpts = def
-  { optUdpRPC = UDP.rpcOpts
-  }
-
-matchUnrecognizedScheme :: String -> RpcException -> Bool
-matchUnrecognizedScheme x (UnrecognizedScheme scheme) = x == scheme
-matchUnrecognizedScheme _  _                          = False
-
-spec :: Spec
-spec = parallel $ do
-  describe "Manager" $ do
-    describe "newManager" $ do
-      it "" $ pending
-
-    describe "closeManager" $ do
-      it "" $ pending
-
-    describe "withManager" $ do
-      it "" $ pending
-
-  describe "RPC" $ do
-    describe "announce" $ do
-      it "must fail on bad uri scheme" $ do
-        withManager rpcOpts def $ \ mgr -> do
-          q    <- arbitrarySample
-          announce mgr "magnet://foo.bar" q
-            `shouldThrow` matchUnrecognizedScheme "magnet:"
-
-    describe "scrape" $ do
-      it "must fail on bad uri scheme" $ do
-        withManager rpcOpts def $ \ mgr -> do
-          scrape mgr "magnet://foo.bar" []
-            `shouldThrow` matchUnrecognizedScheme "magnet:"
-
-    forM_ trackers $ \ TrackerEntry {..} ->
-      context trackerName $ do
-
-        describe "announce" $ do
-          if tryAnnounce then do
-            it "have valid response" $ do
-              withManager rpcOpts def $ \ mgr -> do
-                q    <- arbitrarySample
-                _    <- announce mgr trackerURI q
-                return ()
-          else do
-            it "should throw exception" $ do
-              pending
-
-        describe "scrape" $ do
-          if tryScraping then do
-            it "have valid response" $ do
-              withManager rpcOpts def $ \ mgr -> do
-                xs <- scrape mgr trackerURI [def]
-                L.length xs `shouldSatisfy` (>= 1)
-          else do
-            it "should throw exception" $ do
-              pending