summaryrefslogtreecommitdiff
path: root/Presence/PeerResolve.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Presence/PeerResolve.hs')
-rw-r--r--Presence/PeerResolve.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Presence/PeerResolve.hs b/Presence/PeerResolve.hs
index 39607ef4..0854b365 100644
--- a/Presence/PeerResolve.hs
+++ b/Presence/PeerResolve.hs
@@ -26,6 +26,7 @@ import ConnectionKey
26import ControlMaybe 26import ControlMaybe
27 27
28{-# NOINLINE global_dns_cache #-} 28{-# NOINLINE global_dns_cache #-}
29global_dns_cache :: DNSCache
29global_dns_cache = unsafePerformIO $ newDNSCache 30global_dns_cache = unsafePerformIO $ newDNSCache
30 31
31resolvePeer :: Text -> IO [SockAddr] 32resolvePeer :: Text -> IO [SockAddr]
@@ -36,4 +37,3 @@ peerKeyToResolvedNames k@(ClientKey { localAddress=addr }) = return []
36peerKeyToResolvedNames k@(PeerKey { callBackAddress=addr }) = do 37peerKeyToResolvedNames k@(PeerKey { callBackAddress=addr }) = do
37 reverseResolve global_dns_cache addr 38 reverseResolve global_dns_cache addr
38 39
39