wball/perga
1
0
Fork 0
Code Issues 15 Pull requests Projects Releases Packages Wiki Activity Actions

fixed minor bug in dedupNames

Browse source
This commit is contained in:
William Ball 2024-12-11 13:26:05 -08:00
parent e6f9d71c57
commit 1ed998c025
1 changed files with 10 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/Expr.hs
View file

@ -65,7 +65,10 @@ dedupNames :: Expr -> Expr
dedupNames = go [] dedupNames = go []
where where
varName :: [Text] -> Text -> Int -> Text 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 Nothing -> x
Just x' -> Just x' ->
let count = (length $ filter (== x') $ drop (k + 1) bs) let count = (length $ filter (== x') $ drop (k + 1) bs)