mirror of
https://github.com/HigherOrderCO/Bend.git
synced 2024-08-15 23:00:46 +03:00
16 lines
464 B
Plaintext
16 lines
464 B
Plaintext
---
|
|
source: tests/golden_tests.rs
|
|
input_file: tests/golden_tests/simplify_matches/double_unwrap_maybe.bend
|
|
---
|
|
(DoubleUnwrap) = λa match a { Maybe/Some b: match b { Maybe/Some c: λd let e = d; let f = e; c; Maybe/None: λg let h = g; let i = h; i; }; Maybe/None: λj let k = j; k; }
|
|
|
|
(Main) = (DoubleUnwrap (Maybe/Some Maybe/None) 5)
|
|
|
|
(Maybe/Some) = λa λb (b Maybe/Some/tag a)
|
|
|
|
(Maybe/None) = λa (a Maybe/None/tag)
|
|
|
|
(Maybe/Some/tag) = 0
|
|
|
|
(Maybe/None/tag) = 1
|