diff options
Diffstat (limited to 'kad/src/Network/Kademlia/Persistence.hs')
-rw-r--r-- | kad/src/Network/Kademlia/Persistence.hs | 2 |
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 | ||
17 | saveNodes :: String -> DHT -> IO () | 17 | saveNodes :: String -> DHT -> IO () |
18 | saveNodes netname DHT{dhtBuckets} = do | 18 | saveNodes 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 |