Allow set to work with traversals

src/lens.js

@@ -1,10 +1,29 @@
-var set = require('ramda/src/set')
-var lens = require('ramda/src/lens')
+var ConstList = require('./internal/_const')([])
+var Identity  = require('./internal/_identity')
+var curry     = require('ramda/src/curry')
+var lens      = require('ramda/src/lens')
 
+var view = curry(function view(lens, x) {
+  return lens.call(ConstList, function(a) {
+    return ConstList([a])
+  })(x).value[0]
+})
+
+var over = curry(function over(lens, f, x) {
+  return lens.call(Identity, function(y) {
+    return Identity(f(y));
+  })(x).value;
+})
+
+var set = curry(function set(lens, v, x) {
+  return lens.call(Identity, function(_) {
+    return Identity(v);
+  })(x).value;
+})
 
 module.exports = {
   lens: lens,
   set: set,
-  view: require('./view'),
-  over: require('./over')
+  view: view,
+  over: over
 }

test/test.js

@@ -80,9 +80,15 @@ describe("Lenses", function() {
     const trav_fn = function(x) { return x+1 }
 
     it('over a traversable', function() {
-      const result = over(traversed, trav_fn, Identity(2))
-      const expected = Identity(3)
-      assert.deepEqual(result.value, expected.value)
+      const result = over(traversed, trav_fn, [1, 2, 3])
+      const expected = [2, 3, 4]
+      assert.deepEqual(result, expected)
+    })
+
+    it('set a traversable', function() {
+      const result = set(traversed, 3, [1, 2, 3])
+      const expected = [3, 3, 3]
+      assert.deepEqual(result, expected)
     })
 
     it('with applicatives via traverseOf', function() {