Remove GenesisCredential as unused.

lehins · lehins · commit 13b48fbc081b · 2024-12-19T20:27:36.000-07:00
diff --git a/libs/cardano-ledger-core/CHANGELOG.md b/libs/cardano-ledger-core/CHANGELOG.md
@@ -2,6 +2,7 @@
 
 ## 1.17.0.0
 
+* Remove `GenesisCredential` as unused.
 * Remove `HASH`, `ADDRHASH` and `DSIGN` type families out of `Crypto` type class and turn
   them into type synonyms for the exact algorithms previously being used in
   `StandardCrypto`
diff --git a/libs/cardano-ledger-core/src/Cardano/Ledger/Credential.hs b/libs/cardano-ledger-core/src/Cardano/Ledger/Credential.hs
@@ -11,7 +11,6 @@
 
 module Cardano.Ledger.Credential (
   Credential (KeyHashObj, ScriptHashObj),
-  GenesisCredential (..),
   PaymentCredential,
   credKeyHash,
   credKeyHashWitness,
@@ -70,7 +69,6 @@ import Data.Typeable (Typeable)
 import Data.Word
 import GHC.Generics (Generic)
 import NoThunks.Class (NoThunks (..))
-import Quiet (Quiet (Quiet))
 
 -- | Script hash or key hash for a payment or a staking object.
 --
@@ -323,10 +321,3 @@ instance DecCBORGroup Ptr where
 -- case mkPtr slotNo txIx certIx of
 --   Nothing -> fail $ "SlotNo is too far into the future: " ++ show slotNo
 --   Just ptr -> pure ptr
-
-newtype GenesisCredential = GenesisCredential
-  { unGenesisCredential :: KeyHash 'Genesis
-  }
-  deriving (Generic)
-  deriving newtype (Eq, Ord, ToCBOR, EncCBOR)
-  deriving (Show) via Quiet GenesisCredential
