@@ -123,7 +123,8 @@ encodeInterface :: I.Interface -> E.Value
123123encodeInterface (I.Interface pkg values unions aliases binops) =
124124 E.object
125125 [ "home" ==> E.chars (Pkg.toChars pkg)
126− , "values" ==> E.list E.name (Map.keys binops ++ Map.keys values)
126+ , "ops" ==> E.list E.name (Map.keys binops)
127+ , "values" ==> E.list E.name (Map.keys values)
127128 , "aliases" ==> E.list E.name (Map.keys (Map.filter isPublicAlias aliases))
128129 , "types" ==> E.dict Json.fromName (E.list E.name) (Map.mapMaybe toPublicUnion unions)
129130 ]