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 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/tac2stdlib.ml')

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
-- 
cgit v1.2.3