mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-21 15:28:15 +03:00
18 lines
409 B
Plaintext
18 lines
409 B
Plaintext
--IO/State1 ability
|
|
ability IO where
|
|
launchMissiles : {IO} ()
|
|
ability State se2 where
|
|
put : ∀ se . se -> {State se} ()
|
|
get : ∀ se . () -> {State se} se
|
|
foo : () -> {IO} ()
|
|
foo unit =
|
|
-- inner binding can't access outer abilities unless it declares
|
|
-- them explicitly
|
|
incBy : Int -> {State Int} ()
|
|
incBy i =
|
|
launchMissiles -- not allowed
|
|
y = State.get()
|
|
State.put (y Int.+ i)
|
|
()
|
|
()
|