mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-25 12:42:02 +03:00
6 lines
227 B
Idris
6 lines
227 B
Idris
-- Previously this gave an 'unreachable case warning' and evaluated
|
|
-- to the first case! Should give foo : Nat -> Nat
|
|
foo : (x : Nat) -> case S x of
|
|
Z => Nat -> Nat
|
|
(S k) => Nat
|