From db25114ec91ccdab3228b99e791fd7232f8625bf Mon Sep 17 00:00:00 2001 From: Jamie Bertram Date: Thu, 7 Dec 2023 17:02:15 -0500 Subject: [PATCH] Fix help text header typos --- marlowe-chain-sync/marlowe-chain-sync/Options.hs | 2 +- marlowe-runtime/marlowe-contract/Main.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/marlowe-chain-sync/marlowe-chain-sync/Options.hs b/marlowe-chain-sync/marlowe-chain-sync/Options.hs index 1d8662b1a1..ec33062b21 100644 --- 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 index a65dcc802f..d799f465d1 100644 --- 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