aboutsummaryrefslogtreecommitdiff
path: root/src/Error.hs
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-10-10 06:45:42 +0100
committerAkshay <[email protected]>2020-10-10 06:45:42 +0100
commitf74d9c9bb3722fd20cea000b4f0c2a74be289a9c (patch)
treeceec2de1fdc82f6f2e9693449b969c24925fac8e /src/Error.hs
parent5097a20545bbeeafec191f97e9d0ae3d215ada90 (diff)
add quasiquote, unquote modifiers, basic boolean operations
add more info to readme
Diffstat (limited to 'src/Error.hs')
-rw-r--r--src/Error.hs8
1 files changed, 4 insertions, 4 deletions
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
18unwordsList = unwords . map show 18unwordsList = unwords . map show
19 19
20instance Show LispError where 20instance Show LispError where
21 show (Parse e) = "Parser Error: " ++ show e 21 show (Parse e) = "Parser Error: " ++ show e
22 show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr 22 show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr
23 show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got value(s): " ++ unwordsList es 23 show (ArgCount n es) = "Invalid arity, expected " ++ show n ++ ", got value(s): " ++ unwordsList es
24 show (UnknownFunction fn) = "Cannot apply function: " ++ fn 24 show (UnknownFunction fn) = "Cannot apply function: " ++ fn
25 show (TypeMismatch msg got) = "Type mismatch, expected " ++ msg ++ ", got: " ++ show got 25 show (TypeMismatch msg got) = "Type mismatch, expected " ++ msg ++ ", got: " ++ show got
26 26
27type LispResult = Either LispError 27type LispResult = Either LispError