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
+