From 3847c6ae2d5eb581dac88629e7534aa42e143411 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Tue, 22 Oct 2024 23:46:39 +0200
Subject: Fix interpreter bug

---
 src/AST/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/AST/Pretty.hs')

diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs
index d811912..b50506a 100644
--- a/src/AST/Pretty.hs
+++ b/src/AST/Pretty.hs
@@ -159,7 +159,7 @@ ppExpr' d val = \case
     b' <- ppExpr' 9 val b
     return $ showParen (d > 8) $ a' . showString " .! " . b'
 
-  EIdx _ _ a b -> do
+  EIdx _ a b -> do
     a' <- ppExpr' 9 val a
     b' <- ppExpr' 10 val b
     return $ showParen (d > 8) $
-- 
cgit v1.2.3-70-g09d2