wip

hbs2-cli/lib/HBS2/CLI/Run/LWWRef.hs

@@ -9,10 +9,8 @@ import HBS2.Storage
 import HBS2.Peer.CLI.Detect
 import HBS2.Peer.RPC.Client.Unix
 import HBS2.Peer.RPC.API.Peer
-import HBS2.Peer.RPC.API.RefLog
 import HBS2.Peer.RPC.API.LWWRef
 
-import HBS2.Peer.Proto hiding (request)
 import HBS2.Peer.Proto.LWWRef
 import HBS2.Base58
 import HBS2.Net.Auth.Credentials
@@ -22,16 +20,6 @@ import HBS2.Data.Types.SignedBox
 import HBS2.KeyMan.Keys.Direct
 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
 
 pattern HashLike:: forall {c} . HashRef -> Syntax c
@@ -125,22 +113,3 @@ lwwRefEntries = do
 
     _ -> 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
-
-