From 9217e32efde1e9a3dfe8183b9c1018909edb1c3e Mon Sep 17 00:00:00 2001
From: guillaume abel <guillaume.abel@epitech.eu>
Date: Tue, 5 Dec 2023 16:55:11 +0100
Subject: [PATCH] Interpreter v.0: Fix norm

---
 src/TextToAST.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/TextToAST.hs b/src/TextToAST.hs
index 781abc9..9f2783f 100644
--- 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_))