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

wip, quick and dirty bugfix

This commit is contained in:
Dmitry Zuikov 2024-08-26 09:37:27 +03:00
parent 3638f45fb8
commit de4c83da9d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hbs2-sync/src/HBS2/Sync/State.hs
View File

@ -261,6 +261,10 @@ getStateFromRefChan rchan = do
db <- newDBPipeEnv dbPipeOptsDef (statePath </> "state.db") db <- newDBPipeEnv dbPipeOptsDef (statePath </> "state.db")
here <- doesDirectoryExist statePath
unless here $ mkdir statePath
flip runContT pure do flip runContT pure do
void $ ContT $ bracket (async (runPipe db)) cancel void $ ContT $ bracket (async (runPipe db)) cancel
@ -278,7 +282,7 @@ getStateFromRefChan rchan = do
let members = view refChanHeadReaders rch & HS.toList let members = view refChanHeadReaders rch & HS.toList
krl <- liftIO $ runKeymanClient $ loadKeyRingEntries members krl <- liftIO $ runKeymanClientRO $ loadKeyRingEntries members
<&> L.sortOn (Down . fst) <&> L.sortOn (Down . fst)
<&> fmap snd <&> fmap snd