wip, oopsie fixed

docs/papers/hbs2-git-doc-0.24.1.tex

@@ -1,6 +1,7 @@
 \documentclass[11pt,a4paper]{article}
 
 \usepackage{polyglossia}
+\usepackage{fontawesome5}
 \usepackage{xltxtra}
 \usepackage[margin=2cm,a4paper]{geometry}% http://ctan.org/pkg/geometry
 \usepackage{pdfpages}
@@ -29,7 +30,6 @@
 \usepackage{marvosym}
 \usepackage{pifont}
 \usepackage{fontspec}
-\usepackage{fontawesome5}
 \usepackage{listings}
 \usepackage{verbatim}
 \usepackage{xcolor}
@@ -260,6 +260,15 @@ broadcast сообщений, DNS бутстрапа и списка извес
        , minimum height=3.6cm
        , anchor=north west] (tools) {};
 
+  \node [ box
+        , below left = 1cm of tools.south west
+        , text width=6em
+        , align=center
+        , minimum height=2em ] (cfg)
+    { \large\faFile[regular] {\scriptsize .hbs2-git/config} };
+
+  \draw [-] (tools) -- (cfg);
+
   \node[box, minimum height=1cm, below=2cm of git-hbs2.south, anchor=north] (git) {git};
 
   \node[db,below=1.6cm of git.north,anchor=north] (repo) {git repo};
@@ -352,6 +361,15 @@ export для первоначальной  инициализации \textit{
 
 Хранилище объектов HBS2 (меркл-деревья, блоки, ссылки, ...)
 
+\subsection*{State}
+
+State --- это состояние репозитория. Технически, это БД sqlite,
+которая находится в \texttt{.hbs2-git/state.db} и содержит данные,
+необходимые для ускорения работы: индексы и кэши.
+
+\texttt{state.db} может быть удалён,  при последующих запусках
+hbs2-git произойдет переиндексация и он будет создан вновь,
+а операция займет больше времени, чем обычно.
 
 
 \section{Установка}
@@ -722,8 +740,8 @@ hbs2 sigil check my.sigil
 
 \end{verbatim}
 
-Это похоже на сертификат, но специально названо иначе, что бы не путать
-с какими-либо распространенными моделями сертификатов.
+Это похоже на сертификат и, в некотором роде, им является но специально названо иначе, что бы не
+путать с сертификатами X.509 или какими-то еще.
 
 Создать <<cигил>> можно при помощи команды
 

hbs2-peer/app/Brains.hs

@@ -273,7 +273,9 @@ instance ( Hashable (Peer e)
               |] ( show $ pretty (AsBase58 ref), tp )
                 <&> isJust . listToMaybe
 
+      when r do
         liftIO $ atomically $ modifyTVar (_brainsPolled brains) (HashSet.insert (ref,tp))
+
       pure r
 
   setSeen brains w ts = do

hbs2-peer/app/RefLog.hs

@@ -81,7 +81,7 @@ doOnRefLogRequest brains sto (_,pk) = runMaybeT do
   isPolledRef @e brains "reflog" pk >>= guard
   ref <- liftIO $ getRef sto (RefLogKey @s pk)
   when (isNothing ref) do
-    warn $ "missed reflog value" <+> pretty ref
+    warn $ "missed reflog value" <+> pretty (RefLogKey @s pk)
   toMPlus ref
 
 data RefLogWorkerAdapter e =

nix/peer/flake.lock

@@ -295,11 +295,11 @@
         "suckless-conf": "suckless-conf_2"
       },
       "locked": {
-        "lastModified": 1710568478,
-        "narHash": "sha256-hzePQ+JY/42lp9qPXU7hEJq6I+TU8nLQmKFvy0wXOpg=",
+        "lastModified": 1710642921,
+        "narHash": "sha256-sI6oirrSetQs/1zjTBlwpUtzYwrNMjjZQs274H59/hA=",
         "ref": "lwwrepo",
-        "rev": "c6b90878c3485b98220f7d87ad14e047ab7dcf2a",
-        "revCount": 991,
+        "rev": "9546a440ea74f2664af9fe1255e88a7531065d1c",
+        "revCount": 1001,
         "type": "git",
         "url": "http://git.hbs2/BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP"
       },