mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-26 11:07:48 +03:00
23 lines
731 B
Plaintext
23 lines
731 B
Plaintext
--handle inference
|
|
structural ability State s where
|
|
get : ∀ s . () -> {State s} s
|
|
set : ∀ s . s -> {State s} ()
|
|
state : ∀ a s . s -> Request (State s) a -> a
|
|
state s = cases
|
|
{a} -> a
|
|
{State.get _ -> k} -> handle k s with state s
|
|
{State.set s -> k} -> handle k () with state s
|
|
-- modify : ∀ s . (s -> s) -> {State s} ()
|
|
-- modify f = State.set (f (State.get()))
|
|
ex : () -> {State Nat} Nat
|
|
ex blah =
|
|
State.get() Nat.+ 42
|
|
-- note this currently succeeds, the handle block
|
|
-- gets an inferred type of ∀ a . a, it appears that
|
|
-- the existential `a` which gets instantiated for the
|
|
-- state call never gets refined, most likely due to
|
|
-- missing a subtype check in handle
|
|
y : Text
|
|
y = handle ex () with state 5
|
|
()
|