mirror of https://github.com/voidlizard/hbs2
39 lines
1.1 KiB
Haskell
39 lines
1.1 KiB
Haskell
module HBS2.Peer.RPC.API.LWWRef where
|
|
|
|
import HBS2.Peer.Prelude
|
|
import HBS2.Peer.Proto.LWWRef
|
|
import HBS2.Data.Types.SignedBox
|
|
import HBS2.Net.Messaging.Unix
|
|
import HBS2.Net.Proto.Service
|
|
|
|
import Data.ByteString.Lazy (ByteString)
|
|
import Codec.Serialise
|
|
|
|
data RpcLWWRefGet
|
|
data RpcLWWRefUpdate
|
|
data RpcLWWRefFetch
|
|
|
|
type LWWRefAPI = '[ RpcLWWRefGet -- may be done via storage
|
|
, RpcLWWRefUpdate --
|
|
, RpcLWWRefFetch --
|
|
]
|
|
|
|
instance HasProtocol UNIX (ServiceProto LWWRefAPI UNIX) where
|
|
type instance ProtocolId (ServiceProto LWWRefAPI UNIX) = 16267229472009458342
|
|
type instance Encoded UNIX = ByteString
|
|
decode = either (const Nothing) Just . deserialiseOrFail
|
|
encode = serialise
|
|
|
|
type instance Input RpcLWWRefGet = LWWRefKey 'HBS2Basic
|
|
type instance Output RpcLWWRefGet = Maybe (LWWRef 'HBS2Basic)
|
|
|
|
type instance Input RpcLWWRefFetch = LWWRefKey 'HBS2Basic
|
|
type instance Output RpcLWWRefFetch = ()
|
|
|
|
type instance Input RpcLWWRefUpdate = SignedBox (LWWRef 'HBS2Basic) 'HBS2Basic
|
|
type instance Output RpcLWWRefUpdate = ()
|
|
|
|
|
|
|
|
|