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

wip

This commit is contained in:
voidlizard 2025-08-23 19:38:29 +03:00
parent e4a7e56c7f
commit e36cb783c4
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
hbs2-peer/app/Migrate.hs
View File

@ -58,14 +58,11 @@ migrate syn = flip runContT pure $ callCC \exit -> do
-- KISS. just import block/remove block. -- KISS. just import block/remove block.
-- let the user backup it. -- let the user backup it.
-- --
--
--
conf@(PeerConfig se) <- peerConfigRead (headMay [p | ListVal [StringLike "-c", StringLike p] <- opts] ) conf@(PeerConfig se) <- peerConfigRead (headMay [p | ListVal [StringLike "-c", StringLike p] <- opts] )
brains <- newBasicBrains conf brains <- newBasicBrains conf
bProbe <- newSimpleProbe "Brains"
brainsThread <- ContT $ withAsync $ runBasicBrains conf brains brainsThread <- ContT $ withAsync $ runBasicBrains conf brains
xdg <- liftIO $ getXdgDirectory XdgData defStorePath <&> fromString xdg <- liftIO $ getXdgDirectory XdgData defStorePath <&> fromString