mirror of
https://github.com/unisonweb/unison.git
synced 2024-11-14 16:28:34 +03:00
11 lines
217 B
Plaintext
11 lines
217 B
Plaintext
--State1a effect
|
|
effect State se2 where
|
|
put : ∀ se . se -> {State se} ()
|
|
get : ∀ se . {State se} se
|
|
id : Int64 -> Int64
|
|
id i = i
|
|
foo : () -> {State Int64} Int64
|
|
foo unit = id (State.get Int64.+ State.get)
|
|
()
|
|
|