fixed DNSCache bug

1 files changed, 2 insertions, 0 deletions

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