lang_2023/tests/variants.lang

decl test-variants : -> \unit
def test-variants = {
  var variant1 = | ''a | 2 | "hello"
  var | val | err = f: x

  ; val -?> "something" // open variant as value in expr

  ; val -!> "nothing" // open variant as None in expr

  match variant1 with
    | ''a -> "something"
    | 2 -> "nothing"
    | "hello" -> "nothing"
    | 11 -> "nothing"
}