fn format_dirty_reason( reason: &DirtyReason, units: &HashMap<UnitIndex, UnitInfo>, ws_root: &Path, ) -> String