add broken completion case for result, which accidentally completes from Pervasives when it should complete from Belt.Result

Author: zth

analysis/tests/src/Completion.res

@@ -420,3 +420,8 @@ let onClick = evt => {
 
 // let _ = 123.0->t
 //                 ^com
+
+let ok = Ok(true)
+
+// ok->
+//     ^com