From a653b09ccf00753af1b332e2d3ec5c4c87614e59 Mon Sep 17 00:00:00 2001
From: Paolo Veronelli <paolo.veronelli@gmail.com>
Date: Tue, 9 Aug 2022 14:50:56 +0200
Subject: [PATCH] Apply suggestions from code review

Co-authored-by: Yura Lazarev <Unisay@users.noreply.github.com>
---
 lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs
index 7ac9a647738..2820ac48226 100644
--- a/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs
+++ b/lib/shelley/src/Cardano/Wallet/Shelley/Network/Blockfrost.hs
@@ -457,8 +457,7 @@ withNetworkLayer tr network np project k = do
         BlockfrostLayer IO ->
         SealedTx ->
         ExceptT ErrPostTx IO ()
-    postBFTransaction BlockfrostLayer{..} sealed = do
-        ExceptT $ do
+    postBFTransaction BlockfrostLayer{..} sealed = ExceptT $ do
             result <- bfPostTx $ BF.CBORString
                 $ BL.fromStrict $ serialisedTx sealed
             pure $ case result of