fix warning formatting

src/error.ml

@@ -71,7 +71,7 @@ let pp fmt = function
     fprintf fmt "Load error: %s.@." l
 
 let pp_warning loc pp_msg =
-  Format.eprintf "@?%aWarning: %t@." Location.pp loc pp_msg
+  Format.eprintf "@,@[<v>%a@,Warning: %t@]@," Location.pp loc pp_msg
 
 let pp_error loc pp_msg =
   Format.eprintf "@?%aError: @[<v 0>%t@]@." Location.pp loc pp_msg

src/scheduling.ml

@@ -391,12 +391,11 @@ let pp_warning_unused fmt node_schs =
           (fun u ->
             let vu = get_node_var u nd in
             if vu.var_orig then
-              Format.fprintf
-                fmt
-                "   %a       Warning: variable '%s' seems unused@,"
-                Location.pp
-                vu.var_loc
-                u)
+              Error.pp_warning vu.var_loc
+                (fun fmt ->
+                  Format.fprintf
+                    fmt
+                    "variable '%s' seems unused" u))
           unused)
     node_schs
 

src/utils/location.ml

@@ -45,7 +45,9 @@ let shift_pos pos1 pos2 =
   }
 
 let line_of (s, _e) = s.pos_lnum
-let pp fmt loc = Format.fprintf fmt "%s" (Lex.range loc)
+let pp fmt loc =
+  let s = Lex.range loc in
+  Format.fprintf fmt "%s" String.(sub s 0 (length s - 1))
 
 let pp_c fmt (s, _e) =
   let filename = s.pos_fname in