mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-04 21:57:25 +03:00
16 lines
400 B
Plaintext
16 lines
400 B
Plaintext
--State1 effect
|
|
effect State se2 where
|
|
put : ∀ se . se -> {State se} ()
|
|
get : ∀ se . () -> {State se} se
|
|
|
|
-- state : ∀ s a . s -> Effect (State s) a -> (s, a)
|
|
state woot eff = case eff of
|
|
{ State.put snew -> k } -> handle (state snew) in k ()
|
|
{ State.get () -> k } -> handle state woot in k woot
|
|
{ a } -> (woot, a)
|
|
|
|
blah : ∀ s a . s -> Effect (State s) a -> (s, a)
|
|
blah = state
|
|
|
|
()
|