Apply suggestions from code review

Co-authored-by: Yura Lazarev <Unisay@users.noreply.github.com>
cardano-foundation · Aug 9, 2022 · a653b09 · a653b09
1 parent e9996d9
commit a653b09
Showing 1 changed file with 1 addition and 2 deletions.
diff --git 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