mirror of https://github.com/voidlizard/hbs2
16 lines
378 B
Haskell
16 lines
378 B
Haskell
|
|
{-# LANGUAGE AllowAmbiguousTypes #-}
|
|
{-# Language UndecidableInstances #-}
|
|
module HBS2.Peer.RefChanNotifyLog where
|
|
|
|
import HBS2.Data.Types.Refs
|
|
import HBS2.Peer.Proto.RefChan
|
|
|
|
type RefChanNotifyLogKey e = SomeRefKey (String, RefChanId e)
|
|
|
|
|
|
makeRefChanNotifyLogKey :: RefChanId e -> RefChanNotifyLogKey e
|
|
makeRefChanNotifyLogKey rc = SomeRefKey ("refchan-notify-log-key", rc)
|
|
|
|
|