fix bug in list/map and list/filter.

list/__tests__/filter.test.js

@@ -50,4 +50,13 @@ describe("list/filter", () => {
     const actual = filter(asyncWhenIsOdd)(iterator())
     return expect(actual).resolves.toMatchObject(expected)
   })
+
+  test('filter does not cache', () => {
+    expect.assertions(1)
+    const expected = [1, 3]
+    const filterOdd = filter (isOdd)
+    filterOdd ([ 1, 2, 3 ])
+    const actual = filterOdd ([ 1, 2, 3 ])
+    expect(actual).toEqual(expected)
+  })
 })

list/__tests__/map.test.js

@@ -52,4 +52,13 @@ describe("list/map", () => {
     const actual = map(asyncWhenOddDouble)(iterator())
     return expect(actual).resolves.toMatchObject(expected)
   })
+
+  test('map does not cache', () => {
+    expect.assertions(1)
+    const expected = [2, 4]
+    const mapDouble = map (double)
+    mapDouble ([1, 2])
+    const actual = mapDouble ([1, 2])
+    expect(actual).toEqual(expected)
+  })
 })

list/filter.js

@@ -6,6 +6,6 @@ const asyncFilterReducer = func => acc => x =>
   call (val => (val && acc.push(x), acc)) (func (x))
 
 // filter :: Function -> Iterable -> Array
-const filter = predicate => reduceWhile (null) (asyncFilterReducer (predicate)) ([])
+const filter = predicate => iterable => reduceWhile (null) (asyncFilterReducer (predicate)) ([]) (iterable)
 
 module.exports = filter

list/map.js

@@ -6,6 +6,6 @@ const asyncMapReducer = func => acc => x =>
   call (val => (acc.push(val), acc)) (func (x))
 
 // map :: Function -> Iterable -> Array
-const map = func => reduceWhile (null) (asyncMapReducer (func)) ([])
+const map = func => iterable => reduceWhile (null) (asyncMapReducer (func)) ([]) (iterable)
 
 module.exports = map