@@ -122,7 +122,7 @@ encode ifaces =
122encodeInterface :: I.Interface -> E.Value
122encodeInterface :: I.Interface -> E.Value
123encodeInterface (I.Interface pkg values unions aliases binops) =
123encodeInterface (I.Interface pkg values unions aliases binops) =
125− [ "home" ==> E.chars (Pkg.toChars pkg)
125+ [ "pkg" ==> E.chars (Pkg.toChars pkg)
126 , "ops" ==> E.list E.name (Map.keys binops)
126 , "ops" ==> E.list E.name (Map.keys binops)
127 , "values" ==> E.list E.name (Map.keys values)
127 , "values" ==> E.list E.name (Map.keys values)
128 , "aliases" ==> E.list E.name (Map.keys (Map.filter isPublicAlias aliases))
128 , "aliases" ==> E.list E.name (Map.keys (Map.filter isPublicAlias aliases))