diff options
| -rw-r--r-- | src/Utils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Utils.hs b/src/Utils.hs index d39a677..2561969 100644 --- a/src/Utils.hs +++ b/src/Utils.hs @@ -160,7 +160,7 @@ instance (Show ASTNode) where show (ASTSymbol s) = s show (ASTBoolean b) = show b $> map C.toLower show (ASTString s) = show s - show (ASTTag hash s) = "<:" ++ s ++ " " ++ show hash ++ ">" + show (ASTTag _ s) = ":" ++ s show (ASTVector v) = "[" ++ L.intercalate " " (map show v) ++ "]" show (ASTFunctionCall v) = "(" ++ L.intercalate " " (map show v) ++ ")" show (ASTHashMap m) = |