@@ -422,6 +422,7 @@ data WhereIsReply = WhereIsReply String (Maybe ProcessId)
422data RegisterReply = RegisterReply String Bool
422data RegisterReply = RegisterReply String Bool
423 deriving (Show, Typeable)
423 deriving (Show, Typeable)
425+-- | Provide information about a running process
425data ProcessInfo = ProcessInfo {
426data ProcessInfo = ProcessInfo {
426 infoNode :: NodeId
427 infoNode :: NodeId
427 , infoRegisteredNames :: [String]
428 , infoRegisteredNames :: [String]