mirror of https://github.com/voidlizard/hbs2
23 lines
648 B
Haskell
23 lines
648 B
Haskell
{-# Language FunctionalDependencies #-}
|
|
{-# Language UndecidableInstances #-}
|
|
{-# Language AllowAmbiguousTypes #-}
|
|
module HBS2.Net.Messaging where
|
|
|
|
import HBS2.Net.Proto
|
|
|
|
import Control.Monad.IO.Class
|
|
|
|
newtype From a = From (Peer a)
|
|
deriving instance Show (Peer a) => Show (From a)
|
|
|
|
newtype To a = To (Peer a)
|
|
|
|
-- class Messaging bus e msg => MessagingHasPeer e where
|
|
|
|
-- class HasPeer proto => Messaging bus proto msg | bus -> proto, bus -> msg where
|
|
class HasPeer proto => Messaging bus proto msg where
|
|
|
|
sendTo :: MonadIO m => bus -> To proto -> From proto -> msg -> m ()
|
|
receive :: MonadIO m => bus -> To proto -> m [(From proto, msg)]
|
|
|