diff options
| author | Pierre Courtieu | 2015-10-19 11:17:56 +0200 |
|---|---|---|
| committer | Pierre Courtieu | 2015-10-19 13:14:01 +0200 |
| commit | 6f6b67d3f772205d9481436d62efb6074e975555 (patch) | |
| tree | f048e4fcf0bb40b54baf760c5f6a083a256ee843 /plugins/funind/functional_principles_proofs.ml | |
| parent | 7d697193ab175b6bfa3c773880c0a06348449d19 (diff) | |
Function debug mode more formatted.
Diffstat (limited to 'plugins/funind/functional_principles_proofs.ml')
| -rw-r--r-- | plugins/funind/functional_principles_proofs.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml index 169a706005..c9dd18a2fc 100644 --- a/plugins/funind/functional_principles_proofs.ml +++ b/plugins/funind/functional_principles_proofs.ml @@ -52,10 +52,10 @@ let rec print_debug_queue e = let _ = match e with | Some e -> - Pp.msg_debug (lmsg ++ (str " raised exception " ++ Errors.print e) ++ str " on goal " ++ goal) + Pp.msg_debug (hov 0 (lmsg ++ (str " raised exception " ++ Errors.print e) ++ str " on goal" ++ fnl() ++ goal)) | None -> begin - Pp.msg_debug (str " from " ++ lmsg ++ str " on goal " ++ goal); + Pp.msg_debug (str " from " ++ lmsg ++ str " on goal" ++ fnl() ++ goal); end in print_debug_queue None ; end |