CAD-2827 whitespace cleanups

input-output-hk · Apr 7, 2021 · 0a75a31 · 0a75a31
1 parent 8d5c483
commit 0a75a31
Show file tree

Hide file tree

Showing 4 changed files with 11 additions and 11 deletions.
diff --git a/cardano-tx-generator/src/Cardano/Benchmarking/GeneratorTx/NodeToNode.hs b/cardano-tx-generator/src/Cardano/Benchmarking/GeneratorTx/NodeToNode.hs
@@ -61,7 +61,7 @@ benchmarkConnectTxSubmit
   -> Tracer IO SendRecvConnect
   -> Tracer IO SendRecvTxSubmission
   -> CodecConfig CardanoBlock
-  -> NetworkMagic 
+  -> NetworkMagic
   -> AddrInfo
   -- ^ remote address information
   -> TxSubmissionClient (GenTxId blk) (GenTx blk) IO ()

diff --git a/cardano-tx-generator/src/Cardano/Benchmarking/Script/Setters.hs b/cardano-tx-generator/src/Cardano/Benchmarking/Script/Setters.hs
@@ -28,7 +28,7 @@ import           Cardano.Benchmarking.Types
 
 -- Some boiler plate; ToDo may generate this.
 data Tag v where
-  TInitCooldown         :: Tag InitCooldown  
+  TInitCooldown         :: Tag InitCooldown
   TNumberOfInputsPerTx  :: Tag NumberOfInputsPerTx
   TNumberOfOutputsPerTx :: Tag NumberOfOutputsPerTx
   TNumberOfTxs          :: Tag NumberOfTxs

diff --git a/cardano-tx-generator/src/Cardano/Benchmarking/Script/Store.hs b/cardano-tx-generator/src/Cardano/Benchmarking/Script/Store.hs
@@ -32,7 +32,7 @@ import qualified Cardano.Benchmarking.GeneratorTx.Tx as Core (Fund)
 type Fund = (Core.Fund, SigningKey PaymentKey)
 
 data Store v where
-  User   :: Setters.Tag x -> Store x 
+  User   :: Setters.Tag x -> Store x
   LoggingLayer :: Store LoggingLayer
   Protocol     :: Store (Cardano.Protocol IO CardanoBlock ProtocolCardano)
   BenchTracers :: Store Core.BenchTracers

diff --git a/cardano-tx-generator/test/Main.hs b/cardano-tx-generator/test/Main.hs
@@ -7,7 +7,7 @@ import           Test.Tasty
 import           Test.Tasty.HUnit
 import           Text.Heredoc
 import           Options.Applicative
-  
+
 import           Cardano.Benchmarking.Command (commandParser)
 import           Cardano.Benchmarking.CliArgsScript (parseGeneratorCmd)
 import           Cardano.Benchmarking.GeneratorTx.SizedMetadata
@@ -25,7 +25,7 @@ tests =  testGroup "cardano-tx-generator"
   , sizedMetadata
   , mockServer
   ]
-  
+
 mockServer = testGroup "direct/pure client-server connect"
   [ testCase "tx-send == tx-received" $ assertBool "tx-send == tx-received" True -- TODO !
   ]
@@ -58,12 +58,12 @@ cliArgs = testGroup "cli arguments"
                         $ getParseResult $ execParserPure defaultPrefs (info commandParser fullDesc)
                            $ words l
 
-pinnedHelpMessage = [here|ParserFailure(Usage: <program> --config FILEPATH --socket-path FILEPATH 
-                 [--shelley | --mary | --allegra] [(--target-node (HOST,PORT))] 
-                 [--init-cooldown INT] [--initial-ttl INT] [--num-of-txs INT] 
-                 [--tps DOUBLE] [--inputs-per-tx INT] [--outputs-per-tx INT] 
-                 [--tx-fee INT] [--add-tx-size INT] 
-                 [--fail-on-submission-errors] 
+pinnedHelpMessage = [here|ParserFailure(Usage: <program> --config FILEPATH --socket-path FILEPATH
+                 [--shelley | --mary | --allegra] [(--target-node (HOST,PORT))]
+                 [--init-cooldown INT] [--initial-ttl INT] [--num-of-txs INT]
+                 [--tps DOUBLE] [--inputs-per-tx INT] [--outputs-per-tx INT]
+                 [--tx-fee INT] [--add-tx-size INT]
+                 [--fail-on-submission-errors]
                  (--genesis-funds-key FILEPATH | --utxo-funds-key FILEPATH
                    --tx-in TX-IN --tx-out TX-OUT |
                    --split-utxo-funds-key FILEPATH --split-utxo FILEPATH)