From 9ba005bbccdaba560fb7164c396f674b554c6887 Mon Sep 17 00:00:00 2001 From: Timothy Clem Date: Fri, 10 Aug 2018 13:01:13 -0700 Subject: [PATCH] Quote the key --- src/Semantic/Util.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Semantic/Util.hs b/src/Semantic/Util.hs index d32292c2d..bc376c1c9 100644 --- a/src/Semantic/Util.hs +++ b/src/Semantic/Util.hs @@ -194,7 +194,7 @@ addKVPair = fromPlan "addKVPair" $ do remark Refactored (injectTerm ann (Literal.Hash [newItem])) where newItem = termIn gen (inject (Literal.KeyValue k v)) - k = termIn gen (inject (Literal.TextElement "added")) + k = termIn gen (inject (Literal.TextElement "\"added\"")) v = termIn gen (inject (Literal.Array [])) gen = Generated :. rtail ann ann = termAnnotation origTerm