From 10d69f977baf448e97cf96ea68a84c0b43749d48 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Julien=20Valverd=C3=A9?= Date: Mon, 23 Mar 2026 20:21:55 +0100 Subject: [PATCH] Fix --- packages/effect-fc/src/Lens.ts | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/packages/effect-fc/src/Lens.ts b/packages/effect-fc/src/Lens.ts index b0a1dcd..4f5dde2 100644 --- a/packages/effect-fc/src/Lens.ts +++ b/packages/effect-fc/src/Lens.ts @@ -75,8 +75,8 @@ export const map = ( self: Lens, get: (a: A) => B, set: { - (parent: A, b: B): A (b: B): (parent: A) => A + (parent: A, b: B): A }, ): Lens => { const setF = (parent: A, b: B) => set.length >= 2 @@ -88,7 +88,7 @@ export const map = ( changes: Stream.map(self.changes, get), modify: ( f: (b: B) => Effect.Effect - ) => self.modify((a: A) => + ) => self.modify(a => Effect.flatMap(f(get(a)), ([c, next]) => Effect.succeed([c, setF(a, next)] as const)) ), })