Commit 636fe443 authored by Ronny Wichers Schreur's avatar Ronny Wichers Schreur 🏘
Browse files

removed unused function makeCase

parent 0bc666e7
......@@ -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
......
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