mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 01:01:59 +03:00
11 lines
224 B
Idris
11 lines
224 B
Idris
|
-- %logging compile.casetree 5
|
||
|
|
-- %logging eval.casetree 5
|
||
|
|
|
||
|
|
-- %logging declare.def.lhs 5
|
||
|
|
|
||
|
|
bad : (a : Type) -> (x : a) -> String
|
||
|
|
bad String "good" = "good"
|
||
|
|
bad (List Nat) [1,2] = "good"
|
||
|
|
bad Char 'c' = "good"
|
||
|
|
bad _ _ = "bad"
|