Don't write annotation in case of IncorrectDeadAnnotation.

Author: cristianoc

analysis/reanalyze/examples/deadcode/expected/deadcode.txt

@@ -2592,8 +2592,6 @@ File References
   Incorrect Dead Annotation
   File "DeadTest.res", line 178, characters 1-23
   deadIncorrect  is annotated @dead but is live
-  <-- line 178
-  @dead("deadIncorrect") let deadIncorrect = 34
 
   Warning Unused Argument
   File "TestOptArg.res", line 9, characters 1-66

analysis/reanalyze/src/DeadCommon.ml

@@ -401,7 +401,9 @@ let emitWarning ~decl ~message deadWarning =
     | _ -> false
   in
   let shouldWriteAnnotation =
-    (not (isToplevelValueWithSideEffects decl)) && Suppress.filter decl.pos
+    (not (isToplevelValueWithSideEffects decl))
+    && Suppress.filter decl.pos
+    && deadWarning <> IncorrectDeadAnnotation
   in
   let lineInfo =
     if shouldWriteAnnotation then decl |> WriteDeadAnnotations.onDeadDecl