Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
e288d0a5
Commit
e288d0a5
authored
Jun 07, 2017
by
Mário Pereira
Browse files
OCaml printer: minor
parent
aa89bbde
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mlw/ocaml_printer.ml
View file @
e288d0a5
...
...
@@ -417,7 +417,7 @@ module Print = struct
(
print_expr
info
)
e1
(
print_expr
info
)
e2
|
Eif
(
e1
,
e2
,
e3
)
->
fprintf
fmt
(
protect_on
paren
"@[<hv>@[<hov 2>if@ %a@
]@
then@
;<1 2>
@[%a@]@;<1 0>else@;<1 2>@[%a@]@]"
)
"@[<hv>@[<hov 2>if@ %a@ then@
@[%a@]@
]@
;<1 0>else@;<1 2>@[%a@]@]"
)
(
print_expr
info
)
e1
(
print_expr
info
)
e2
(
print_expr
info
)
e3
|
Eblock
[]
->
fprintf
fmt
"()"
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment