Revert Hover.ml

Author: nojaf

analysis/src/Hover.ml

@@ -275,12 +275,7 @@ let newHover ~full:{file; package} ~supportsMarkdownLinks locItem =
     | Some file ->
       showModule ~docstring:file.structure.docstring ~name:file.moduleName ~file
         ~package None)
-  | Typed (_, t, Definition (_, (Field _ | Constructor _))) ->
-    let fromType typ =
-      hoverWithExpandedTypes ~file ~package ~supportsMarkdownLinks typ
-    in
-    let t = Shared.dig t in
-    Some (fromType t)
+  | Typed (_, _, Definition (_, (Field _ | Constructor _))) -> None
   | Constant t ->
     Some
       (Markdown.codeBlock