apply stylistic suggestions

cardano-foundation · May 10, 2022 · c1e8181 · c1e8181
1 parent 15a841e
commit c1e8181
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 12 deletions.
diff --git a/lib/cli/src/Cardano/CLI.hs b/lib/cli/src/Cardano/CLI.hs
@@ -730,7 +730,7 @@ cmdWalletGetUtxoStatistics mkClient =
 data TransactionFeatures = NoShelleyFeatures | ShelleyFeatures
     deriving (Show, Eq)
 
--- | which json schema to use for output, True is simple
+-- | Which json schema to use for output
 metadataSchemaOption :: Parser TxMetadataSchema
 metadataSchemaOption = flag TxMetadataDetailedSchema TxMetadataNoSchema
     $ long "simple-metadata"

diff --git a/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/Transactions.hs b/lib/core-integration/src/Test/Integration/Scenario/CLI/Shelley/Transactions.hs
@@ -494,12 +494,12 @@ spec = describe "SHELLEY_CLI_TRANSACTIONS" $ do
                     wallet <- emptyWallet ctx
                     (Exit code, Stdout out, Stderr err) <-
                         listTransactionsViaCLI ctx TxMetadataDetailedSchema $
-                        join
-                            [ [T.unpack $ wallet ^. walletId]
-                            , maybe [] (\t -> ["--start", t]) mStart
-                            , maybe [] (\t -> ["--end"  , t]) mEnd
-                            , maybe [] (\o -> ["--order", showT o]) mOrder
-                            ]
+                            join
+                                [ [T.unpack $ wallet ^. walletId]
+                                , maybe [] (\t -> ["--start", t]) mStart
+                                , maybe [] (\t -> ["--end"  , t]) mEnd
+                                , maybe [] (\o -> ["--order", showT o]) mOrder
+                                ]
                     err `shouldBe` "Ok.\n"
                     out `shouldBe` "[]\n"
                     code `shouldBe` ExitSuccess

diff --git a/lib/core/src/Cardano/Wallet/Api/Client.hs b/lib/core/src/Cardano/Wallet/Api/Client.hs
@@ -339,7 +339,7 @@ transactionClient =
             , deleteTransaction = _deleteTransaction
             , getTransaction =
                 \wid txid metadataSchema ->
-                _getTransaction wid txid (toSimpleMetadataFlag metadataSchema)
+                    _getTransaction wid txid (toSimpleMetadataFlag metadataSchema)
             , constructTransaction = _constructTransaction
             , balanceTransaction = _balanceTransaction
             , decodeTransaction = _decodeTransaction

diff --git a/lib/core/src/Cardano/Wallet/Api/Types/SchemaMetadata.hs b/lib/core/src/Cardano/Wallet/Api/Types/SchemaMetadata.hs
@@ -34,15 +34,15 @@ import GHC.Generics
     ( Generic )
 import Prelude
 
--- | a tag to select the json codec
+-- | A tag to select the json codec
 data TxMetadataSchema = TxMetadataNoSchema | TxMetadataDetailedSchema
     deriving (Show, Eq, Generic, NFData)
 
--- | a wrapper to drive the json codec of metadata
+-- | A wrapper to drive the json codec of metadata
 data TxMetadataWithSchema = TxMetadataWithSchema
-    { -- | how to codec the metadata into json
+    { -- | How to codec the metadata into json
         txMetadataWithSchema_schema :: TxMetadataSchema
-    , -- | the metadata
+    , -- | The metadata
         txMetadataWithSchema_metadata :: TxMetadata
     }
     deriving (Show, Eq, Generic, NFData)