unitGetName :: (WorldObject) -> String