Commit b74d0f7e authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Make coreSyn/CoreUtils.lhs compile

Use the right number of arguments in a panic case.
parent 9bf51684
...@@ -259,7 +259,8 @@ mkAltExpr (DataAlt con) args inst_tys ...@@ -259,7 +259,8 @@ mkAltExpr (DataAlt con) args inst_tys
= mkConApp con (map Type inst_tys ++ varsToCoreExprs args) = mkConApp con (map Type inst_tys ++ varsToCoreExprs args)
mkAltExpr (LitAlt lit) [] [] mkAltExpr (LitAlt lit) [] []
= Lit lit = Lit lit
mkAltExpr DEFAULT = panic "mkAltExpr" mkAltExpr (LitAlt _) _ _ = panic "mkAltExpr LitAlt"
mkAltExpr DEFAULT _ _ = panic "mkAltExpr DEFAULT"
mkIfThenElse :: CoreExpr -> CoreExpr -> CoreExpr -> CoreExpr mkIfThenElse :: CoreExpr -> CoreExpr -> CoreExpr -> CoreExpr
mkIfThenElse guard then_expr else_expr mkIfThenElse guard then_expr else_expr
......
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