mirror of https://github.com/voidlizard/hbs2
19 lines
639 B
Haskell
19 lines
639 B
Haskell
module HBS2.Peer.Proto.RefChan.Adapter where
|
|
|
|
import HBS2.Peer.Proto.RefChan.Types
|
|
import HBS2.Net.Proto.Notify
|
|
-- import HBS2.Peer.Notify
|
|
import HBS2.Data.Types.Refs
|
|
|
|
data RefChanAdapter e m =
|
|
RefChanAdapter
|
|
{ refChanOnHead :: RefChanId e -> RefChanHeadBlockTran e -> m ()
|
|
, refChanSubscribed :: RefChanId e -> m Bool
|
|
, refChanWriteTran :: HashRef -> m ()
|
|
, refChanValidatePropose :: RefChanId e -> HashRef -> m Bool
|
|
, refChanNotifyRely :: RefChanId e -> RefChanNotify e -> m ()
|
|
-- , refChanNotifySink :: SomeNotifySource (RefChanEvents L4Proto)
|
|
}
|
|
|
|
|