diff options
Diffstat (limited to 'stdlib/source/lux/data/store.lux')
| -rw-r--r-- | stdlib/source/lux/data/store.lux | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/source/lux/data/store.lux b/stdlib/source/lux/data/store.lux index 70fd022f4..06b1315a2 100644 --- a/stdlib/source/lux/data/store.lux +++ b/stdlib/source/lux/data/store.lux @@ -11,11 +11,11 @@ (def: (extend f wa) (All [s a b] (-> (-> (Store s a) b) (Store s a) (Store s b))) {#cursor (get@ #cursor wa) - #peek (function [s] (f (set@ #cursor s wa)))}) + #peek (function (_ s) (f (set@ #cursor s wa)))}) (struct: #export Functor<Store> (All [s] (F.Functor (Store s))) (def: (map f fa) - (extend (function [store] + (extend (function (_ store) (f (:: store peek (:: store cursor)))) fa))) |