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, 35 deletions

diff --git a/bittorrent/tests/Network/BitTorrent/Exchange/BlockSpec.hs b/bittorrent/tests/Network/BitTorrent/Exchange/BlockSpec.hs
deleted file mode 100644
index 2dc8e0b8..00000000
--- a/bittorrent/tests/Network/BitTorrent/Exchange/BlockSpec.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-module Network.BitTorrent.Exchange.BlockSpec (spec) where
-import Control.Applicative
-import Control.Exception
-import Data.Maybe
-import Test.Hspec
-import Test.QuickCheck
-import Test.QuickCheck.Instances ()
-
-import Network.BitTorrent.Exchange.Block as Block
-
-
-instance Arbitrary a => Arbitrary (Block a) where
-  arbitrary = Block <$> arbitrary <*> arbitrary <*> arbitrary
-
-instance Arbitrary BlockIx where
-  arbitrary = BlockIx <$> arbitrary <*> arbitrary <*> arbitrary
-
-instance Arbitrary Bucket where
-  arbitrary = do
-    s      <- arbitrary `suchThat` (> 0)
-    chunks <- arbitrary
-    return $ Block.fromList s chunks
-
-isSomeException :: SomeException -> Bool
-isSomeException = const True
-
-spec :: Spec
-spec = do
-  describe "empty" $ do
-    it "should fail on bad size" $ do
-      evaluate (Block.empty (-1)) `shouldThrow` isSomeException
-
-  describe "toPiece" $ do
-    it "render to piece when it is full" $ property $ \ bkt ->
-      full bkt == isJust (toPiece bkt)
\ No newline at end of file