Idris2-boot/tests/idris2/basic017/CaseInf.idr

mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-21 03:41:30 +03:00
test3ok : Nat
test3ok = case (the Nat 1, 2) of
               (x, y) => x + y

test3bad : Nat
test3bad = case (1, 2) of
             (x, y) => x + y
Throw error if case type is not inferred This is probably quite rare to want, but we could consider putting this under a delayOnFailure 2019-06-29 21:39:11 +03:00			`test3ok : Nat`
			`test3ok = case (the Nat 1, 2) of`
			`(x, y) => x + y`

			`test3bad : Nat`
			`test3bad = case (1, 2) of`
			`(x, y) => x + y`