From f74d9c9bb3722fd20cea000b4f0c2a74be289a9c Mon Sep 17 00:00:00 2001 From: Akshay Date: Sat, 10 Oct 2020 11:15:42 +0530 Subject: add quasiquote, unquote modifiers, basic boolean operations add more info to readme --- src/Error.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Error.hs') diff --git a/src/Error.hs b/src/Error.hs index 5ba48bf..bfc8d14 100644 --- a/src/Error.hs +++ b/src/Error.hs @@ -18,10 +18,10 @@ unwordsList :: [Expr] -> String unwordsList = unwords . map show instance Show LispError where - show (Parse e) = "Parser Error: " ++ show e - show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr - show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got value(s): " ++ unwordsList es - show (UnknownFunction fn) = "Cannot apply function: " ++ fn + show (Parse e) = "Parser Error: " ++ show e + show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr + show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got value(s): " ++ unwordsList es + show (UnknownFunction fn) = "Cannot apply function: " ++ fn show (TypeMismatch msg got) = "Type mismatch, expected " ++ msg ++ ", got: " ++ show got type LispResult = Either LispError -- cgit v1.2.3