fixed minor bug in dedupNames

2024-12-11 13:26:05 -08:00 · 2024-12-11 13:26:05 -08:00 · 1ed998c025
commit 1ed998c025
parent e6f9d71c57
1 changed files with 10 additions and 7 deletions
--- a/lib/Expr.hs
+++ b/lib/Expr.hs
@ -65,7 +65,10 @@ dedupNames :: Expr -> Expr
 dedupNames = go []
  where
    varName :: [Text] -> Text -> Int -> Text
-    varName bs x k = case bs !!? k of
+    varName bs x k =
+        if x == ""
+            then x
+            else case bs !!? k of
                Nothing -> x
                Just x' ->
                    let count = (length $ filter (== x') $ drop (k + 1) bs)