1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/BitTorrent/DHT/ContactInfo.hs b/src/Network/BitTorrent/DHT/ContactInfo.hs
index 9c336f93..89c2ec17 100644
--- a/src/Network/BitTorrent/DHT/ContactInfo.hs
+++ b/src/Network/BitTorrent/DHT/ContactInfo.hs
@@ -219,7 +219,7 @@ freshPeers ih tm (PeerStore m) = fromMaybe ([],PeerStore m) $ do
                     _         -> peers swarm
         ps = L.map (key . fst) ps0
         m' = HM.insert ih swarm { peers = L.foldl' (\q p -> PSQ.insert p tm q) peers' ps } m
-    return $! (ps,PeerStore m')
+    return $! m' `seq` (ps,PeerStore m')
 
 incomp :: (x -> Maybe (r,x)) -> x -> Maybe ((r,x),x)
 incomp !f !x = do