Occurrences: fix ClassType wrongly named Class

Signed-off-by: Paul-Elliot <peada@free.fr>

Author: panglesd

src/document/generator.ml

@@ -284,7 +284,7 @@ module Make (Syntax : SYNTAX) = struct
       | Module { documentation; _ } -> to_link documentation None
       | ModuleType { documentation; _ } -> to_link documentation None
       | Type { documentation; _ } -> to_link documentation None
-      | Class { documentation; _ } -> to_link documentation None
+      | ClassType { documentation; _ } -> to_link documentation None
       | Value { documentation; implementation } ->
           to_link documentation implementation
       | Constructor { documentation; _ } -> to_link documentation None

src/loader/implementation.ml

@@ -146,7 +146,7 @@ let postprocess_poses source_id poses uid_to_id uid_to_loc :
                     { v with implementation = None },
                   loc )
           | Module m, loc -> Some (Module { m with implementation = None }, loc)
-          | Class m, loc -> Some (Class { m with implementation = None }, loc)
+          | ClassType m, loc -> Some (ClassType { m with implementation = None }, loc)
           | ModuleType m, loc ->
               Some (ModuleType { m with implementation = None }, loc)
           | Type m, loc -> Some (Type { m with implementation = None }, loc)
@@ -193,7 +193,7 @@ let postprocess_poses source_id poses uid_to_id uid_to_loc :
                 in
                 (Value { v with implementation }, loc)
             | Module m, loc -> (Module m, loc)
-            | Class m, loc -> (Class m, loc)
+            | ClassType m, loc -> (ClassType m, loc)
             | ModuleType m, loc -> (ModuleType m, loc)
             | Type m, loc -> (Type m, loc)
             | Constructor m, loc -> (Constructor m, loc))

src/loader/occurrences.ml

@@ -9,7 +9,7 @@ module Global_analysis = struct
     | Definition of Ident.t
     | Value of (Odoc_model.Paths.Path.Value.t, value_implementation) jump_to
     | Module of (Odoc_model.Paths.Path.Module.t, none) jump_to
-    | Class of (Odoc_model.Paths.Path.ClassType.t, none) jump_to
+    | ClassType of (Odoc_model.Paths.Path.ClassType.t, none) jump_to
     | ModuleType of (Odoc_model.Paths.Path.ModuleType.t, none) jump_to
     | Type of (Odoc_model.Paths.Path.Type.t, none) jump_to
     | Constructor of (Odoc_model.Paths.Path.Constructor.t, none) jump_to
@@ -154,7 +154,7 @@ module Global_analysis = struct
         let implementation = None in
         let documentation = childpath_of_path p in
         poses :=
-          (Class { implementation; documentation }, pos_of_loc cltyp_loc)
+          (ClassType { implementation; documentation }, pos_of_loc cltyp_loc)
           :: !poses
     | _ -> ()
 

src/model/lang.ml

@@ -27,7 +27,7 @@ module Source_info = struct
     | Definition of Paths.Identifier.SourceLocation.t
     | Value of (Path.Value.t, Paths.Identifier.SourceLocation.t) jump_to
     | Module of (Path.Module.t, none) jump_to
-    | Class of (Path.ClassType.t, none) jump_to
+    | ClassType of (Path.ClassType.t, none) jump_to
     | ModuleType of (Path.ModuleType.t, none) jump_to
     | Type of (Path.Type.t, none) jump_to
     | Constructor of (Path.Constructor.t, none) jump_to

src/odoc/occurrences.ml

@@ -130,7 +130,7 @@ let count ~dst ~warnings_options:_ directories =
               incr htbl p Odoc_model.Paths.Path.((p' : Module.t :> t))
           | Value ({documentation = Some (`Resolved p as p') ; _}), _ ->
               incr htbl p Odoc_model.Paths.Path.((p' : Value.t :> t))
-          | Class ({documentation = Some (`Resolved p as p') ; _}), _ ->
+          | ClassType ({documentation = Some (`Resolved p as p') ; _}), _ ->
               incr htbl p Odoc_model.Paths.Path.((p' : ClassType.t :> t))
           | ModuleType ({documentation = Some (`Resolved p as p') ; _}), _ ->
               incr htbl p Odoc_model.Paths.Path.((p' : ModuleType.t :> t))