From 777f0ace3d2458cbe1840dcf3d8f350452721e84 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>
Date: Mon, 2 Feb 2015 09:30:53 +0100
Subject: Removing dead code.

---
 lib/monad.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/monad.ml')

diff --git a/lib/monad.ml b/lib/monad.ml
index 4a52684da..a1714a41b 100644
--- a/lib/monad.ml
+++ b/lib/monad.ml
@@ -111,7 +111,7 @@ module Make (M:Def) : S with type +'a t = 'a M.t = struct
       | [a] ->
           M.map (fun a' -> [a']) (f a)
       | a::b::l ->
-          map f l >>= fun l' ->
+          map_right f l >>= fun l' ->
           f b >>= fun b' ->
           M.map (fun a' -> a'::b'::l') (f a)
 
-- 
cgit v1.2.3