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

This commit is contained in:
Julien Valverdé
2026-05-01 01:12:24 +02:00
parent 4a04840f95
commit 9937317c60

View File

@@ -146,15 +146,22 @@ const makeEncodedValueLens = <A, I, R, TER, TEW, TRR, TRW>(
): Lens.Lens<I, never, never, never, never> => Lens.make({
get get() { return self.internalEncodedValue.get },
get changes() { return self.internalEncodedValue.changes },
modify: f => self.internalEncodedValue.get.pipe(
Effect.flatMap(f),
Effect.flatMap(([b, nextEncodedValue]) => Effect.as(
Effect.andThen(
Lens.set(self.internalEncodedValue, nextEncodedValue),
self.synchronizeEncodedValue(nextEncodedValue),
),
b,
)),
modify: f => self.internalEncodedValue.modify(
encodedValue => Effect.map(
f(encodedValue),
([b, nextEncodedValue]) => [
[b, nextEncodedValue] as const,
nextEncodedValue,
] as const
)
).pipe(
Effect.tap(([, nextEncodedValue]) =>
self.synchronizeEncodedValue(nextEncodedValue).pipe(
Effect.forkScoped,
Effect.provide(self.context),
)
),
Effect.map(([b]) => b),
),
})