{-# Language AllowAmbiguousTypes #-}
module MailboxProtoWorker ( mailboxProtoWorker
                          , createMailboxProtoWorker
                          , MailboxProtoWorker
                          , IsMailboxProtoAdapter
                          ) where

import HBS2.Prelude.Plated
import HBS2.Actors.Peer
import HBS2.Data.Types.Refs
import HBS2.Net.Proto
import HBS2.Base58
import HBS2.Storage
import HBS2.Storage.Operations.Missed
import HBS2.Hash
import HBS2.Peer.Proto
import HBS2.Peer.Proto.Mailbox
import HBS2.Net.Auth.Credentials

import HBS2.Misc.PrettyStuff

import Brains
import PeerConfig
import PeerTypes

import Control.Monad
import UnliftIO
import Lens.Micro.Platform

{- HLINT ignore "Functor law" -}

data MailboxProtoWorker e =
  MailboxProtoWorker
  {
  }

instance IsMailboxProtoAdapter e (MailboxProtoWorker e)

createMailboxProtoWorker :: forall e m . MonadIO m => m (MailboxProtoWorker e)
createMailboxProtoWorker = do
  pure MailboxProtoWorker

mailboxProtoWorker :: forall e s m . ( MonadIO m
                                     , MonadUnliftIO m
                                     , MyPeer e
                                     , HasStorage m
                                     , Sessions e (KnownPeer e) m
                                     , HasGossip e (MailBoxProto s e) m
                                     , Signatures s
                                     , s ~ Encryption e
                                     , IsRefPubKey s
                                     )
             => MailboxProtoWorker e
             -> m ()

mailboxProtoWorker me = do
  forever do
    pause @'Seconds 10
    debug $ "I'm" <+> yellow "mailboxProtoWorker"

--    let listRefs = listPolledRefs @e brains (Just "lwwref")
--                    <&> fmap (\(a,_,b) -> (a,b))
--                    <&> fmap (over _2 ( (*60) . fromIntegral) )

--    polling (Polling 5 5) listRefs $ \ref -> do
--     debug $ yellow "POLLING LWWREF" <+> pretty (AsBase58 ref)
--     gossip (LWWRefProto1 @e (LWWProtoGet (LWWRefKey ref)))