summaryrefslogtreecommitdiff
path: root/kad/src/Network/Kademlia/Persistence.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kad/src/Network/Kademlia/Persistence.hs')
-rw-r--r--kad/src/Network/Kademlia/Persistence.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/kad/src/Network/Kademlia/Persistence.hs b/kad/src/Network/Kademlia/Persistence.hs
index 32ec169d..f89287fe 100644
--- a/kad/src/Network/Kademlia/Persistence.hs
+++ b/kad/src/Network/Kademlia/Persistence.hs
@@ -16,7 +16,7 @@ import System.IO.Error
16 16
17saveNodes :: String -> DHT -> IO () 17saveNodes :: String -> DHT -> IO ()
18saveNodes netname DHT{dhtBuckets} = do 18saveNodes netname DHT{dhtBuckets} = do
19 bkts <- atomically $ readTVar dhtBuckets 19 bkts <- atomically $ readTVar (refreshBuckets dhtBuckets)
20 let ns = map fst $ concat $ R.toList bkts 20 let ns = map fst $ concat $ R.toList bkts
21 bs = J.encode ns 21 bs = J.encode ns
22 fname = nodesFileName netname 22 fname = nodesFileName netname