From ea0198388ee25d9f664b317bb9e8b9ac93f3ccb4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Georges=20Dup=C3=A9ron?= <georges.duperon@nomadic-labs.com>
Date: Thu, 14 Mar 2019 18:45:22 +0100
Subject: [PATCH] Humour (bis)

---
 AST2.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/AST2.ml b/AST2.ml
index f8340a431..9b260c5e0 100644
--- a/AST2.ml
+++ b/AST2.ml
@@ -70,7 +70,7 @@ module O = struct
 
   and operator =
     Function    of var_name
-  | Construcor  of var_name
+  | Constructor of var_name
   | UpdateField of field_name
   | GetField    of field_name
   | Or | And | Lt | Leq | Gt | Geq | Equal | Neq | Cat | Cons | Add | Sub | Mult | Div | Mod