diff --git a/src/Analysis/ConstructorName.hs b/src/Analysis/ConstructorName.hs index 39473b755..d476cb986 100644 --- a/src/Analysis/ConstructorName.hs +++ b/src/Analysis/ConstructorName.hs @@ -24,7 +24,7 @@ instance Show ConstructorLabel where showsPrec _ (ConstructorLabel s) = showString (unpack s) instance ToJSONFields ConstructorLabel where - toJSONFields (ConstructorLabel s) = [ "category" .= decodeUtf8 s ] + toJSONFields (ConstructorLabel s) = [ "term" .= decodeUtf8 s ] -- | A typeclass to retrieve the name of the data constructor for a value.