Fix bug space at end

PATCH
X-R-G-B · Dec 4, 2023 · a9453c7 · a9453c7
1 parent 9ab54bf
commit a9453c7
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/TextToAST.hs b/src/TextToAST.hs
@@ -57,7 +57,7 @@ nextToParse str = dropWhile skipableChar (dropWhile notSkipableChar (dropWhile s
 
 countAtoms :: String -> Int -> Int
 countAtoms str depth | depth >= 2 = 2
-                     | not (null $ dropWhile skipableChar str) = countAtoms (nextToParse str) (depth + 1)
+                     | not (null $ takeWhile (/= ')') (dropWhile skipableChar str)) = countAtoms (nextToParse str) (depth + 1)
                      | otherwise = depth
 
 createVariadic :: String -> Maybe Tree