mirror of
https://github.com/unisonweb/unison.git
synced 2024-09-25 01:08:30 +03:00
5af38fb39b
# Conflicts: # parser-typechecker/src/Unison/PrintError.hs # parser-typechecker/src/Unison/Typechecker/Context.hs # parser-typechecker/tests/Unison/Test/Typechecker.hs
21 lines
236 B
Plaintext
21 lines
236 B
Plaintext
--Ask inferred
|
|
|
|
effect Ask a where
|
|
ask : {Ask a} a
|
|
|
|
effect AskU where
|
|
ask : {AskU} UInt64
|
|
|
|
use UInt64 +
|
|
|
|
x = '(Ask.ask + 1)
|
|
x2 = '(Ask.ask + AskU.ask)
|
|
|
|
y : '{Ask UInt64} UInt64
|
|
y = '(!x)
|
|
|
|
y2 : '{Ask UInt64, AskU} UInt64
|
|
y2 = x2
|
|
|
|
()
|