Fix warning

X-R-G-B · Dec 13, 2023 · 5ffc248 · 5ffc248
1 parent 1402c05
commit 5ffc248
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -11,8 +11,10 @@ import Types
 import System.IO
 
 printErrors :: (Env) -> IO ()
-printErrors (Env defines_ []) = printErrors (Env defines_ ["Unable to compute"])
-printErrors (Env defines_ errors_) = mapM_ putStrLn errors_ >> handleInput (Env defines_ [])
+printErrors (Env defines_ []) =
+  printErrors (Env defines_ ["Unable to compute"])
+printErrors (Env defines_ errors_) =
+  mapM_ putStrLn errors_ >> handleInput (Env defines_ [])
 
 checkComputing :: (Env, Maybe Result) -> IO ()
 checkComputing (env, Nothing) = printErrors env

diff --git a/src/Types.hs b/src/Types.hs
@@ -18,7 +18,7 @@ import Data.Int (Int64)
 
 type Symbol = String
 
-data Tree = Number Int64 | Symbol Symbol | Boolean Bool | List [Tree] | Empty
+data Tree = Number Int64 | Symbol Symbol | Boolean Bool | List [Tree]
 
 data Define = Define {
     symbol :: String,
@@ -39,7 +39,6 @@ instance Eq Tree where
     Symbol a == Symbol b = a == b
     Boolean a == Boolean b = a == b
     List a == List b = a == b
-    Empty == Empty = True
     _ == _ = False
 
 instance Eq Env where
@@ -58,7 +57,6 @@ instance Show Tree where
     show (Symbol a) = "S:'" ++ a ++ "'"
     show (Boolean value) = "B: " ++ show value
     show (List list) = "L: " ++ show list
-    show Empty = "Empty"
 
 instance Show Env where
     show (Env { defines = def, errors = err }) =