diff --git a/ivette/api/generated/kernel/ast/index.ts b/ivette/api/generated/kernel/ast/index.ts index 2bd3772caab604fb8d9559f6cd3b77ded324dc11..9ae32c6bf691af3a416da8b033a070e337f6c38a 100644 --- a/ivette/api/generated/kernel/ast/index.ts +++ b/ivette/api/generated/kernel/ast/index.ts @@ -238,7 +238,7 @@ export const byMarker: Compare.Order<marker> = Compare.structural; /** Location: function and marker */ export interface location { /** Function */ - function: Json.key<'#fct'>; + fct: Json.key<'#fct'>; /** Marker */ marker: marker; } @@ -246,7 +246,7 @@ export interface location { /** Loose decoder for `location` */ export const jLocation: Json.Loose<location> = Json.jObject({ - function: Json.jFail(Json.jKey<'#fct'>('#fct'),'#fct expected'), + fct: Json.jFail(Json.jKey<'#fct'>('#fct'),'#fct expected'), marker: jMarkerSafe, }); @@ -257,8 +257,8 @@ export const jLocationSafe: Json.Safe<location> = /** Natural order for `location` */ export const byLocation: Compare.Order<location> = Compare.byFields - <{ function: Json.key<'#fct'>, marker: marker }>({ - function: Compare.string, + <{ fct: Json.key<'#fct'>, marker: marker }>({ + fct: Compare.string, marker: byMarker, }); diff --git a/src/plugins/server/kernel_ast.ml b/src/plugins/server/kernel_ast.ml index b707805c9980c3ac1b8d6e653b9158c3933282ab..dfc1510305d2ee0835c65483225a72f20f85c703 100644 --- a/src/plugins/server/kernel_ast.ml +++ b/src/plugins/server/kernel_ast.ml @@ -322,7 +322,7 @@ end module KfMarker = struct type record let record : record Record.signature = Record.signature () - let fct = Record.field record ~name:"function" + let fct = Record.field record ~name:"fct" ~descr:(Md.plain "Function") (module Kf) let marker = Record.field record ~name:"marker" ~descr:(Md.plain "Marker") (module Marker)