From d77a4d2460ce6e1ef8cb60188925d0fe8d6fbcc7 Mon Sep 17 00:00:00 2001 From: Ivy Date: Thu, 4 Feb 2021 14:21:45 +0100 Subject: [PATCH] Minor fix --- src/Types/Language.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Types/Language.hs b/src/Types/Language.hs index 2f7a803..60ddaab 100644 --- a/src/Types/Language.hs +++ b/src/Types/Language.hs @@ -22,7 +22,7 @@ instance Show Expr where where showCons (ConsE x NilE) = show x ++ ")" showCons (ConsE x xs) = show x ++ " " ++ show xs ++ ")" show (LambdaE s e) = "#[lambda " ++ s ++ " " ++ show e ++ "]" - show (QuotedE e) = "Q" ++ show e + show (QuotedE e) = show e show NilE = "nil" cons2List :: Expr -> [Expr]