diff options
| author | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2018-02-24 09:26:03 +0100 |
| commit | 7895d276146496648d576914aab4aded4b4a32cd (patch) | |
| tree | 24e8de17078242c1ea39e31ecfe55a1c024d0eff /printing/pputils.ml | |
| parent | 0c5f0afffd37582787f79267d9841259095b7edc (diff) | |
| parent | 9bebbb96e58b3c1b0f7f88ba2af45462eae69b0f (diff) | |
Merge PR #6745: [ast] Improve precision of Ast location recognition in serialization.
Diffstat (limited to 'printing/pputils.ml')
| -rw-r--r-- | printing/pputils.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/printing/pputils.ml b/printing/pputils.ml index a544b47623..e779fc5fc0 100644 --- a/printing/pputils.ml +++ b/printing/pputils.ml @@ -24,9 +24,11 @@ let pr_located pr (loc, x) = before ++ x ++ after | _ -> pr x +let pr_ast pr { CAst.loc; v } = pr_located pr (loc, v) + let pr_or_var pr = function | ArgArg x -> pr x - | ArgVar (_,s) -> Names.Id.print s + | ArgVar {CAst.v=s} -> Names.Id.print s let pr_with_occurrences pr keyword (occs,c) = match occs with |