From ea90f1e0004d0f036850bf96a934c1ff289ce2e6 Mon Sep 17 00:00:00 2001
From: Paul Cadman <git@paulcadman.dev>
Date: Tue, 19 Nov 2024 18:06:10 +0000
Subject: [PATCH] Remove extra do

---
 src/Anoma/Effect/Base.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Anoma/Effect/Base.hs b/src/Anoma/Effect/Base.hs
index 394cfc4837..390621bfc3 100644
--- a/src/Anoma/Effect/Base.hs
+++ b/src/Anoma/Effect/Base.hs
@@ -122,9 +122,9 @@ runAnomaWithClient :: forall r a. (Members '[Logger, EmbedIO, Error SimpleError]
 runAnomaWithClient grpcInfo body =
   runProcess
     . runReader grpcInfo
-    $ do
-      (`interpret` inject body) $ \case
-        AnomaRpc method i -> anomaRpc' method i
+    $ (`interpret` inject body)
+    $ \case
+      AnomaRpc method i -> anomaRpc' method i
 
 launchAnoma :: (Members '[Logger, EmbedIO, Error SimpleError] r) => AnomaPath -> Sem r ProcessHandle
 launchAnoma anomapath = runReader anomapath . runProcess $ do