ehrumsey/cli-framework
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add Tag type and hasTag function

Browse Source
This commit is contained in:
Eric Rumsey 2025-05-29 11:39:33 -05:00
parent b53558e2d1
commit e220b7930c
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/util/basic/utility.ts
View File

@ -174,5 +174,11 @@ export const tryCatch = <A>(f: () => A): Either<A, Error> => {
} }
} }
export interface Tag<T> {
readonly _tag: T
}
export const hasTag = (x: string) => (y: Tag<string>) => x === y._tag
export const fromNullable = <A>(a: A | null | undefined): Option<A> => export const fromNullable = <A>(a: A | null | undefined): Option<A> =>
a == null ? none : some(a) a == null ? none : some(a)