fix after rebase

Author: zth

analysis/src/CompletionBackEnd.ml

@@ -817,7 +817,7 @@ and getCompletionsForContextPath ~full ~opens ~rawOpens ~allFiles ~pos ~env
              if Utils.checkName field.fname.txt ~prefix:fieldName ~exact then
                Some
                  (Completion.create field.fname.txt ~env
-                    ~docstring:field.docstring
+                    ?deprecated:field.deprecated ~docstring:field.docstring
                     ~kind:(Completion.Field (field, recordAsString)))
              else None))
   | CPObj (cp, label) -> (

analysis/src/SharedTypes.ml

@@ -730,12 +730,12 @@ module Completion = struct
       detail;
     }
 
-  let createWithSnippet ~name ?insertText ~kind ~env ?sortText ?filterText
-      ?detail ?(docstring = []) () =
+  let createWithSnippet ~name ?insertText ~kind ~env ?sortText ?deprecated
+      ?filterText ?detail ?(docstring = []) () =
     {
       name;
       env;
-      deprecated = None;
+      deprecated;
       docstring;
       kind;
       sortText;