Mercurial > gui
diff sourceL.urs @ 15:8300d5f0dc19
Replace ChangePoller with SourceL, plus some other rearrangements
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 07 Aug 2011 14:38:52 -0400 |
parents | changePoller.urs@0827320b0f04 |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/sourceL.urs Sun Aug 07 14:38:52 2011 -0400 @@ -0,0 +1,11 @@ +(* Reactive sources that accept change listeners *) + +con t :: Type -> Type + +val create : a ::: Type -> a -> transaction (t a) + +val onChange : a ::: Type -> t a -> (a -> transaction {}) -> transaction {} + +val set : a ::: Type -> t a -> a -> transaction {} +val get : a ::: Type -> t a -> transaction a +val value : a ::: Type -> t a -> signal a