replySpec :: forall r s.
             Serializable r
          => r -> s -> Process (ProcessReply r s)
replySpec msg st = return (ReplyMsg msg st)
replySpec :: forall r s.
             Serializable r
          => r -> s -> Process (ProcessReply r s)
replySpec msg st = return (ReplyMsg msg st)
replySpec msg st = return (ReplyMsg msg st)