Interpreter v.0: Fix norm

X-R-G-B · Dec 5, 2023 · 9217e32 · 9217e32
1 parent 7da3907
commit 9217e32
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/TextToAST.hs b/src/TextToAST.hs
@@ -67,7 +67,8 @@ cutAtClose (x:xs) = (x:cutAtClose xs)
 nextToParse :: String -> String
 nextToParse [] = []
 nextToParse ('(':xs) = nextToParse' xs 1
-nextToParse str | skipableChar (head str) = nextToParse (dropWhile skipableChar str)
+nextToParse str | skipableChar (head str) = nextToParse
+                    (dropWhile skipableChar str)
                 | (last str) == ')' = nextToParse (popBackPrths str)
                 | otherwise = dropWhile skipableChar
     (dropWhile notSkipableChar (dropWhile skipableChar str))
@@ -87,7 +88,8 @@ createVariadic str =
 createNodeFromFunction :: Symbol -> String -> String -> Int -> Maybe Tree
 createNodeFromFunction [] _ _ _ = Nothing
 createNodeFromFunction (_:xs) [] _ 0 = Just (Leaf (Symbol xs))
-createNodeFromFunction (_:xs) str _ 0 = Just (Node xs (textToAST str) (Just Empty))
+createNodeFromFunction (_:xs) str _ 0 = Just (Node xs (textToAST str)
+                                      (Just Empty))
 createNodeFromFunction _ [] _ _ = Nothing
 createNodeFromFunction (_:xs) str tail_ 1 = Just (Node xs (textToAST str)
     (textToAST tail_))