diff options
| author | johnvg | 2007-04-11 12:07:03 +0000 |
|---|---|---|
| committer | johnvg | 2007-04-11 12:07:03 +0000 |
| commit | f96a0cd2fb324ff9cf3e09d266fcd187b61772cc (patch) | |
| tree | 7f4e532f075ce0df19ff3ef57b6f2b21f49bf528 /frontend/overloading.icl | |
| parent | remove <<< instance for removed type (diff) | |
remove updateExpression instance for removed type
git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1661 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
Diffstat (limited to 'frontend/overloading.icl')
| -rw-r--r-- | frontend/overloading.icl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/frontend/overloading.icl b/frontend/overloading.icl index 00c384a..f9f304d 100644 --- a/frontend/overloading.icl +++ b/frontend/overloading.icl @@ -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 |