voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

switched to ncq3

This commit is contained in:
voidlizard 2025-08-22 13:52:39 +03:00
parent 051fe680be
commit d79c7b89e5
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
hbs2-peer/app/PeerMain.hs
View File

@ -31,8 +31,8 @@ import HBS2.Net.Proto.Notify
import HBS2.Peer.Proto.Mailbox import HBS2.Peer.Proto.Mailbox
import HBS2.OrDie import HBS2.OrDie
import HBS2.Storage.Simple import HBS2.Storage.Simple
-- import HBS2.Storage.NCQ3 import HBS2.Storage.NCQ3
import HBS2.Storage.NCQ -- import HBS2.Storage.NCQ
import HBS2.Storage.Operations.Missed import HBS2.Storage.Operations.Missed
import HBS2.Data.Detect import HBS2.Data.Detect
@ -823,13 +823,13 @@ runPeer opts = respawnOnError opts $ flip runContT pure do
-- error "STOP" -- error "STOP"
-- let ncqPath = coerce pref </> "ncq3" -- let ncqPath = coerce pref </> "ncq3"
let ncqPath = coerce pref </> "ncq" let ncqPath = coerce pref </> "ncq3"
debug $ "storage prefix:" <+> pretty ncqPath debug $ "storage prefix:" <+> pretty ncqPath
-- s <- ContT $ ncqWithStorage ncqPath s <- ContT $ ncqWithStorage ncqPath
-- s <- lift $ ncqStorageOpen ncqPath id -- s <- lift $ ncqStorageOpen ncqPath id
s <- lift $ ncqStorageOpen ncqPath -- s <- lift $ ncqStorageOpen ncqPath
-- simpleStorageInit @HbSync (Just pref) -- simpleStorageInit @HbSync (Just pref)
let blk = liftIO . hasBlock s let blk = liftIO . hasBlock s
@ -1369,17 +1369,17 @@ runPeer opts = respawnOnError opts $ flip runContT pure do
monkeys <- liftIO $ async $ runMonkeys rpcctx monkeys <- liftIO $ async $ runMonkeys rpcctx
void $ waitAnyCancel $ w : [ loop void $ waitAnyCancel $ [ loop
, m1 , m1
, rpcProto , rpcProto
-- , probesMenv -- , probesMenv
-- , ann -- , ann
, probesPenv , probesPenv
, proxyThread , proxyThread
, brainsThread , brainsThread
, messWatchDog , messWatchDog
, monkeys , monkeys
] ]
liftIO $ ncqStorageStop s liftIO $ ncqStorageStop s
pause @'Seconds 1 pause @'Seconds 1
@ -1400,7 +1400,7 @@ checkMigration prefix = flip runContT pure $ callCC \exit -> do
already <- Sy.doesDirectoryExist migration already <- Sy.doesDirectoryExist migration
when (L.null blocks && not already) do when (L.null blocks && not already) do
-- checkNCQ1 checkNCQ1
exit () exit ()
let reason = if already then let reason = if already then