From c513f3f1ab4bec9a7b1990e288d2c68d0bd042ec Mon Sep 17 00:00:00 2001
From: Sangwoo Joh <work.sangwoo.joh@gmail.com>
Date: Mon, 31 Oct 2022 14:10:21 +0900
Subject: [PATCH] Fix lift in debugging monad

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

diff --git a/lib/parser.ml b/lib/parser.ml
index 7afcc2a..3098faa 100644
--- a/lib/parser.ml
+++ b/lib/parser.ml
@@ -163,7 +163,7 @@ module Monad_use_for_debugging = struct
   let (<$>) f m = m >>| f
   let (<*>) f m = f >>= fun f -> m >>| f
 
-  let lift  = (>>|)
+  let lift  = (<$>)
   let lift2 f m1 m2       = f <$> m1 <*> m2
   let lift3 f m1 m2 m3    = f <$> m1 <*> m2 <*> m3
   let lift4 f m1 m2 m3 m4 = f <$> m1 <*> m2 <*> m3 <*> m4