Remove extra do

anoma · Nov 19, 2024 · 75b26f7 · 75b26f7
1 parent 4589960
commit 75b26f7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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