Clean up debug output.

Fixes #414

Author: cristianoc

analysis/src/CompletionFrontEnd.ml

@@ -678,7 +678,7 @@ let completionWithParser ~debug ~path ~posCursor ~currentFile ~text =
       | Ppat_construct (lid, _) ->
         let lidPath = flattenLidCheckDot lid in
         if debug then
-          Printf.printf "XXX Ppat_construct %s:%s\n"
+          Printf.printf "Ppat_construct %s:%s\n"
             (lidPath |> String.concat ".")
             (Loc.toString lid.loc);
         setResult (Cpath (CPId (lidPath, Value)))

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

@@ -1388,7 +1388,7 @@ posCursor:[362:8] posNoWhite:[362:7] Found expr:[360:8->365:3]
 posCursor:[362:8] posNoWhite:[362:7] Found expr:[361:2->365:3]
 posCursor:[362:8] posNoWhite:[362:7] Found pattern:[362:7->364:5]
 posCursor:[362:8] posNoWhite:[362:7] Found pattern:[362:7->362:8]
-XXX Ppat_construct T:[362:7->362:8]
+Ppat_construct T:[362:7->362:8]
 Completable: Cpath Value[T]
 [{
     "label": "That",
@@ -1421,7 +1421,7 @@ posCursor:[373:21] posNoWhite:[373:20] Found expr:[371:8->376:3]
 posCursor:[373:21] posNoWhite:[373:20] Found expr:[372:2->376:3]
 posCursor:[373:21] posNoWhite:[373:20] Found pattern:[373:7->375:5]
 posCursor:[373:21] posNoWhite:[373:20] Found pattern:[373:7->373:21]
-XXX Ppat_construct AndThatOther.T:[373:7->373:21]
+Ppat_construct AndThatOther.T:[373:7->373:21]
 Completable: Cpath Value[AndThatOther, T]
 [{
     "label": "ThatOther",