From 5b8ff5d50b52b6bad4d7da1410fc57770e645d74 Mon Sep 17 00:00:00 2001
From: Rob Rix <robrix@github.com>
Date: Wed, 18 Sep 2019 18:49:25 -0400
Subject: [PATCH] Serialize Kind to JSON as a String.

---
 semantic-tags/src/Tags/Taggable/Precise.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/semantic-tags/src/Tags/Taggable/Precise.hs b/semantic-tags/src/Tags/Taggable/Precise.hs
index 29780299b..c98592adc 100644
--- a/semantic-tags/src/Tags/Taggable/Precise.hs
+++ b/semantic-tags/src/Tags/Taggable/Precise.hs
@@ -36,7 +36,9 @@ data Kind
   | Call
   deriving (Bounded, Enum, Eq, Generic, Show)
 
-instance ToJSON Kind
+instance ToJSON Kind where
+  toJSON = toJSON . show
+  toEncoding = toEncoding . show
 
 
 newtype Python a = Python { getPython :: Python.Module a }