From b63df3a5806c33401f03a8e9eb33fc3291872105 Mon Sep 17 00:00:00 2001
From: Thomas Bauereiss
Date: Tue, 1 Aug 2017 18:41:34 +0100
Subject: Add missing lexp case to Ocaml pretty-printer

---
 src/pretty_print_ocaml.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/pretty_print_ocaml.ml b/src/pretty_print_ocaml.ml
index 4f2c3ab0..66252d94 100644
--- a/src/pretty_print_ocaml.ml
+++ b/src/pretty_print_ocaml.ml
@@ -237,7 +237,7 @@ let doc_exp_ocaml, doc_let_ocaml =
           doc_op coloneq (doc_lexp_ocaml true le) (exp e)
         | LEXP_vector _ ->
           doc_op (string "<-") (doc_lexp_array_ocaml le) (exp e)
-        | LEXP_vector_range _ ->
+        | LEXP_vector_range _ | LEXP_field _ ->
           doc_lexp_rwrite le e)
       else
        (match le_act with
-- 
cgit v1.2.3