reorder constructor hover details so that the constructor + eventual docstring ends up on top before the full variant definition

Author: zth

analysis/src/Hover.ml

@@ -251,7 +251,7 @@ let newHover ~full:{file; package} ~supportsMarkdownLinks locItem =
               |> List.map (fun (t, _) -> Shared.typeToString t)
               |> String.concat ", " |> Printf.sprintf "(%s)"
           in
-          typeString :: Markdown.codeBlock (txt ^ argsString) :: docstring
+          [Markdown.codeBlock (txt ^ argsString)] @ docstring @ [typeString]
         | `Field ->
           let typeString, docstring = t |> fromType ~docstring in
           typeString :: docstring)

analysis/tests/src/Hover.res

@@ -248,3 +248,8 @@ let x: recordWithDocstringField = {
 
 let someField = x.someField
 //                 ^hov
+
+type variant = | /** Cool variant! */ CoolVariant | /** Other cool variant */ OtherCoolVariant
+
+let coolVariant = CoolVariant
+//                  ^hov

analysis/tests/src/expected/Hover.res.txt

@@ -189,3 +189,6 @@ Completable: Cpath Value[x].someField
 Hover src/Hover.res 248:19
 {"contents": {"kind": "markdown", "value": "```rescript\nbool\n```\n\n Mighty fine field here. "}}
 
+Hover src/Hover.res 253:20
+{"contents": {"kind": "markdown", "value": "```rescript\nCoolVariant\n```\n\n Cool variant! \n\n```rescript\nvariant\n```\n\n---\n\n```\n \n```\n```rescript\ntype variant = CoolVariant | OtherCoolVariant\n```\nGo to: [Type definition](command:rescript-vscode.go_to_location?%5B%22Hover.res%22%2C251%2C0%5D)\n"}}
+