Skip to content

Commit 73745b0

Browse files
Jimbo4350Jimbo4350
committed
Remove all Data.Map usage within bench folder
1 parent d6e134f commit 73745b0

File tree

8 files changed

+56
-58
lines changed

8 files changed

+56
-58
lines changed

‎bench/locli/src/Cardano/Unlog/LogObject.hs

Lines changed: 22 additions & 22 deletions
Original file line numberDiff line numberDiff line change
@@ -10,28 +10,28 @@
1010

1111
module Cardano.Unlog.LogObject (module Cardano.Unlog.LogObject) where
1212

13-
import Prelude (head, id, show, unzip3)
14-
import Cardano.Prelude hiding (Text, head, show)
15-
16-
import Control.Monad (fail)
17-
import Data.Aeson qualified as AE
18-
import Data.Aeson.KeyMap qualified as KeyMap
19-
import Data.Aeson.Types (Parser)
20-
import Data.Aeson.Key qualified as Aeson
21-
import Data.ByteString.Lazy qualified as LBS
22-
import Data.Text qualified as LText
23-
import Data.Text.Short qualified as Text
24-
import Data.Text.Short (ShortText, fromText, toText)
25-
import Data.Map qualified as Map
26-
import Data.Vector (Vector)
27-
import Data.Vector qualified as V
28-
29-
import Cardano.Logging.Resources.Types
30-
31-
import Cardano.Analysis.API.Ground
32-
import Cardano.Util
33-
34-
import Data.Accum (zeroUTCTime)
13+
import Cardano.Prelude hiding (Text, head, show)
14+
import Prelude (head, id, show, unzip3)
15+
16+
import Control.Monad (fail)
17+
import qualified Data.Aeson as AE
18+
import qualified Data.Aeson.Key as Aeson
19+
import qualified Data.Aeson.KeyMap as KeyMap
20+
import Data.Aeson.Types (Parser)
21+
import qualified Data.ByteString.Lazy as LBS
22+
import qualified Data.Map.Strict as Map
23+
import qualified Data.Text as LText
24+
import Data.Text.Short (ShortText, fromText, toText)
25+
import qualified Data.Text.Short as Text
26+
import Data.Vector (Vector)
27+
import qualified Data.Vector as V
28+
29+
import Cardano.Logging.Resources.Types
30+
31+
import Cardano.Analysis.API.Ground
32+
import Cardano.Util
33+
34+
import Data.Accum (zeroUTCTime)
3535

3636

3737
type Text = ShortText

‎bench/trace-analyzer/src/Cardano/Tracer/Analyze/Process.hs

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -5,17 +5,17 @@ module Cardano.Tracer.Analyze.Process
55
, extractNamespace
66
) where
77

8-
import Cardano.Tracer.Analyze.Types (FileDBM (..), LineNumber)
8+
import Cardano.Tracer.Analyze.Types (FileDBM (..), LineNumber)
99

10-
import qualified Data.Aeson as AE
11-
import qualified Data.Aeson.KeyMap as AE
10+
import qualified Data.Aeson as AE
11+
import qualified Data.Aeson.KeyMap as AE
1212
import qualified Data.Attoparsec.ByteString.Char8 as Atto
13-
import qualified Data.ByteString.Char8 as BS
14-
import Data.Either (partitionEithers)
15-
import Data.Foldable (foldl')
16-
import qualified Data.Map as Map
17-
import qualified Data.Text as Txt
18-
import qualified Data.Vector as V
13+
import qualified Data.ByteString.Char8 as BS
14+
import Data.Either (partitionEithers)
15+
import Data.Foldable (foldl')
16+
import qualified Data.Map.Strict as Map
17+
import qualified Data.Text as Txt
18+
import qualified Data.Vector as V
1919

2020
parseAndPreprocess :: FilePath -> IO FileDBM
2121
parseAndPreprocess fp = do

‎bench/trace-analyzer/src/Cardano/Tracer/Analyze/Report.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ import Control.Monad (when)
88
import qualified Data.Aeson as AE
99
import Data.ByteString.Lazy (toStrict)
1010
import Data.List (nub, (\\))
11-
import qualified Data.Map as Map
11+
import qualified Data.Map.Strict as Map
1212
import Data.Text (Text, drop, isPrefixOf, unpack)
1313
import Data.Text.Encoding (decodeUtf8)
1414

‎bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/NodeToNode.hs

Lines changed: 9 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -14,17 +14,17 @@ import Cardano.Prelude (forever, liftIO)
1414
import Prelude
1515

1616
import Codec.Serialise (DeserialiseFailure)
17-
import Control.Monad.Class.MonadTimer (MonadTimer, threadDelay)
1817
import Control.Monad.Class.MonadSTM.Strict (newTVarIO)
18+
import Control.Monad.Class.MonadTimer (MonadTimer, threadDelay)
1919
import Data.ByteString.Lazy (ByteString)
20-
import qualified Data.Map as Map
20+
import qualified Data.Map.Strict as Map
2121
import Data.Proxy (Proxy (..))
2222
import Network.Socket (AddrInfo (..))
2323
import System.Random (newStdGen)
2424

2525
import "contra-tracer" Control.Tracer (Tracer, nullTracer)
26-
import Ouroboros.Consensus.Byron.Ledger.Mempool (GenTx)
2726
import Ouroboros.Consensus.Block.Abstract
27+
import Ouroboros.Consensus.Byron.Ledger.Mempool (GenTx)
2828
import qualified Ouroboros.Consensus.Cardano as Consensus (CardanoBlock)
2929
import Ouroboros.Consensus.Ledger.SupportsMempool (GenTxId)
3030
import Ouroboros.Consensus.Network.NodeToNode (Codecs (..), defaultCodecs)
@@ -37,19 +37,18 @@ import Ouroboros.Network.DeltaQ (defaultGSV)
3737
import Ouroboros.Network.Driver (runPeerWithLimits)
3838
import Ouroboros.Network.KeepAlive
3939
import Ouroboros.Network.Magic
40-
import Ouroboros.Network.Mux (MuxPeer (..), OuroborosApplication (..),
41-
OuroborosBundle, RunMiniProtocol (..),
42-
continueForever)
43-
import Ouroboros.Network.NodeToClient (chainSyncPeerNull, IOManager)
40+
import Ouroboros.Network.Mux (MuxPeer (..), OuroborosApplication (..), OuroborosBundle,
41+
RunMiniProtocol (..), continueForever)
42+
import Ouroboros.Network.NodeToClient (IOManager, chainSyncPeerNull)
4443
import Ouroboros.Network.NodeToNode (NetworkConnectTracers (..))
4544
import qualified Ouroboros.Network.NodeToNode as NtN
4645
import Ouroboros.Network.Protocol.BlockFetch.Client (BlockFetchClient (..),
47-
blockFetchClientPeer)
46+
blockFetchClientPeer)
4847
import Ouroboros.Network.Protocol.Handshake.Version (simpleSingletonVersions)
49-
import Ouroboros.Network.Protocol.KeepAlive.Codec
5048
import Ouroboros.Network.Protocol.KeepAlive.Client
49+
import Ouroboros.Network.Protocol.KeepAlive.Codec
5150
import Ouroboros.Network.Protocol.TxSubmission2.Client (TxSubmissionClient,
52-
txSubmissionClientPeer)
51+
txSubmissionClientPeer)
5352

