lensIso use lens

Harris-Miller · Jul 25, 2024 · a25f987 · a25f987
1 parent 7da67a6
commit a25f987
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 24 deletions.
diff --git a/source/internal/_lens.js b/source/internal/_lens.js
@@ -0,0 +1,14 @@
+import map from '../map.js';
+
+export default function _lens(getter, setter) {
+  return function(toFunctorFn) {
+    return function(target) {
+      return map(
+        function(focus) {
+          return setter(focus, target);
+        },
+        toFunctorFn(getter(target))
+      );
+    };
+  };
+}
diff --git a/source/lens.js b/source/lens.js
@@ -1,5 +1,5 @@
 import _curry2 from './internal/_curry2.js';
-import map from './map.js';
+import _lens from './internal/_lens.js';
 
 
 /**
@@ -25,16 +25,5 @@ import map from './map.js';
  *      R.set(xLens, 4, {x: 1, y: 2});          //=> {x: 4, y: 2}
  *      R.over(xLens, R.negate, {x: 1, y: 2});  //=> {x: -1, y: 2}
  */
-var lens = _curry2(function lens(getter, setter) {
-  return function(toFunctorFn) {
-    return function(target) {
-      return map(
-        function(focus) {
-          return setter(focus, target);
-        },
-        toFunctorFn(getter(target))
-      );
-    };
-  };
-});
+var lens = _curry2(_lens);
 export default lens;
diff --git a/source/lensIso.js b/source/lensIso.js
@@ -1,5 +1,6 @@
 import _curry2 from './internal/_curry2.js';
-import map from './map.js';
+import _lens from './internal/_lens.js';
+import nAry from './nAry.js';
 
 
 /**
@@ -26,15 +27,6 @@ import map from './map.js';
  *      R.over(xJson, R.assoc('x', 6), '{"x": 4,"y": 2}'); //=> '{"x": 6 ,"y": 2}'
  */
 var lensIso = _curry2(function lensIso(to, from) {
-  return function(toFunctorFn) {
-    return function(target) {
-      return map(
-        function(focus) {
-          return from(focus);
-        },
-        toFunctorFn(to(target))
-      );
-    };
-  };
+  return _lens(to, nAry(1, from));
 });
 export default lensIso;