anchor.diff:          type = types.attrsOf types.str;
           default = {};
           description = "Extra options passed to device flag.";
  +      };
  +
  +      name = mkOption {
  +        type = types.nullOr types.str;
  +        default = null;
  +        description =
  +          "A name for the drive. Must be unique in the drives list. Not passed to qemu.";
         };
   
       };
  
positive.code:         mkOption {
            type = types.listOf (types.submodule driveOpts);
            description = "Drives passed to qemu.";
          };
  
        diskInterface =
  
negative.code:       "/dev/sd${letter}"
      else
        "/dev/vd${letter}";
  
    lookupDriveDeviceName = driveName: driveList:
      (findSingle (drive: drive.name == driveName)
        (throw "Drive ${driveName} not found")
        (throw "Multiple drives named ${driveName}") driveList).device;
  
    addDeviceNames =
      imap1 (idx: drive: drive // { device = driveDeviceName idx; });
  
    # Shell script to start the VM.
    startVM =
  