diff options
Diffstat (limited to 'Presence/PeerResolve.hs')
-rw-r--r-- | Presence/PeerResolve.hs | 2 |
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 | |||
26 | import ControlMaybe | 26 | import ControlMaybe |
27 | 27 | ||
28 | {-# NOINLINE global_dns_cache #-} | 28 | {-# NOINLINE global_dns_cache #-} |
29 | global_dns_cache :: DNSCache | ||
29 | global_dns_cache = unsafePerformIO $ newDNSCache | 30 | global_dns_cache = unsafePerformIO $ newDNSCache |
30 | 31 | ||
31 | resolvePeer :: Text -> IO [SockAddr] | 32 | resolvePeer :: Text -> IO [SockAddr] |
@@ -36,4 +37,3 @@ peerKeyToResolvedNames k@(ClientKey { localAddress=addr }) = return [] | |||
36 | peerKeyToResolvedNames k@(PeerKey { callBackAddress=addr }) = do | 37 | peerKeyToResolvedNames k@(PeerKey { callBackAddress=addr }) = do |
37 | reverseResolve global_dns_cache addr | 38 | reverseResolve global_dns_cache addr |
38 | 39 | ||
39 | |||