From e3ca24c0fd13547b978513a3a434463adbaf71f9 Mon Sep 17 00:00:00 2001
From: joe <joe@bzcan7s7awrmjbam.onion>
Date: Tue, 11 Mar 2014 04:36:34 -0400
Subject: fixed DNSCache bug

---
 Presence/DNSCache.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Presence')

diff --git a/Presence/DNSCache.hs b/Presence/DNSCache.hs
index 854aa6c3..d6d7ce2f 100644
--- a/Presence/DNSCache.hs
+++ b/Presence/DNSCache.hs
@@ -146,6 +146,7 @@ rawReverseResolve dns fail timeout addr = do
 
 expiredReverse dns addr = do
     utc <- getCurrentTime
+    addr <- return $ addr `withPort` 0
     es <- atomically $ do
         r <- readTVar $ rcache dns
         let ns = maybe [] id $ Map.lookup addr r
@@ -164,6 +165,7 @@ expiredReverse dns addr = do
 
 cachedReverse dns addr = do
     utc <- getCurrentTime
+    addr <- return $ addr `withPort` 0
     atomically $ do
         r <- readTVar (rcache dns)
         let ns = maybe [] id $ Map.lookup addr r
-- 
cgit v1.2.3