From 2e38155873e9b890312294a64504dfecae424504 Mon Sep 17 00:00:00 2001 From: tenshi Date: Mon, 18 Dec 2023 00:45:25 +0100 Subject: [PATCH] enhance display for users --- src/Types.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Types.hs b/src/Types.hs index 9e6f4c3..51f6682 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -62,10 +62,10 @@ instance Eq Define where ---------- SHOW INSTANCES ---------- instance Show Tree where - show (Number a) = "N:'" ++ show a ++ "'" - show (Symbol a) = "S:'" ++ a ++ "'" - show (Boolean value) = "B: " ++ show value - show (List list) = "L: " ++ show list + show (Number a) = show a + show (Symbol a) = a + show (Boolean value) = show value + show (List list) = show list instance Show Env where show (Env { defines = def, errors = err, functions = func }) =