Function modifySingle

packages/cli/src/internal/options.ts:1077–1116

(self: Instruction, f: (single: Single) => Single)

}

const modifySingle = (self: Instruction, f: (single: Single) => Single): Options.Options<any> => {
  switch (self._tag) {
    case "Empty": {
      return none
    }
    case "Single": {
      return f(self)
    }
    case "KeyValueMap": {
      return makeKeyValueMap(f(self.argumentOption))
    }
    case "Map": {
      return makeMap(modifySingle(self.options as Instruction, f), self.f)
    }
    case "Both": {
      return makeBoth(
        modifySingle(self.left as Instruction, f),
        modifySingle(self.right as Instruction, f)
      )
    }
    case "OrElse": {
      return makeOrElse(
        modifySingle(self.left as Instruction, f),
        modifySingle(self.right as Instruction, f)
      )
    }
    case "Variadic": {
      return makeVariadic(f(self.argumentOption), self.min, self.max)
    }
    case "WithDefault": {
      return makeWithDefault(modifySingle(self.options as Instruction, f), self.fallback)
    }
    case "WithFallback": {
      return makeWithFallback(
        modifySingle(self.options as Instruction, f),
        self.effect
      )
    }
  }
}

/** @internal */
export const getNames = (self: Instruction): Array<string> => {