diff options
Diffstat (limited to 'stdlib/source/library/lux/control/concurrency/stm.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/concurrency/stm.lux | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/stdlib/source/library/lux/control/concurrency/stm.lux b/stdlib/source/library/lux/control/concurrency/stm.lux index c5323c442..2a0ae3956 100644 --- a/stdlib/source/library/lux/control/concurrency/stm.lux +++ b/stdlib/source/library/lux/control/concurrency/stm.lux @@ -74,11 +74,10 @@ (All (_ a) (-> (Var a) (IO [(Channel a) (Sink a)]))) (do io.monad [.let [[channel sink] (sharing [a] - (Var a) - target - - [(Channel a) (Sink a)] - (frp.channel []))] + (is (Var a) + target) + (is [(Channel a) (Sink a)] + (frp.channel [])))] _ (atom.update! (function (_ [value observers]) [value {.#Item (implementation (def: close (at sink close)) |