evalClosure :: (Serializable a, Serializable b)
            => Closure (Actor a b)
            -> a
            -> DNA b
evalClosure clos a = do
    logMessage "executing: evalClosure"
    Actor act <- liftP $ unClosure clos
    act a


-- | Start single actor
evalClosure :: (Serializable a, Serializable b)
            => Closure (Actor a b)
            -> a
            -> DNA b
evalClosure clos a = do
    logMessage "executing: evalClosure"
    Actor act <- liftP $ unClosure clos
    act a


-- | Start single actor
evalClosure clos a = do
    logMessage "executing: evalClosure"
    Actor act <- liftP $ unClosure clos
    act a


-- | Start single actor