/** * @since 2.0.0 */ import * as Equal from "../Equal.ts" import { format } from "../Formatter.ts" import * as Hash from "../Hash.ts" import { toJson } from "../Inspectable.ts" import type * as Option from "../Option.ts" import { hasProperty } from "../Predicate.ts" import { SingleShotGen } from "../Utils.ts" import { PipeInspectableProto } from "./core.ts" const TypeId = "~effect/data/Option" const CommonProto = { [TypeId]: { _A: (_: never) => _ }, ...PipeInspectableProto, [Symbol.iterator]() { return new SingleShotGen(this) } } const SomeProto = Object.assign(Object.create(CommonProto), { _tag: "Some", _op: "Some", [Equal.symbol](this: Option.Some, that: unknown): boolean { return ( isOption(that) && isSome(that) && Equal.equals(this.value, that.value) ) }, [Hash.symbol](this: Option.Some) { return Hash.combine(Hash.hash(this._tag))(Hash.hash(this.value)) }, toString(this: Option.Some) { return `some(${format(this.value)})` }, toJSON(this: Option.Some) { return { _id: "Option", _tag: this._tag, value: toJson(this.value) } } }) Object.defineProperty(SomeProto, "valueOrUndefined", { get() { return this.value } }) const NoneHash = Hash.hash("None") const NoneProto = Object.assign(Object.create(CommonProto), { _tag: "None", _op: "None", valueOrUndefined: undefined, [Equal.symbol](this: Option.None, that: unknown): boolean { return isOption(that) && isNone(that) }, [Hash.symbol](this: Option.None) { return NoneHash }, toString(this: Option.None) { return `none()` }, toJSON(this: Option.None) { return { _id: "Option", _tag: this._tag } } }) /** @internal */ export const isOption = (input: unknown): input is Option.Option => hasProperty(input, TypeId) /** @internal */ export const isNone = (fa: Option.Option): fa is Option.None => fa._tag === "None" /** @internal */ export const isSome = (fa: Option.Option): fa is Option.Some => fa._tag === "Some" /** @internal */ export const none: Option.Option = Object.create(NoneProto) /** @internal */ export const some = (value: A): Option.Option => { const a = Object.create(SomeProto) a.value = value return a }