1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-03 20:42:13 +03:00
Idris2/tests/idris2/evaluator/evaluator003/Issue705.idr

11 lines
224 B
Idris
Raw Normal View History

-- %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"