5453
import Ouroboros.Network.Snocket (socketSnocket)
5554

‎bench/tx-generator/src/Cardano/Benchmarking/PlutusExample.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,7 @@
33
{-# LANGUAGE ScopedTypeVariables #-}
44
module Cardano.Benchmarking.PlutusExample
55
where
6-
import qualified Data.Map as Map
6+
import qualified Data.Map.Strict as Map
77
import Prelude
88

99
import Control.Monad.Trans.Except

‎bench/tx-generator/src/Cardano/Benchmarking/Script/Env.hs

Lines changed: 11 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -40,28 +40,27 @@ module Cardano.Benchmarking.Script.Env (
4040
, setEnvWallets
4141
) where
4242

43-
import Prelude
44-
import qualified Data.Text as Text
45-
import Data.Map (Map)
46-
import qualified Data.Map as Map
4743
import Control.Monad.IO.Class
4844
import Control.Monad.Trans.Class
4945
import Control.Monad.Trans.Except
5046
import Control.Monad.Trans.RWS.Strict (RWST)
5147
import qualified Control.Monad.Trans.RWS.Strict as RWS
5248
import "contra-tracer" Control.Tracer (traceWith)
49+
import Data.Map.Strict (Map)
50+
import qualified Data.Map.Strict as Map
51+
import qualified Data.Text as Text
52+
import Prelude
5353

54-
import qualified Cardano.Benchmarking.LogTypes as Tracer
55-
import Ouroboros.Network.NodeToClient (IOManager)
56-
import Cardano.Node.Protocol.Types (SomeConsensusProtocol)
5754
import Cardano.Benchmarking.GeneratorTx
58-
import Cardano.Benchmarking.Wallet
59-
import Cardano.Benchmarking.OuroborosImports(NetworkId,
60-
PaymentKey, ShelleyGenesis, SigningKey,
61-
StandardShelley)
55+
import qualified Cardano.Benchmarking.LogTypes as Tracer
56+
import Cardano.Benchmarking.OuroborosImports (NetworkId, PaymentKey, ShelleyGenesis,
57+
SigningKey, StandardShelley)
6258
import Cardano.Benchmarking.Script.Types
59+
import Cardano.Benchmarking.Wallet
60+
import Cardano.Node.Protocol.Types (SomeConsensusProtocol)
61+
import Ouroboros.Network.NodeToClient (IOManager)
6362

64-
import Cardano.TxGenerator.Types (TxGenError(..))
63+
import Cardano.TxGenerator.Types (TxGenError (..))
6564

6665
data Env = Env { protoParams :: Maybe ProtocolParameterMode
6766
, benchTracers :: Maybe Tracer.BenchTracers

‎bench/tx-generator/src/Cardano/Benchmarking/Tracer.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -32,16 +32,16 @@ import GHC.Generics
3232
import Data.Aeson as A
3333
import qualified Data.Aeson.KeyMap as KeyMap
3434
import Data.Kind
35-
import qualified Data.Map as Map
35+
import qualified Data.Map.Strict as Map
3636

3737
import Data.Proxy
3838
import Data.Text (Text)
3939
import qualified Data.Text as Text
4040
import Data.Time.Clock
4141

42+
import Ouroboros.Network.IOManager (IOManager)
4243
import Trace.Forward.Utils.DataPoint
4344
import Trace.Forward.Utils.TraceObject
44-
import Ouroboros.Network.IOManager (IOManager)
4545

4646
import Cardano.Api
4747
import Cardano.Logging

‎bench/tx-generator/src/Cardano/TxGenerator/Setup/Plutus.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -10,7 +10,7 @@ module Cardano.TxGenerator.Setup.Plutus
1010
)
1111
where
1212

13-
import qualified Data.Map as Map
13+
import qualified Data.Map.Strict as Map
1414

1515
import Control.Monad.Trans.Except
1616
import Control.Monad.Trans.Except.Extra

0 commit comments

Comments
 (0)