1 files changed, 2 insertions, 2 deletions

diff --git a/Kademlia.hs b/Kademlia.hs
index 017209a7..f256366f 100644
--- a/Kademlia.hs
+++ b/Kademlia.hs
@@ -8,7 +8,7 @@ module Kademlia where
 
 import Data.Function
 import Data.Maybe
-import qualified Data.Set    as Set
+import qualified Data.Set as Set
 import Data.Time.Clock       (getCurrentTime)
 import Data.Time.Clock.POSIX (getPOSIXTime, utcTimeToPOSIXSeconds)
 import Network.DHT.Routing   as R
@@ -286,7 +286,7 @@ refreshBucket sch var n = do
             tbl <- readTVar var
             let counts = R.shape tbl
             when (n == R.bucketNumber (searchSpace sch) (kademliaLocation (searchSpace sch) found_node) tbl)
-                 $ modifyTVar resultCounter (Set.insert found_node)
+                 $ modifyTVar' resultCounter (Set.insert found_node)
             resultCount <- readTVar resultCounter
             saveit $ case drop (n - 1) counts of
                 (cnt:_) | cnt < fullcount            -> True