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, 27 insertions, 0 deletions

diff --git a/dht/Presence/PeerResolve.hs b/dht/Presence/PeerResolve.hs
new file mode 100644
index 00000000..62becfe1
--- /dev/null
+++ b/dht/Presence/PeerResolve.hs
@@ -0,0 +1,27 @@
+module PeerResolve
+    ( peerKeyToResolvedNames
+    , resolvePeer
+    , parseAddress
+    , unsafeParseAddress
+    , strip_brackets
+    , withPort
+    ) where
+
+import Data.Text       ( Text )
+import Network.Socket  ( SockAddr(..) )
+import System.IO.Unsafe
+
+import DNSCache
+import ConnectionKey
+
+{-# NOINLINE global_dns_cache #-}
+global_dns_cache :: DNSCache
+global_dns_cache = unsafePerformIO $ newDNSCache
+
+resolvePeer :: Text -> IO [PeerAddress]
+resolvePeer addrtext = map PeerAddress <$> forwardResolve global_dns_cache addrtext
+
+peerKeyToResolvedNames :: PeerAddress -> IO [Text]
+peerKeyToResolvedNames (PeerAddress addr)
+    = reverseResolve global_dns_cache addr
+