diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2024-10-22 23:46:39 +0200 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2024-10-22 23:47:53 +0200 |
| commit | 3847c6ae2d5eb581dac88629e7534aa42e143411 (patch) | |
| tree | 63036604613f8ac17efd8978004c579a0a5bb39b /src/Simplify.hs | |
| parent | d6d07f3bf20b4a3c0e51b4414fb0e4538176d294 (diff) | |
Fix interpreter bug
Diffstat (limited to 'src/Simplify.hs')
| -rw-r--r-- | src/Simplify.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Simplify.hs b/src/Simplify.hs index 3f4c8e3..5829a8b 100644 --- a/src/Simplify.hs +++ b/src/Simplify.hs @@ -94,7 +94,7 @@ simplify' = \case EConst _ t v -> EConst ext t v EIdx0 _ e -> EIdx0 ext (simplify' e) EIdx1 _ a b -> EIdx1 ext (simplify' a) (simplify' b) - EIdx _ n a b -> EIdx ext n (simplify' a) (simplify' b) + EIdx _ a b -> EIdx ext (simplify' a) (simplify' b) EShape _ e -> EShape ext (simplify' e) EOp _ op e -> EOp ext op (simplify' e) EWith e1 e2 -> EWith (simplify' e1) (let ?accumInScope = True in simplify' e2) @@ -136,7 +136,7 @@ hasAdds = \case EConst _ _ _ -> False EIdx0 _ e -> hasAdds e EIdx1 _ a b -> hasAdds a || hasAdds b - EIdx _ _ a b -> hasAdds a || hasAdds b + EIdx _ a b -> hasAdds a || hasAdds b EShape _ e -> hasAdds e EOp _ _ e -> hasAdds e EWith a b -> hasAdds a || hasAdds b |