@@ -40,6 +40,7 @@ everywhereOnValues f g h = (f', g', h')
41 h' (LiteralBinder a b) = h (LiteralBinder a (handleLiteral h' b))
41 h' (LiteralBinder a b) = h (LiteralBinder a (handleLiteral h' b))
42 h' (NamedBinder a name b) = h (NamedBinder a name (h' b))
42 h' (NamedBinder a name b) = h (NamedBinder a name (h' b))
43+ h' (ConstructorBinder a q1 q2 bs) = h (ConstructorBinder a q1 q2 (map h' bs))
43 h' b = h b
44 h' b = h b
45 handleCaseAlternative ca =
46 handleCaseAlternative ca =