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

wip doc

This commit is contained in:
Dmitry Zuikov 2024-03-16 16:14:54 +03:00
parent c6b90878c3
commit 8d0f1e3591
4 changed files with 1041 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/papers/Makefile
View File

@ -1,4 +1,4 @@
all: hbs2-git-problem hbs2-git-new-repo all: hbs2-git-problem hbs2-git-new-repo hbs2-git-doc
.PHONY: all clean .PHONY: all clean
@ -10,6 +10,8 @@ hbs2-git-problem: hbs2-git-problem.pdf
hbs2-git-new-repo: hbs2-git-new-repo.pdf hbs2-git-new-repo: hbs2-git-new-repo.pdf
hbs2-git-doc: hbs2-git-doc-0.24.1.pdf
clean: clean:
rm -f *.aux *.log *.nav *.out *.snm *.vrb *.toc *.pdf rm -f *.aux *.log *.nav *.out *.snm *.vrb *.toc *.pdf

1026
docs/papers/hbs2-git-doc-0.24.1.tex Normal file
View File

File diff suppressed because it is too large Load Diff

11
hbs2-peer/lib/HBS2/Peer/Proto/LWWRef/Internal.hs
View File

@ -96,13 +96,18 @@ lwwRefProto adapter pkt@(LWWRefProto1 req) = do
Just rv -> do Just rv -> do
blk' <- getBlock sto rv blk' <- getBlock sto rv
maybe1 blk' (forcedUpdateLwwRef sto key bs) $ \blk -> do maybe1 blk' (forcedUpdateLwwRef sto key bs) $ \blk -> do
let seq0 = deserialiseOrFail @(SignedBox (LWWRef e) e) blk
let lww0 = deserialiseOrFail @(SignedBox (LWWRef e) e) blk
& either (const Nothing) Just & either (const Nothing) Just
>>= unboxSignedBox0 >>= unboxSignedBox0
<&> snd <&> snd
<&> lwwSeq
when (Just (lwwSeq lww) > seq0) do let seq0 = lwwSeq <$> lww0
let lwwv0 = lwwValue <$> lww0
when ( Just (lwwSeq lww) > seq0
|| (Just (lwwSeq lww) == seq0 && Just (lwwValue lww) > lwwv0)
) do
forcedUpdateLwwRef sto key (serialise box) forcedUpdateLwwRef sto key (serialise box)
where where

8
nix/peer/flake.lock
View File

@ -295,11 +295,11 @@
"suckless-conf": "suckless-conf_2" "suckless-conf": "suckless-conf_2"
}, },
"locked": { "locked": {
"lastModified": 1710558394, "lastModified": 1710568478,
"narHash": "sha256-Io0xjrddivrVznym5rpvwzO0PjP2++dnNlpXtGPyfU0=", "narHash": "sha256-hzePQ+JY/42lp9qPXU7hEJq6I+TU8nLQmKFvy0wXOpg=",
"ref": "lwwrepo", "ref": "lwwrepo",
"rev": "ce7c1f37c046fa5806613a1d3eb67d4d6b00e84c", "rev": "c6b90878c3485b98220f7d87ad14e047ab7dcf2a",
"revCount": 989, "revCount": 991,
"type": "git", "type": "git",
"url": "http://git.hbs2/BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP" "url": "http://git.hbs2/BTThPdHKF8XnEq4m6wzbKHKA6geLFK4ydYhBXAqBdHSP"
}, },