mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-20 18:21:47 +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
|