Commit ab176653 authored by John van Groningen's avatar John van Groningen
Browse files

remove updateExpression instance for removed type

parent 619e94ba
......@@ -1620,13 +1620,6 @@ where
{ ui & ui_var_heap = ui_var_heap, ui_error = ui_error })
updateExpression group_index selection ui
= (selection, ui)
instance updateExpression TypeCase
where
updateExpression group_index type_case=:{type_case_dynamic,type_case_patterns,type_case_default} ui
# ((type_case_dynamic,(type_case_patterns,type_case_default)), ui) = updateExpression group_index
(type_case_dynamic,(type_case_patterns,type_case_default)) ui
= ({ type_case & type_case_dynamic = type_case_dynamic, type_case_patterns = type_case_patterns, type_case_default = type_case_default }, ui)
instance updateExpression DynamicPattern
where
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment