Use forceElemsToWHNF from strict-containers instead of cardano-prelude

IntersectMBO · Aug 8, 2022 · 3a42eeb · 3a42eeb
1 parent c8d5437
commit 3a42eeb
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/cardano-crypto-class/cardano-crypto-class.cabal b/cardano-crypto-class/cardano-crypto-class.cabal
@@ -109,6 +109,7 @@ library
     , nothunks
     , primitive
     , serialise
+    , strict-containers
     , text
     , transformers
     , vector

diff --git a/cardano-crypto-class/src/Cardano/Crypto/KES/Simple.hs b/cardano-crypto-class/src/Cardano/Crypto/KES/Simple.hs
@@ -29,14 +29,14 @@ import           GHC.Generics (Generic)
 import           GHC.TypeNats (Nat, KnownNat, natVal, type (*))
 import           NoThunks.Class (NoThunks)
 
-import           Cardano.Prelude (forceElemsToWHNF)
 import           Cardano.Binary (FromCBOR (..), ToCBOR (..))
 
 import           Cardano.Crypto.DSIGN
 import qualified Cardano.Crypto.DSIGN as DSIGN
 import           Cardano.Crypto.KES.Class
 import           Cardano.Crypto.Seed
 import           Cardano.Crypto.Util
+import           Data.Unit.Strict (forceElemsToWHNF)
 
 
 data SimpleKES d (t :: Nat)