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"