From b74d0f7ee553e334559d12f1525b4bf6292566ee Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Thu, 3 May 2007 12:08:41 +0000 Subject: [PATCH] Make coreSyn/CoreUtils.lhs compile Use the right number of arguments in a panic case. --- compiler/coreSyn/CoreUtils.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/coreSyn/CoreUtils.lhs b/compiler/coreSyn/CoreUtils.lhs index 2433eb8..c72a7b4 100644 --- a/compiler/coreSyn/CoreUtils.lhs +++ b/compiler/coreSyn/CoreUtils.lhs @@ -259,7 +259,8 @@ mkAltExpr (DataAlt con) args inst_tys = mkConApp con (map Type inst_tys ++ varsToCoreExprs args) mkAltExpr (LitAlt lit) [] [] = Lit lit -mkAltExpr DEFAULT = panic "mkAltExpr" +mkAltExpr (LitAlt _) _ _ = panic "mkAltExpr LitAlt" +mkAltExpr DEFAULT _ _ = panic "mkAltExpr DEFAULT" mkIfThenElse :: CoreExpr -> CoreExpr -> CoreExpr -> CoreExpr mkIfThenElse guard then_expr else_expr -- 1.7.10.4