Fixed verbosity level

phases/peephole.ml

@@ -69,7 +69,7 @@ let phase = function
         let oldcount = count_instrs instrs in
         let instrs = peephole (strip_comments instrs) in
         let newcount = count_instrs instrs in
-        log_line 1 (sprintf
+        log_line 2 (sprintf
             "Optimized %d to %d instructions (%d fewer)"
             oldcount newcount (oldcount - newcount)
         );