Fix reanalyze

Author: cknitt

Makefile

@@ -48,7 +48,7 @@ test-gentype:
 test-all: test test-gentype
 
 reanalyze:
-	reanalyze.exe -set-exit-code -all-cmt _build/default/compiler -suppress compiler/syntax/testrunner -exclude-paths compiler/outcome_printer,compiler/ounit_tests,compiler/ml,compiler/js_parser,compiler/frontend,compiler/ext,compiler/depends,compiler/core,compiler/common,compiler/cmij,compiler/bsb_helper,compiler/bsb
+	reanalyze.exe -set-exit-code -all-cmt _build/default/compiler _build/default/tests -exclude-paths compiler/outcome_printer,compiler/ml,compiler/js_parser,compiler/frontend,compiler/ext,compiler/depends,compiler/core,compiler/common,compiler/cmij,compiler/bsb_helper,compiler/bsb
 
 lib: build node_modules/.bin/semver
 	./scripts/buildRuntime.sh

compiler/syntax/src/res_io.ml

@@ -11,4 +11,4 @@ let write_file ~filename ~contents:txt =
   let chan = open_out_bin filename in
   output_string chan txt;
   close_out chan
-[@@raises Sys_error]
+[@@raises Sys_error] [@@dead "+write_file"]

compiler/syntax/src/res_io.mli

@@ -5,3 +5,4 @@ val read_file : filename:string -> string
 
 (* writes "content" into file with name "filename" *)
 val write_file : filename:string -> contents:string -> unit
+[@@dead "+write_file"]

compiler/syntax/src/res_multi_printer.mli

@@ -1,3 +1,3 @@
 (* Interface to print source code to res.
  * Takes a filename called "input" and returns the corresponding formatted res syntax *)
-val print : ?ignore_parse_errors:bool -> string -> string
+val print : ?ignore_parse_errors:bool -> string -> string [@@dead "+print"]