diff options
Diffstat (limited to 'frontend')
| -rw-r--r-- | frontend/convertcases.icl | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/frontend/convertcases.icl b/frontend/convertcases.icl index 3bf7114..aa1682e 100644 --- a/frontend/convertcases.icl +++ b/frontend/convertcases.icl @@ -1159,18 +1159,6 @@ splitGuards (BasicPatterns basicType patterns) splitGuards (OverloadedListPatterns type decons_expr patterns) = [OverloadedListPatterns type decons_expr [pattern] \\ pattern <- patterns] -makeCase :: Expression CasePatterns -> Expression -makeCase expr guard - = Case - { case_expr = expr - , case_guards = guard - , case_default = No - , case_ident = No - , case_info_ptr = nilPtr - , case_explicit=False - , case_default_pos= NoPos - } - :: TypedVariable = { tv_free_var :: !FreeVar , tv_type :: !AType |