Add Name ToJSONKey instance

unisonweb · Feb 5, 2024 · 4b9ca79 · 4b9ca79
1 parent 4eb0147
commit 4b9ca79
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/unison-share-api/src/Unison/Server/Orphans.hs b/unison-share-api/src/Unison/Server/Orphans.hs
@@ -169,6 +169,9 @@ instance ToJSON Name where
   toEncoding = toEncoding . Name.toText
   toJSON = toJSON . Name.toText
 
+instance ToJSONKey Name where
+  toJSONKey = contramap Name.toText (toJSONKey @Text)
+
 instance ToSchema Name where
   declareNamedSchema _ = declareNamedSchema (Proxy @Text)