diff options
Diffstat (limited to 'lib/monad.ml')
-rw-r--r-- | lib/monad.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/monad.ml b/lib/monad.ml index 4a52684d..a1714a41 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) |