unison/unison-src/tests/pattern-typing-bug.u
2021-08-24 11:33:27 -07:00

10 lines
148 B
Plaintext

structural type Value = String Text
| Bool Boolean
f : Value -> Nat
f = cases
Value.Bool true -> 3
_ -> 4
> f (Value.String "foo")