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

refactored

This commit is contained in:
Dmitry Zuikov 2024-02-21 06:34:13 +03:00
parent 4db8910554
commit ba25f0c564
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hbs2-peer/app/Brains.hs
View File

@ -720,18 +720,12 @@ newBasicBrains :: forall e m . (Hashable (Peer e), MonadIO m)
-> m (BasicBrains e) -> m (BasicBrains e)
newBasicBrains cfg = liftIO do newBasicBrains cfg = liftIO do
stateDb <-
flip runReaderT cfg (cfgValue @PeerBrainsDBPath @(Maybe String)) stateDbFile <- runReaderT (cfgValue @PeerBrainsDBPath @(Maybe String)) cfg
>>= maybe
( do stateDb <- maybe (peerStateDirDefault <&> (</> "brains.db")) pure stateDbFile
sdir <- peerStateDirDefault
liftIO $ createDirectoryIfMissing True sdir liftIO $ createDirectoryIfMissing True (takeDirectory stateDb)
pure $ sdir </> "brains.db"
)
( \p ->
p <$ do
liftIO $ createDirectoryIfMissing True (takeDirectory p)
)
brains <- runReaderT (cfgValue @PeerBrainsDb @(Maybe String)) cfg brains <- runReaderT (cfgValue @PeerBrainsDb @(Maybe String)) cfg
<&> fromMaybe ":memory:" <&> fromMaybe ":memory:"