Fix help text header typos

input-output-hk · Dec 7, 2023 · db25114 · db25114
1 parent 6dea4b6
commit db25114
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/marlowe-chain-sync/marlowe-chain-sync/Options.hs b/marlowe-chain-sync/marlowe-chain-sync/Options.hs
@@ -221,7 +221,7 @@ parseOptions defaultNetworkId defaultSocketPath defaultDatabaseUri defaultHost d
       mconcat
         [ O.fullDesc
         , O.progDescDoc $ Just description
-        , O.header "marlowe-chain-indexer: Chain query and sync server for the Marlowe Runtime."
+        , O.header "marlowe-chain-sync: Chain query and sync server for the Marlowe Runtime."
         ]
 
 description :: Doc ann

diff --git a/marlowe-runtime/marlowe-contract/Main.hs b/marlowe-runtime/marlowe-contract/Main.hs
@@ -331,7 +331,7 @@ getOptions = do
       mconcat
         [ fullDesc
         , progDescDoc $ Just description
-        , header "marlowe-tx: Transaction creation server for the Marlowe Runtime."
+        , header "marlowe-contract: Contract storage service for the Marlowe Runtime."
         ]
 
 description :: Doc ann