sendACP :: (Binary a, Typeable a) => a -> DNA ()
sendACP a = do
    ACP pid <- getMonitor
    liftP $ send pid a

-- | Put message into log file
sendACP :: (Binary a, Typeable a) => a -> DNA ()
sendACP a = do
    ACP pid <- getMonitor
    liftP $ send pid a

-- | Put message into log file
sendACP a = do
    ACP pid <- getMonitor
    liftP $ send pid a

-- | Put message into log file