fix: lensed atom distinct changes

packages/lens/src/lensed-atom.spec.ts

@@ -109,4 +109,28 @@ describe('view', () => {
 		expect(ao.next).toHaveBeenCalledTimes(1)
 		expect(bo.next).toHaveBeenCalledTimes(1)
 	})
+	it('distinct changes', () => {
+		const a = newLensedAtom({ foo: 0, bar: 'bar' })
+		const foo = a.view(prop('foo'))
+		const bar = a.view(prop('bar'))
+		const fooObserver = {
+			next: jest.fn(),
+		}
+		const barObserver = {
+			next: jest.fn(),
+		}
+		foo.subscribe(fooObserver)
+		bar.subscribe(barObserver)
+		// imitate consumer to warm up the cache
+		foo.get()
+		bar.get()
+
+		foo.set(2)
+		expect(fooObserver.next).toHaveBeenCalledTimes(1)
+		expect(barObserver.next).toHaveBeenCalledTimes(0)
+
+		bar.set('baz')
+		expect(barObserver.next).toHaveBeenCalledTimes(1)
+		expect(fooObserver.next).toHaveBeenCalledTimes(1)
+	})
 })

packages/lens/src/lensed-atom.ts

@@ -1,4 +1,4 @@
-import { Atom, newAtom, newProperty } from '@frp-ts/core'
+import { Atom, combine, newAtom } from '@frp-ts/core'
 
 export interface Lens<S, A> {
 	readonly get: (s: S) => A
@@ -12,18 +12,15 @@ export interface LensedAtom<A> extends Atom<A> {
 export const newLensedAtom = <A>(initial: A): LensedAtom<A> => toLensedAtom(newAtom(initial))
 
 export const toLensedAtom = <A>(atom: Atom<A>): LensedAtom<A> => {
-	const { set, get, subscribe } = atom
-
 	const view = <B>(lens: Lens<A, B>): LensedAtom<B> => {
-		const lensedGet = () => lens.get(get())
-		const lensedSet = (b: B) => set(lens.set(b)(get()))
-
+		const lensedSet = (b: B) => atom.set(lens.set(b)(atom.get()))
+		const lensedProperty = combine(atom, lens.get)
 		return {
-			...newProperty(lensedGet, subscribe),
+			...lensedProperty,
 			set: lensedSet,
 			view: (bc) => view(composeLens(lens, bc)),
 			modify: (...updates) => {
-				let value = lensedGet()
+				let value = lensedProperty.get()
 				for (const update of updates) {
 					value = update(value)
 				}