Thilawyn/effect-fc
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Fix
All checks were successful
Lint / lint (push) Successful in 14s
Details

Browse Source
This commit is contained in:
Julien Valverdé
2026-03-23 20:15:43 +01:00
parent e89babe223
commit 7f8411e83c
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
packages/effect-fc/src/Lens.ts
View File

@@ -79,7 +79,9 @@ export const map = <A, ER, RR, EW, RW, B>(
(b: B): (parent: A) => A (b: B): (parent: A) => A
}, },
): Lens<B, ER, RR, EW, RW> => { ): Lens<B, ER, RR, EW, RW> => {
const setF = const setF = (parent: A, b: B) => set.length >= 2
? (set as (parent: A, b: B) => A)(parent, b)
: (set as (b: B) => (parent: A) => A)(b)(parent)
return make({ return make({
get: Effect.map(self.get, get), get: Effect.map(self.get, get),
@@ -87,7 +89,7 @@ export const map = <A, ER, RR, EW, RW, B>(
modify: <C, E1 = never, R1 = never>( modify: <C, E1 = never, R1 = never>(
f: (b: B) => Effect.Effect<readonly [C, B], E1, R1> f: (b: B) => Effect.Effect<readonly [C, B], E1, R1>
) => self.modify((a: A) => ) => self.modify((a: A) =>
Effect.flatMap(f(get(a)), ([c, next]) => Effect.succeed([c, set(a, next)] as const)) Effect.flatMap(f(get(a)), ([c, next]) => Effect.succeed([c, setF(a, next)] as const))
), ),
}) })
} }