Remove specialized small hashes for testing.

IntersectMBO · Jan 17, 2022 · b3201a2 · b3201a2
1 parent 4b6e476
commit b3201a2
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/ConcreteCryptoTypes.hs b/eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/ConcreteCryptoTypes.hs
@@ -1,11 +1,10 @@
 {-# LANGUAGE ConstraintKinds #-}
 {-# LANGUAGE DataKinds #-}
 {-# LANGUAGE FlexibleContexts #-}
-{-# LANGUAGE PatternSynonyms #-}
 {-# LANGUAGE QuantifiedConstraints #-}
 {-# LANGUAGE RankNTypes #-}
-{-# LANGUAGE TypeApplications #-}
 {-# LANGUAGE TypeFamilies #-}
+{-# LANGUAGE UndecidableInstances #-}
 
 module Test.Cardano.Ledger.Shelley.ConcreteCryptoTypes
   ( Mock,
@@ -19,7 +18,6 @@ where
 
 import Cardano.Crypto.DSIGN (MockDSIGN, VerKeyDSIGN)
 import qualified Cardano.Crypto.DSIGN.Class as DSIGN
-import Cardano.Crypto.Hash (Blake2bPrefix)
 import Cardano.Crypto.KES (MockKES)
 import qualified Cardano.Crypto.KES.Class as KES
 import Cardano.Crypto.Util (SignableRepresentation)
@@ -53,8 +51,8 @@ type TestCrypto = C_Crypto
 data C_Crypto
 
 instance Cardano.Ledger.Crypto.Crypto C_Crypto where
-  type HASH C_Crypto = Blake2bPrefix 10
-  type ADDRHASH C_Crypto = Blake2bPrefix 8
+  type HASH C_Crypto = HASH StandardCrypto
+  type ADDRHASH C_Crypto = ADDRHASH StandardCrypto
   type DSIGN C_Crypto = MockDSIGN
   type KES C_Crypto = MockKES 10
   type VRF C_Crypto = FakeVRF