From 12c7bcf99dc407d277179e9a29686366918ed729 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Thu, 18 Sep 2014 10:04:00 +0200
Subject: [PATCH] Robots.txt

---
 ocaml/qp_set_mo_class.ml | 22 ++++++----------------
 robots.txt               |  2 ++
 2 files changed, 8 insertions(+), 16 deletions(-)
 create mode 100644 robots.txt

diff --git a/ocaml/qp_set_mo_class.ml b/ocaml/qp_set_mo_class.ml
index 91034ae1..ba3ee668 100644
--- a/ocaml/qp_set_mo_class.ml
+++ b/ocaml/qp_set_mo_class.ml
@@ -147,22 +147,12 @@ let run ?(core="[]") ?(inact="[]") ?(act="[]") ?(virt="[]") ?(del="[]") ezfio_fi
        )
   in
   
-  let extract_hole = function
-    | (h,_) -> h
-  and extract_particle = function
-    | (_,p) -> p
-  and extract_hole1 = function
-    | (h,_,_,_) -> h
-    | _ -> assert false
-  and extract_particle1 = function
-    | (_,p,_,_) -> p
-    | _ -> assert false
-  and extract_hole2 = function
-    | (_,_,h,_) -> h
-    | _ -> assert false
-  and extract_particle2 = function
-    | (_,_,_,p) -> p
-    | _ -> assert false
+  let extract_hole (h,_) = h 
+  and extract_particle (_,p) = p 
+  and extract_hole1 (h,_,_,_) = h 
+  and extract_particle1 (_,p,_,_) = p 
+  and extract_hole2 (_,_,h,_) = h 
+  and extract_particle2 (_,_,_,p) = p 
   in
   let result = [
   List.map ~f:extract_hole single_excitations
diff --git a/robots.txt b/robots.txt
new file mode 100644
index 00000000..c2a49f4f
--- /dev/null
+++ b/robots.txt
@@ -0,0 +1,2 @@
+User-agent: *
+Allow: /