grammar raid

Author: Soupstraw

eras/byron/ledger/impl/src/Cardano/Chain/Genesis/Config.hs

@@ -163,7 +163,7 @@ data ConfigurationError
     ConfigurationGenesisDataError GenesisDataError
   | -- | The GenesisData canonical JSON hash is different than expected
     GenesisHashMismatch GenesisHash (Hash Raw)
-  | -- | An error occured while decoding the genesis hash.
+  | -- | An error occurred while decoding the genesis hash.
     GenesisHashDecodeError Text
   deriving (Show)
 

eras/conway/impl/testlib/Test/Cardano/Ledger/Conway/Binary/Golden.hs

@@ -138,7 +138,7 @@ spec = do
           it "8th field" . expectFailureOnEmptyField 8 $
             DecoderErrorDeserialiseFailure
               (Binary.label $ Proxy @(Annotator (TxWits era)))
-              (DeserialiseFailure 2 "An error occured while decoding (Int,Void) not a valid key:.\nError: 8")
+              (DeserialiseFailure 2 "An error occurred while decoding (Int,Void) not a valid key:.\nError: 8")
         describe "Tagged" $ do
           let
             expectFailureOnEmptyField k =

eras/dijkstra/impl/testlib/Test/Cardano/Ledger/Dijkstra/Binary/Golden.hs

@@ -96,7 +96,7 @@ goldenEmptyFields version =
       it "8th field" . expectFailureOnEmptyField 8 $
         DecoderErrorDeserialiseFailure
           (Binary.label $ Proxy @(Annotator (TxWits era)))
-          (DeserialiseFailure 2 "An error occured while decoding (Int,Void) not a valid key:.\nError: 8")
+          (DeserialiseFailure 2 "An error occurred while decoding (Int,Void) not a valid key:.\nError: 8")
     describe "Tagged" $ do
       let
         expectFailureOnEmptyField k =
@@ -129,7 +129,7 @@ goldenEmptyFields version =
       it "8th field" . expectFailureOnEmptyField 8 $
         DecoderErrorDeserialiseFailure
           (Binary.label $ Proxy @(Annotator (TxWits era)))
-          (DeserialiseFailure 2 "An error occured while decoding (Int,Void) not a valid key:.\nError: 8")
+          (DeserialiseFailure 2 "An error occurred while decoding (Int,Void) not a valid key:.\nError: 8")
 
 witsDuplicateVKeyWits :: Enc
 witsDuplicateVKeyWits =

eras/shelley/impl/src/Cardano/Ledger/Shelley/State/Account.hs

@@ -185,7 +185,7 @@ class EraAccounts era => ShelleyEraAccounts era where
   -- | This is a getter for a `Ptr`. It is not a full lens, because it is not only unsafe to modify
   -- a pointer for an existing AccountState due to violation of an invariant in the
   -- `ShelleyAccounts`, but also because once account is registered pointer cannot change. Pointer
-  -- describes unique point on chain when registration has occured, which means it can't change.
+  -- describes unique point on chain when registration has occurred, which means it can't change.
   ptrAccountStateG :: SimpleGetter (AccountState era) Ptr
   default ptrAccountStateG ::
     AccountState era ~ ShelleyAccountState era =>

libs/small-steps/src/Control/State/Transition/Extended.hs

@@ -640,7 +640,7 @@ applyRuleInternal ::
   -- | We need to know if the current STS incurred at least one
   -- PredicateFailure.  This is necessary because `applyRuleInternal` is called
   -- recursively through the @goSTS@ argument, which will not have access to any
-  -- of the predicate failures occured in other branches of STS rule execusion tree.
+  -- of the predicate failures occurred in other branches of STS rule execusion tree.
   IsFailing ->
   SingEP ep ->
   ValidationPolicy ->