diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-09-25 17:39:15 +0300 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | 218ad3f54ef0be7e0b2e288e543e6c0959ddd7e3 (patch) | |
| tree | f35df8da7bb0ac3bdb36bde02376e776111e90e7 /src/Types.hs | |
| parent | 09e74ca747d49c69eebd0013f12c9fd5b26c07d7 (diff) | |
Make builtinAdd2 polymorphic in numeric types
Diffstat (limited to 'src/Types.hs')
| -rw-r--r-- | src/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Types.hs b/src/Types.hs index 08736cc..21a1ceb 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -5,6 +5,7 @@ import Control.Monad.Except import Control.Monad.Reader import qualified Data.Map as M import qualified Data.List as L +import qualified Data.Char as C import Utils newtype LException = LException String @@ -36,7 +37,7 @@ instance (Show AST) where show (ASTInteger n) = show n show (ASTDouble n) = show n show (ASTSymbol s) = s - show (ASTBoolean b) = show b + show (ASTBoolean b) = show b $> map C.toLower show (ASTString s) = show s show (ASTVector v) = "[" ++ L.intercalate " " (map show v) ++ "]" show (ASTFunctionCall v) = "(" ++ L.intercalate " " (map show v) ++ ")" |