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