From 4a8399e62dd4bdf5876e714910dd2c7cb433dfda Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Tue, 5 Sep 2017 01:29:21 +0200
Subject: Typeclasses_eauto strategy is now optional.

---
 src/tac2stdlib.ml   | 2 +-
 src/tac2tactics.ml  | 2 +-
 src/tac2tactics.mli | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml
index b64aac3559..a0eb0d60e5 100644
--- a/src/tac2stdlib.ml
+++ b/src/tac2stdlib.ml
@@ -666,7 +666,7 @@ let () = define_prim4 "tac_newauto" begin fun bt dbg n lems dbs ->
 end
 
 let () = define_prim3 "tac_typeclasses_eauto" begin fun bt str n dbs ->
-  let str = to_strategy str in
+  let str = Value.to_option to_strategy str in
   let n = Value.to_option Value.to_int n in
   let dbs = Value.to_option (fun l -> Value.to_list Value.to_ident l) dbs in
   Tac2tactics.typeclasses_eauto str n dbs
diff --git a/src/tac2tactics.ml b/src/tac2tactics.ml
index 6cf8f24f27..447f602f7a 100644
--- a/src/tac2tactics.ml
+++ b/src/tac2tactics.ml
@@ -251,4 +251,4 @@ let typeclasses_eauto strategy depth dbs =
     let dbs = List.map Id.to_string dbs in
     false, dbs
   in
-  Class_tactics.typeclasses_eauto ~only_classes ~strategy ~depth dbs
+  Class_tactics.typeclasses_eauto ~only_classes ?strategy ~depth dbs
diff --git a/src/tac2tactics.mli b/src/tac2tactics.mli
index e0cd77096b..78d421303a 100644
--- a/src/tac2tactics.mli
+++ b/src/tac2tactics.mli
@@ -97,5 +97,5 @@ val new_auto : Hints.debug -> int option -> constr tactic list ->
 val eauto : Hints.debug -> int option -> int option -> constr tactic list ->
   Id.t list option -> unit Proofview.tactic
 
-val typeclasses_eauto : Class_tactics.search_strategy -> int option ->
+val typeclasses_eauto : Class_tactics.search_strategy option -> int option ->
   Id.t list option -> unit Proofview.tactic
-- 
cgit v1.2.3