Skip to content

GitLab

Commit b4ef814c authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Warning police

parent 5815105c
Hide whitespace changes
Inline Side-by-side
compiler/coreSyn/CoreUtils.lhs
View file @ b4ef814c
......@@ -259,6 +259,7 @@ mkAltExpr (DataAlt con) args inst_tys
= mkConApp con (map Type inst_tys ++ varsToCoreExprs args)
mkAltExpr (LitAlt lit) [] []
= Lit lit
mkAltExpr DEFAULT = panic "mkAltExpr"
mkIfThenElse :: CoreExpr -> CoreExpr -> CoreExpr -> CoreExpr
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