diff options
| author | Pierre-Marie Pédrot | 2019-05-04 19:31:07 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-05-04 19:31:07 +0200 |
| commit | 383991b5c1e9014229f2ca7124f10e6a2e995194 (patch) | |
| tree | 0f879e78071d319ebbcbedbf109e7abd8e3aab17 /vernac/topfmt.ml | |
| parent | 69466c61e5f6315599669fa7255aa5ac37d7b91a (diff) | |
| parent | 7461f18cbe722610613bdd8c729665ac48395b6e (diff) | |
Merge PR #9926: [vernac] [ast] Make location info an attribute of vernaculars.
Ack-by: SkySkimmer
Ack-by: ejgallego
Reviewed-by: ppedrot
Diffstat (limited to 'vernac/topfmt.ml')
| -rw-r--r-- | vernac/topfmt.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/vernac/topfmt.ml b/vernac/topfmt.ml index 7bc3264968..118c126970 100644 --- a/vernac/topfmt.ml +++ b/vernac/topfmt.ml @@ -425,7 +425,7 @@ let with_output_to_file fname func input = (* For coqtop -time, we display the position in the file, and a glimpse of the executed command *) -let pr_cmd_header {CAst.loc;v=com} = +let pr_cmd_header com = let shorten s = if Unicode.utf8_length s > 33 then (Unicode.utf8_sub s 0 30) ^ "..." else s in @@ -435,7 +435,7 @@ let pr_cmd_header {CAst.loc;v=com} = | x -> x ) s in - let (start,stop) = Option.cata Loc.unloc (0,0) loc in + let (start,stop) = Option.cata Loc.unloc (0,0) com.CAst.loc in let safe_pr_vernac x = try Ppvernac.pr_vernac x with e -> str (Printexc.to_string e) in |