on master help sign in
Detect crashes, add region information
ff98144Evan Czaplicki
src/Optimize.hs+5−1
@@ -194,7 +194,11 @@ optimizeExpr context annExpr@(A.A region expression) =
194 pure (Opt.Literal lit)
194 pure (Opt.Literal lit)
195
195
196 Expr.Var name ->
196 Expr.Var name ->
197+ if name == Var.inCore ["Debug"] "crash" then
198+ pure (Opt.Crash region Nothing)
199+
200+ else
197− pure (Opt.Var name)
201+ pure (Opt.Var name)
198
202
199 Expr.Range lowExpr highExpr ->
203 Expr.Range lowExpr highExpr ->
200 Opt.Range
204 Opt.Range