From 77ca529072cce4dc31adb77c278ccf008801f6eb Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Fri, 6 Mar 2020 18:12:04 +0100
Subject: [PATCH] Perturbation type

---
 ocaml/qptypes_generator.ml | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/ocaml/qptypes_generator.ml b/ocaml/qptypes_generator.ml
index 2c54a218..ce99fc78 100644
--- a/ocaml/qptypes_generator.ml
+++ b/ocaml/qptypes_generator.ml
@@ -219,22 +219,19 @@ module Perturbation : sig
 end = struct
   type t =
   | EN
-  | Barycentric
-  | Variance
+  | HF
   | SOP
   [@@deriving sexp]
 
   let to_string = function
   | EN -> \"EN\"
-  | Variance -> \"Variance\"
-  | Barycentric -> \"Barycentric\"
+  | HF -> \"HF\"
   | SOP -> \"SOP\"
   let of_string  s =
     match (String.lowercase_ascii s) with
     | \"sop\" -> SOP
     | \"en\"  -> EN
-    | \"variance\"  -> Variance
-    | \"barycentric\" -> Barycentric
+    | \"hf\"  -> HF
     | _ -> raise (Invalid_argument (\"Wrong Perturbation type : \"^s))
 end
 "