diff options
| author | Kathy Gray | 2015-06-10 11:11:05 +0100 |
|---|---|---|
| committer | Kathy Gray | 2015-06-10 11:11:05 +0100 |
| commit | 8e228687755b0b070e64654919302d8f8f510c6f (patch) | |
| tree | 8aeab4e91b27789ffa7b83ef9dcfd6af4a695d60 /src/pretty_print.ml | |
| parent | 47899c51a2eb637a84585207c462d6512f628ba2 (diff) | |
Put missing cases into nexp_eq_check
Diffstat (limited to 'src/pretty_print.ml')
| -rw-r--r-- | src/pretty_print.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/pretty_print.ml b/src/pretty_print.ml index 25a9f41b..c56293ad 100644 --- a/src/pretty_print.ml +++ b/src/pretty_print.ml @@ -1176,6 +1176,10 @@ let to_buf ?(len=80) buf doc = ToBuffer.pretty 1. len buf doc let pp_defs f d = print f (doc_defs d) let pp_exp b e = to_buf b (doc_exp e) +let pat_to_string p = + let b = Buffer.create 20 in + to_buf b (doc_pat p); + Buffer.contents b (**************************************************************************** * PPrint-based sail-to-ocaml pretty printer, primarily for types |