Fix tests

PATCH
X-R-G-B · Dec 5, 2023 · 97bbbf7 · 97bbbf7
1 parent 1e84747
commit 97bbbf7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/TextToAST.hs b/src/TextToAST.hs
@@ -67,7 +67,7 @@ cutAtClose (x:xs) = (x:cutAtClose xs)
 
 nextToParse :: String -> String
 nextToParse [] = []
-nextToParse ('(':xs) = nextToParse' xs 0
+nextToParse ('(':xs) = nextToParse' xs 1
 nextToParse str | skipableChar (head str) = nextToParse (dropWhile skipableChar str)
                 | (last str) == ')' = nextToParse (popBackPrths str)
                 | otherwise = dropWhile skipableChar