aboutsummaryrefslogtreecommitdiff
path: root/src/Error
diff options
context:
space:
mode:
authorAkshay <[email protected]>2020-10-16 18:22:30 +0100
committerAkshay <[email protected]>2020-10-16 18:22:30 +0100
commit297b498acd205f0fcd68f3cdf7536b480cfac5e3 (patch)
treeec66452d4f8a95dc042d940edd9ce3921e5dcf2c /src/Error
parent55065d6f67cf4b2f0bfaae19b38157a4ca934a62 (diff)
add basic quasiquote and unquote behaviour
Diffstat (limited to 'src/Error')
-rw-r--r--src/Error/Base.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Error/Base.hs b/src/Error/Base.hs
index ef32d52..747904a 100644
--- a/src/Error/Base.hs
+++ b/src/Error/Base.hs
@@ -24,7 +24,7 @@ literal v = "`" <> v <> "`"
24 24
25instance Show LispError where 25instance Show LispError where
26 show (Parse e) = "Parser Error: " ++ show e 26 show (Parse e) = "Parser Error: " ++ show e
27 show (BadForm s expr) = "Bad Form: " ++ literal s ++ ": " ++ show expr 27 show (BadForm s expr) = "Bad Form: " ++ s ++ ": " ++ show expr
28 -- TODO: clean this up 28 -- TODO: clean this up
29 show (ArgCount fn n es) 29 show (ArgCount fn n es)
30 | null es = "Invalid arity, " ++ literal fn ++ " expects " ++ show n ++ " or more expression(s)!" 30 | null es = "Invalid arity, " ++ literal fn ++ " expects " ++ show n ++ " or more expression(s)!"