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

diff --git a/bittorrent/tests/Network/BitTorrent/Tracker/TestData.hs b/bittorrent/tests/Network/BitTorrent/Tracker/TestData.hs
deleted file mode 100644
index b95e2df4..00000000
--- a/bittorrent/tests/Network/BitTorrent/Tracker/TestData.hs
+++ /dev/null
@@ -1,93 +0,0 @@
-{-# LANGUAGE RecordWildCards #-}
-{-# OPTIONS_GHC -fno-warn-orphans #-}
-module Network.BitTorrent.Tracker.TestData
-       ( TrackerEntry (..)
-       , isUdpTracker
-       , isHttpTracker
-       , trackers
-       , badTracker
-       ) where
-
-import Data.Maybe
-import Data.String
-import Network.URI
-
-import Data.Torrent
-
-
-data TrackerEntry = TrackerEntry
-  { -- | May be used to show tracker name in test suite report.
-    trackerName :: String
-
-    -- | Announce uri of the tracker.
-  , trackerURI  :: URI
-
-    -- | Some trackers abadoned, so don't even try to announce.
-  , tryAnnounce :: Bool
-
-    -- | Some trackers do not support scraping, so we should not even
-    -- try to scrape them.
-  , tryScraping :: Bool
-
-    -- | Some trackers allow
-  , hashList    :: Maybe [InfoHash]
-  }
-
-isUdpTracker :: TrackerEntry -> Bool
-isUdpTracker TrackerEntry {..} = uriScheme trackerURI == "udp:"
-
-isHttpTracker :: TrackerEntry -> Bool
-isHttpTracker TrackerEntry {..} = uriScheme trackerURI == "http:"
-                               || uriScheme trackerURI == "https:"
-
-instance IsString URI where
-  fromString str = fromMaybe err $ parseURI str
-    where
-      err = error $ "fromString: bad URI " ++ show str
-
-trackerEntry :: URI -> TrackerEntry
-trackerEntry uri = TrackerEntry
-  { trackerName = maybe "<unknown>" uriRegName (uriAuthority uri)
-  , trackerURI  = uri
-  , tryAnnounce = False
-  , tryScraping = False
-  , hashList    = Nothing
-  }
-
-announceOnly :: String -> URI -> TrackerEntry
-announceOnly name uri = (trackerEntry uri)
-  { trackerName = name
-  , tryAnnounce = True
-  }
-
-announceScrape :: String -> URI -> TrackerEntry
-announceScrape name uri = (announceOnly name uri)
-  { tryScraping = True
-  }
-
-notWorking :: String -> URI -> TrackerEntry
-notWorking name uri = (trackerEntry uri)
-  { trackerName = name
-  }
-
-trackers :: [TrackerEntry]
-trackers =
-  [ (announceOnly "LinuxTracker"
-    "http://linuxtracker.org:2710/00000000000000000000000000000000/announce")
-    { hashList = Just ["1c82a95b9e02bf3db4183da072ad3ef656aacf0e"] -- debian 7
-    }
-
-  , (announceScrape "Arch" "http://tracker.archlinux.org:6969/announce")
-    { hashList = Just ["bc9ae647a3e6c3636de58535dd3f6360ce9f4621"]
-    }
-
-  , notWorking     "rarbg" "udp://9.rarbg.com:2710/announce"
-
-  , announceScrape "OpenBitTorrent" "udp://tracker.openbittorrent.com:80/announce"
-  , announceScrape "PublicBT"       "udp://tracker.publicbt.com:80/announce"
-  , notWorking     "OpenBitTorrent" "http://tracker.openbittorrent.com:80/announce"
-  , notWorking     "PublicBT"       "http://tracker.publicbt.com:80/announce"
-  ]
-
-badTracker :: TrackerEntry
-badTracker = notWorking "rarbg" "udp://9.rarbg.com:2710/announce"
\ No newline at end of file