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

wip

This commit is contained in:
Dmitry Zuikov 2024-07-29 16:06:05 +03:00
parent dfb9e9ad92
commit dc5827e2b2
1 changed files with 0 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
hbs2-cli/lib/HBS2/CLI/Run/LWWRef.hs
View File

@ -9,10 +9,8 @@ import HBS2.Storage
import HBS2.Peer.CLI.Detect import HBS2.Peer.CLI.Detect
import HBS2.Peer.RPC.Client.Unix import HBS2.Peer.RPC.Client.Unix
import HBS2.Peer.RPC.API.Peer import HBS2.Peer.RPC.API.Peer
import HBS2.Peer.RPC.API.RefLog
import HBS2.Peer.RPC.API.LWWRef import HBS2.Peer.RPC.API.LWWRef
import HBS2.Peer.Proto hiding (request)
import HBS2.Peer.Proto.LWWRef import HBS2.Peer.Proto.LWWRef
import HBS2.Base58 import HBS2.Base58
import HBS2.Net.Auth.Credentials import HBS2.Net.Auth.Credentials
@ -22,16 +20,6 @@ import HBS2.Data.Types.SignedBox
import HBS2.KeyMan.Keys.Direct import HBS2.KeyMan.Keys.Direct
import HBS2.KeyMan.App.Types import HBS2.KeyMan.App.Types
import Codec.Serialise
import Data.Coerce
import Data.Either
import Data.ByteString qualified as BS
import Data.ByteString.Char8 qualified as BS8
import Data.ByteString (ByteString)
import Data.ByteString.Lazy.Char8 qualified as LBS8
import Data.ByteString.Lazy qualified as LBS
import Data.Text.Encoding qualified as TE
import Data.Text qualified as Text
import Control.Monad.Trans.Cont import Control.Monad.Trans.Cont
pattern HashLike:: forall {c} . HashRef -> Syntax c pattern HashLike:: forall {c} . HashRef -> Syntax c
@ -125,22 +113,3 @@ lwwRefEntries = do
_ -> throwIO (BadFormException @C nil) _ -> throwIO (BadFormException @C nil)
-- (sk,pk) <- liftIO $ runKeymanClient do
-- creds <- loadCredentials puk >>= orThrowUser "can't load credentials"
-- pure ( view peerSignSk creds, view peerSignPk creds )
-- seq <- case seq' of
-- Just v -> pure v
-- Nothing -> do
-- let ref = LWWRefKey puk
-- callService @RpcLWWRefGet caller ref >>= \case
-- Left e -> err (viaShow e) >> exitFailure
-- Right Nothing -> err ("not found value for" <+> pretty ref) >> exitFailure
-- Right (Just r) -> pure $ succ (lwwSeq r)
-- let box = makeSignedBox pk sk (LWWRef seq val Nothing)
-- callService @RpcLWWRefUpdate caller box >>= \case
-- Left e -> err (viaShow e) >> exitFailure
-- Right r -> print $ pretty r