mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-04 13:47:26 +03:00
12 lines
223 B
Plaintext
12 lines
223 B
Plaintext
--State1a ability
|
|
structural ability State se2 where
|
|
put : ∀ se . se -> {State se} ()
|
|
get : ∀ se . {State se} se
|
|
id : Int -> Int
|
|
id i = i
|
|
foo : () -> {State Int} Int
|
|
foo unit = id (State.get Int.+ State.get)
|
|
|
|
> ()
|
|
|