From f61d86f83b701ae3ce3d7f542325e0bfa4c8d810 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net>
Date: Tue, 5 Sep 2017 15:37:10 +0200
Subject: Pputils: fix typo

---
 printing/pputils.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'printing')

diff --git a/printing/pputils.ml b/printing/pputils.ml
index c6b8d5022..59e5f68f2 100644
--- a/printing/pputils.ml
+++ b/printing/pputils.ml
@@ -68,7 +68,7 @@ let pr_short_red_flag pr r =
 
 let pr_red_flag pr r =
   try pr_short_red_flag pr r
-  with complexRedFlags ->
+  with ComplexRedFlag ->
     (if r.rBeta then pr_arg str "beta" else mt ()) ++
       (if r.rMatch && r.rFix && r.rCofix then pr_arg str "iota" else
           (if r.rMatch then pr_arg str "match" else mt ()) ++
-- 
cgit v1.2.3