diff options
author | Akshay <[email protected]> | 2020-10-10 06:45:42 +0100 |
---|---|---|
committer | Akshay <[email protected]> | 2020-10-10 06:45:42 +0100 |
commit | f74d9c9bb3722fd20cea000b4f0c2a74be289a9c (patch) | |
tree | ceec2de1fdc82f6f2e9693449b969c24925fac8e /src/Error.hs | |
parent | 5097a20545bbeeafec191f97e9d0ae3d215ada90 (diff) |
add quasiquote, unquote modifiers, basic boolean operations
add more info to readme
Diffstat (limited to 'src/Error.hs')
-rw-r--r-- | src/Error.hs | 8 |
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 | |||
18 | unwordsList = unwords . map show | 18 | unwordsList = unwords . map show |
19 | 19 | ||
20 | instance Show LispError where | 20 | instance 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 | ||
27 | type LispResult = Either LispError | 27 | type LispResult = Either LispError |