diff options
| author | Eduardo Julian | 2017-11-29 04:51:04 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-29 04:51:04 -0400 |
| commit | 8c5cca122817bc63f4f84cc8351ced3cb67e5eea (patch) | |
| tree | 8803dd3ed59ddcc6b964354fd312ab9e62e12cd8 /stdlib/source/lux/data/store.lux | |
| parent | 1ef969c8ce0f1a83ffa8d26d779806190ac3eced (diff) | |
- Changed the identifier separator, from the semi-colon (;) to the period/dot (.).
Diffstat (limited to 'stdlib/source/lux/data/store.lux')
| -rw-r--r-- | stdlib/source/lux/data/store.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/store.lux b/stdlib/source/lux/data/store.lux index 535254ad9..70fd022f4 100644 --- a/stdlib/source/lux/data/store.lux +++ b/stdlib/source/lux/data/store.lux @@ -1,4 +1,4 @@ -(;module: +(.module: lux (lux (control ["F" functor] comonad) @@ -13,7 +13,7 @@ {#cursor (get@ #cursor wa) #peek (function [s] (f (set@ #cursor s wa)))}) -(struct: #export Functor<Store> (All [s] (F;Functor (Store s))) +(struct: #export Functor<Store> (All [s] (F.Functor (Store s))) (def: (map f fa) (extend (function [store] (f (:: store peek (:: store cursor)))) @@ -39,5 +39,5 @@ (|> store (::: split) (peeks change))) (def: #export (experiment Functor<f> change store) - (All [f s a] (-> (F;Functor f) (-> s (f s)) (Store s a) (f a))) + (All [f s a] (-> (F.Functor f) (-> s (f s)) (Store s a) (f a))) (:: Functor<f> map (::: peek) (change (::: cursor)))) |