diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-10 21:08:30 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 01:37:50 +0200 |
| commit | 37e251578181213e49ba08d3de39f0b8b4f77427 (patch) | |
| tree | 344690e291f4cea14a625793eb19b69f39bb8e55 /src/Utils.hs | |
| parent | 421663406a5f259ee8e3d43009365c52186ffe31 (diff) | |
Add char datatype
Diffstat (limited to 'src/Utils.hs')
| -rw-r--r-- | src/Utils.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index f3e2b8c..01ecb17 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -163,6 +163,7 @@ data ASTNode | ASTDouble Double | ASTSymbol String | ASTBoolean Bool + | ASTChar Char | ASTString String | ASTTag TagHash String | ASTVector [AST] @@ -189,6 +190,7 @@ instance (Show ASTNode) where show (ASTDouble n) = show n show (ASTSymbol s) = s show (ASTBoolean b) = show b $> map C.toLower + show (ASTChar c) = show c show (ASTString s) = show s show (ASTTag _ s) = ":" ++ s show (ASTVector v) = "[" ++ L.intercalate " " (map show v) ++ "]" @@ -214,6 +216,7 @@ instance (Eq ASTNode) where ASTDouble a == ASTDouble b = a == b ASTSymbol a == ASTSymbol b = a == b ASTBoolean a == ASTBoolean b = a == b + ASTChar a == ASTChar b = a == b ASTString a == ASTString b = a == b ASTTag n _ == ASTTag m _ = n == m ASTVector a == ASTVector b = a == b @@ -235,6 +238,7 @@ instance (Ord ASTNode) where ASTDouble a <= ASTDouble b = a <= b ASTSymbol a <= ASTSymbol b = a <= b ASTBoolean a <= ASTBoolean b = a <= b + ASTChar a <= ASTChar b = a <= b ASTString a <= ASTString b = a <= b ASTTag n _ <= ASTTag m _ = n <= m ASTVector a <= ASTVector b = a <= b |