fixup

cardano-foundation · Mar 2, 2021 · a7637e7 · a7637e7
1 parent 249edb9
commit a7637e7
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/lib/core-integration/cardano-wallet-core-integration.cabal b/lib/core-integration/cardano-wallet-core-integration.cabal
@@ -68,6 +68,8 @@ library
     , retry
     , say
     , scrypt
+    , stm
+    , exceptions
     , template-haskell
     , text
     , text-class

diff --git a/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs b/lib/shelley/src/Cardano/Wallet/Shelley/Network.hs
@@ -448,15 +448,15 @@ withNetworkLayerBase tr np conn (versionData, _) action = do
 
             AnyCardanoEra ShelleyEra -> do
                 let cmd = CmdSubmitTx $ unsealShelleyTx GenTxShelley tx
-                result <- liftIO $ timeQryAndLog "postTx" tr $
+                result <- liftIO $
                     localTxSubmissionQ `send` cmd
                 case result of
                     SubmitSuccess -> pure ()
                     SubmitFail err -> throwE $ ErrPostTxBadRequest $ T.pack (show err)
 
             AnyCardanoEra AllegraEra -> do
                 let cmd = CmdSubmitTx $ unsealShelleyTx GenTxAllegra tx
-                result <- liftIO $ timeQryAndLog "postTx" tr $
+                result <- liftIO $
                     localTxSubmissionQ `send` cmd
                 case result of
                     SubmitSuccess -> pure ()

diff --git a/lib/shelley/test/integration/Main.hs b/lib/shelley/test/integration/Main.hs
@@ -113,7 +113,7 @@ import System.FilePath
 import System.IO
     ( BufferMode (..), hSetBuffering, stderr, stdout )
 import Test.Hspec
-    ( hspec )
+    ( afterAll, hspec )
 import Test.Hspec.Core.Spec
     ( Spec, SpecWith, describe, parallel, sequential )
 import Test.Hspec.Extra
@@ -126,8 +126,6 @@ import Test.Integration.Faucet
     )
 import Test.Integration.Framework.Context
     ( Context (..), PoolGarbageCollectionEvent (..) )
-import Test.Integration.Framework.DSL
-    ( KnownCommand (..) )
 import Test.Integration.Framework.Profile
     ( logTestProfile )
 import Test.Utils.Paths