From d64c5725d79195fc6ef0472d4efa55737ebc00c3 Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Thu, 8 Dec 2022 17:31:12 +0200 Subject: Fix ASTTag Show instance --- src/Utils.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src') 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) = -- cgit v1.3