module Control.Distributed.Raketka.Type.Message where
import Control.Distributed.Process hiding (Message)
import GHC.Generics (Generic)
import Data.Binary
import Data.Typeable
import Text.Printf
data Message content = Info Ping ProcessId
| Message content
deriving (Typeable, Generic, Show)
data Ping = Ping | Pong deriving (Eq, Show, Generic)
instance Binary content => Binary (Message content)
instance Binary Ping
instance PrintfArg ProcessId where
formatArg pid0 = \(f1::FieldFormat) ->
(show pid0 ++)