Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

[fix] slicer: prettier error message

no newline in the middle of the message :/
  • Loading branch information...
commit e52bd65cf42202f0496385b0353f5a594ee38eba 1 parent ef64b0c
Valentin Gatien-Baron authored
Showing with 7 additions and 3 deletions.
  1. +7 −3 qmlslicer/qmlSimpleSlicer.ml
View
10 qmlslicer/qmlSimpleSlicer.ml
@@ -507,9 +507,13 @@ let pp_private_path pp_pos f info =
| `key key -> Format.fprintf f "%%%%%a%%%% which is a server bypass" BslKey.pp key
| `package package -> Format.fprintf f "from package %a" Package.pp_full package
| `annot -> Format.fprintf f "which is annotated as @@server_private" in
- Format.fprintf f "@[<v>%a@ %a@]"
- (Format.pp_list "@ " pp_info) l
- pp_end end_
+ if l = [] then
+ Format.fprintf f "@[<v>%a@]"
+ pp_end end_
+ else
+ Format.fprintf f "@[<v>%a@ %a@]"
+ (Format.pp_list "@ " pp_info) l
+ pp_end end_
(* FIXME: with the smarter analysis for side effects, this function doesn't work anymore:
* @server b = 1
Please sign in to comment.
Something went wrong with that request. Please try again.