Merge pull request #3499 from input-output-hk/erikd/spelling

Fix spelling errors

Author: erikd

cardano-cli/src/Cardano/CLI/Byron/Parsers.hs

@@ -507,9 +507,9 @@ parseMpcThd =
 
 parseProtocolVersion :: Parser ProtocolVersion
 parseProtocolVersion =
-  ProtocolVersion <$> (parseWord "protocol-version-major" "Protocol verson major." "WORD16" :: Parser Word16)
-                  <*> (parseWord "protocol-version-minor" "Protocol verson minor." "WORD16" :: Parser Word16)
-                  <*> (parseWord "protocol-version-alt" "Protocol verson alt." "WORD8" :: Parser Word8)
+  ProtocolVersion <$> (parseWord "protocol-version-major" "Protocol version major." "WORD16" :: Parser Word16)
+                  <*> (parseWord "protocol-version-minor" "Protocol version minor." "WORD16" :: Parser Word16)
+                  <*> (parseWord "protocol-version-alt" "Protocol version alt." "WORD8" :: Parser Word8)
 
 parseHeavyDelThd :: Parser Byron.LovelacePortion
 parseHeavyDelThd =

cardano-cli/src/Cardano/CLI/Byron/Tx.hs

@@ -170,7 +170,7 @@ txSpendGenesisUTxOByronPBFT gc nId sk (ByronAddress bAddr) outs = do
             TxMintNone
             TxScriptValidityNone
     case makeTransactionBody txBodyCont of
-      Left err -> error $ "Error occured while creating a Byron genesis based UTxO transaction: " <> show err
+      Left err -> error $ "Error occurred while creating a Byron genesis based UTxO transaction: " <> show err
       Right txBody -> let bWit = fromByronWitness sk nId txBody
                       in makeSignedTransaction [bWit] txBody
   where
@@ -209,7 +209,7 @@ txSpendUTxOByronPBFT nId sk txIns outs = do
                      TxMintNone
                      TxScriptValidityNone
   case makeTransactionBody txBodyCont of
-    Left err -> error $ "Error occured while creating a Byron genesis based UTxO transaction: " <> show err
+    Left err -> error $ "Error occurred while creating a Byron genesis based UTxO transaction: " <> show err
     Right txBody -> let bWit = fromByronWitness sk nId txBody
                     in makeSignedTransaction [bWit] txBody
 

cardano-cli/src/Cardano/CLI/Shelley/Parsers.hs

@@ -1992,7 +1992,7 @@ pMintMultiAsset balanceExecUnits =
                )
  where
    helpText = "Mint multi-asset value(s) with the multi-asset cli syntax. \
-               \You must specifiy a script witness."
+               \You must specify a script witness."
 
 pInvalidBefore :: Parser SlotNo
 pInvalidBefore =

cardano-cli/src/Cardano/CLI/Shelley/Run/Query.hs

@@ -127,7 +127,7 @@ renderShelleyQueryCmdError err =
       "Consensus mode and era mismatch. Consensus mode: " <> show cMode <>
       " Era: " <> show era
     ShelleyQueryCmdEraMismatch (EraMismatch ledgerEra queryEra) ->
-      "\nAn error mismatch occured." <> "\nSpecified query era: " <> queryEra <>
+      "\nAn error mismatch occurred." <> "\nSpecified query era: " <> queryEra <>
       "\nCurrent ledger era: " <> ledgerEra
     ShelleyQueryCmdUnsupportedMode mode -> "Unsupported mode: " <> renderMode mode
     ShelleyQueryCmdPastHorizon e -> "Past horizon: " <> show e

cardano-node/src/Cardano/Node/Parsers.hs

@@ -149,7 +149,7 @@ parseNodeHostIPv6Address str =
   maybe
     (Left $
       "Failed to parse IPv6 address: " ++ str ++
-      ". If you want to specify an IPv4 adddress, use --host-addr option.")
+      ". If you want to specify an IPv4 address, use --host-addr option.")
     (Right . NodeHostIPv6Address)
     (readMaybe str)
 

cardano-node/src/Cardano/Node/Tracing/Tracers/Consensus.hs

@@ -298,7 +298,7 @@ docChainSyncServerEvent = Documented [
     DocMsg
       (TraceChainSyncServerRead anyProto anyProto)
       []
-      "A server read has occured, either for an add block or a rollback"
+      "A server read has occurred, either for an add block or a rollback"
     , DocMsg
       (TraceChainSyncServerReadBlocked anyProto anyProto)
       []

cardano-node/src/Cardano/Node/Tracing/Tracers/NonP2P.hs

@@ -290,7 +290,7 @@ docSubscription = Documented [
     , DocMsg
         (SubscriptionTraceApplicationException anyProto (anyProto :: SomeException))
         []
-        "Application Exception occured."
+        "Application Exception occurred."
     , DocMsg
         (SubscriptionTraceAllocateSocket anyProto)
         []
@@ -342,7 +342,7 @@ docDNSResolver = Documented [
         (WithDomainName anyProto
           (DnsTraceLookupException anyProto))
         []
-        "A DNS lookup exception occured."
+        "A DNS lookup exception occurred."
     , DocMsg
         (WithDomainName anyProto
           (DnsTraceLookupAError anyProto))