{-# OPTIONS_GHC -fno-warn-orphans #-}
{-# Language UndecidableInstances #-}
module RPC2.Mailbox where

import HBS2.Peer.Prelude

import HBS2.Base58
import HBS2.Actors.Peer
import HBS2.Data.Types.SignedBox
import HBS2.Peer.Proto
import HBS2.Peer.Proto.Mailbox
import HBS2.Storage
import HBS2.Net.Messaging.Unix
import HBS2.Misc.PrettyStuff

import HBS2.Peer.RPC.API.Peer

import PeerTypes

import HBS2.Peer.RPC.Internal.Types
import HBS2.Peer.RPC.API.Mailbox

import Lens.Micro.Platform
import Control.Monad.Reader
import Control.Monad.Trans.Maybe

type ForMailboxRPC m = (MonadIO m, HasRpcContext MailboxAPI RPC2Context m)


instance (MonadIO m) => HandleMethod m RpcMailboxPoke where

  handleMethod key = do
    debug "rpc.RpcMailboxPoke"

instance Monad m => HasRpcContext MailboxAPI RPC2Context (ResponseM UNIX (ReaderT RPC2Context m)) where
  getRpcContext = lift ask

instance (ForMailboxRPC m) => HandleMethod m RpcMailboxCreate where

  handleMethod (puk, t) = do
    AnyMailboxService mbs <- getRpcContext @MailboxAPI @RPC2Context <&> rpcMailboxService
    void $ mailboxCreate @HBS2Basic mbs t puk
    debug $ "rpc.RpcMailboxCreate" <+> pretty (AsBase58 puk) <+> pretty t