From a8ea528113f89302f7156416e1f3da18848e59b2 Mon Sep 17 00:00:00 2001
From: Arnaud Spiwack
Date: Tue, 21 Oct 2014 12:11:04 +0200
Subject: Add more primitives to the [Monad.Make] arguments.

For optimisation purposes.
---
 tactics/ftactic.ml | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'tactics')

diff --git a/tactics/ftactic.ml b/tactics/ftactic.ml
index d8b12fc4e4..6d6e43b21d 100644
--- a/tactics/ftactic.ml
+++ b/tactics/ftactic.ml
@@ -67,6 +67,8 @@ struct
   type 'a t = 'a focus Proofview.tactic
   let return = return
   let (>>=) = bind
+  let (>>) = (<*>)
+  let map f x = x >>= fun a -> return (f a)
 end
 
 module Ftac = Monad.Make(Self)
-- 
cgit v1.2.3