From de4c83da9d46c143ca5f7a1790f5ad9b7f6926b2 Mon Sep 17 00:00:00 2001
From: Dmitry Zuikov <dzuikov@gmail.com>
Date: Mon, 26 Aug 2024 09:37:27 +0300
Subject: [PATCH] wip, quick and dirty  bugfix

---
 hbs2-sync/src/HBS2/Sync/State.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/hbs2-sync/src/HBS2/Sync/State.hs b/hbs2-sync/src/HBS2/Sync/State.hs
index faab4dda..b416f542 100644
--- a/hbs2-sync/src/HBS2/Sync/State.hs
+++ b/hbs2-sync/src/HBS2/Sync/State.hs
@@ -261,6 +261,10 @@ getStateFromRefChan rchan = do
 
   db <- newDBPipeEnv dbPipeOptsDef (statePath </> "state.db")
 
+  here <- doesDirectoryExist statePath
+
+  unless here $ mkdir statePath
+
   flip runContT pure do
 
     void $ ContT $ bracket (async (runPipe db)) cancel
@@ -278,7 +282,7 @@ getStateFromRefChan rchan = do
 
     let members = view refChanHeadReaders rch & HS.toList
 
-    krl <- liftIO $ runKeymanClient $ loadKeyRingEntries members
+    krl <- liftIO $ runKeymanClientRO $ loadKeyRingEntries members
                 <&> L.sortOn (Down . fst)
                 <&> fmap snd